txt数据加密

[ymon]

用数据窗口生成txt文件后，如何加密txt文件使用户不能修改或用户就不能打开该文件

[leio]

1、自己做个加密函数，将txt文件内的数据加密。
2、利winzip等可以加密的工具将文件加密打包。

[ymon]

映山红：程序里如何实现呢，加密函数如何做，你有例子吗？

[leio]

给你一段VB的加解密代码。今天没时间帮你改成pb代码了，我得回家了，
你自己改吧。

g_Key = "SBZPX>RFYS[MLE\DAUCVT>QIUOQI\O]I`CKXG[_RJ??K@V?TSJJBC_FZKTGZR_\RWECT?D>BR[M]HU@[F`AG\PDZ_O?JJOXII@XF_I]L[WX`@KBGKG`AV@QYX\P`@MV@BP\R]QY_PPRVEAHNM?WUP[OHEQKXT?^JQICU[C[IA>T?UCZ_[@_?HAD\WHHV_SPW>GFQTLD`^_Q@JZYI`BJE\CW?V]\Z`LUV^C[GER`PLC_ZCIK?G>PECGIIQBYDQWOYVWP[M`LN`KQH>`YTAOCA@XBGVYVYTZEQVY>HG\SI>L_PYAAV]J^]Q\GLOTHUA>_OKB_USPXT_?\RL^PV@JMSN\^GLND][Q\DBO``IE`^D>]NYXED`HLHWAGKZ?>MZWABIWYHJGMWACWEZ\HW@`M`FYLHADOK][Z\LQ`SS^HRBF>[LP^YXCFV^FPOWTGW`CD^YYG`_OW?U>LLN?H_MSLNVWYQ?E_P`^J[\DGLJE\RBHR_]VQXOCTJMPJ`OTFZ[ONB"


Function EnCrypt(strCryptThis)
Dim strChar, iKeyChar, iStringChar, I
for I = 1 to Len(strCryptThis)
iKeyChar = Asc(mid(g_Key,I,1))
iStringChar = Asc(mid(strCryptThis,I,1))
iCryptChar = iKeyChar Xor iStringChar
strEncrypted = strEncrypted & Chr(iCryptChar)
next
EnCrypt = strEncrypted
End Function


Function DeCrypt(strEncrypted)
Dim strChar, iKeyChar, iStringChar, I
for I = 1 to Len(strEncrypted)
iKeyChar = (Asc(mid(g_Key,I,1)))
iStringChar = Asc(mid(strEncrypted,I,1))
iDeCryptChar = iKeyChar Xor iStringChar
strDecrypted = strDecrypted & Chr(iDeCryptChar)
next
DeCrypt = strDecrypted
End Function

[Oldman]

自己写一个异或法的加密算法，或许写一个RSA算法也不难吗！