sunsetyang没走吧？

Question

如果要写到外部文件中，那么你可以自己定义它的文件格式。二进制文件也好，文本格式也好，都可以满足你的要求的。你可以使用kernel32.dll中提供的api函数CreateFile,ReadFile,WriteFile来完成对文件的操作。具体的：
Declare Function WriteFile Lib "kernel32" _
    (ByVal hFile As Long, _
    ByVal lpBuffer As Any, _
    ByVal nNumberOfBytesToWrite As Long, _
    lpNumberOfBytesWritten As Long, _
    lpOverlapped As Any) As LongDeclare Function ReadFile Lib "kernel32" _
    (ByVal hFile As Long, _
    lpBuffer As Any, _
    ByVal nNumberOfBytesToRead As Long, _
    lpNumberOfBytesRead As Long, _
    lpOverlapped As Any) As LongDeclare Function CreateFile Lib "kernel32" _
    (ByVal lpFileName as String,_
     ByVal dwDesiredAccess as Long,_
     ByVal dwShareMode as Long,_  
     ByVal lpSecurityAttributes as Any,_
     ByVal dwCreationDisposition as Long,_
     ByVal dwFlagsAndAttributes as Long,_
     ByVal hTemplateFile as Long                       
     ) As LonghFile = CreateFile("MYFILE.TXT", GENERIC_READ,FILE_SHARE_READ,
                    NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,     
                    NULL);
ReadFile(hFile,buf,size,ReadCount, ByVal 0&)
WriteFile的用法类似于ReadFile.
这就可以将文件的内容读入buf中，然后就可以对buf中内容进行操作了。具体的加密算法，你可以自己设计。简单的复杂的，都可以。
如果用注册表的话，你可以使用SaveSetting,GetSetting,DeleteSetting对注册表内的信息进行管理。
SaveSetting appname, section, key, value
GetSetting(appname, section, key[, default])
DeleteSetting(appname, section, key)
如：
SaveSetting "MyProgram", "Password", "Value", EncrptPasswd
GetSetting("MyProgram","Password","Value",EncrptPasswd)
Delete("MyProgram","Password","Value")