|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/5/16 15:00:29 |
标题: |
|
加入我的收藏 |
楼主: |
function TForm.EnCrypt(StrC: String): String; const g_key = '!@#$%^&*()_+|/*-+ASVFyts' ; var Temp : pchar ; c : Char ; iCryptChar : integer ; i : integer ; iKeyChar : integer ; iStrChar : integer ; sEncrypted : String ; begin for I := 1 to Length(StrC) do begin Temp := pchar(MidStr(g_key,1,1)) ; c := Temp^ ; iKeyChar := Ord(c) ;
Temp := pchar(MidStr(Strc,i,1)) ; c := Temp^ ; iStrChar := Ord(c) ;
iCryptChar := iKeyChar Xor iStrChar ; sEncrypted := sEncrypted + Chr(iCryptChar) ; end ; Result := sEncrypted end ;
----------------------------------------------
|
作者: |
zizii (高高高级馒头) |
★☆☆☆☆ |
-
|
神秘会员 |
|
2003/5/16 16:49:31 |
1楼: |
急什么都不知道,晕。
----------------------------------------------
维护世界和平,共创美好盒子。
|
作者: |
|
2003/5/16 17:08:14 |
2楼: |
太急了, 没写问题!
这段加解密相同的函数 总不好用 挺怪的! 数字,字母,汉字,符号。。。 我想对所有的可能都能进行加解密?? 该如何去做呀?
----------------------------------------------
|
作者: |
|
2003/5/16 18:23:22 |
3楼: |
没有问答!
----------------------------------------------
|
|