哪位大侠有对文本文件加密的好方法,Help...
我需要对一文本文件进行加密,大小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,则解密后不能恢复原状.
谁知道怎么回事?
谁有更好的方法?