哪位大侠有对文本文件加密的好方法,Help...

[pengsir]

我需要对一文本文件进行加密,大小150K左右,用以下代码:
Open Filename$ For Binary As #filenum
For I = 1 To LOF(filenum)
Get #filenum, I, singlechar
charnum = Asc(singlechar)
randominteger = Int(256 * Rnd)
charnum = charnum Xor randominteger
singlechar = Chr$(charnum)
Put #filenum, I, singlechar
Next I
Close #filenum
在win95下,如果有RichWin,则解密后不能恢复原状.
谁知道怎么回事?
谁有更好的方法?

[Un1]

当然不行啦，你的randominteger = Int(256 * Rnd)导致加密和解密时不同，所以异或不回来了。一个简单的方法是使用固定的randominteger值，或者动态的randominteger但必须将它写入文件以用于解密过程。