Function EncrypKey (Src:String; Key:String):string;
var
idx :integer;
KeyLen :Integer;
KeyPos :Integer;
offset :Integer;
dest :string;
SrcPos :Integer;
SrcAsc :Integer;
TmpSrcAsc :Integer;
Range :Integer;
begin
KeyLen:=Length(Key);
if KeyLen = 0 then key:='Think Space';
KeyPos:=0;
SrcPos:=0;
SrcAsc:=0;
Range:=256;
Randomize;
offset:=Random(Range);
dest:=format('%1.2x',[offset]);
for SrcPos := 1 to Length(Src) do
begin
SrcAsc:=(Ord(Src[SrcPos]) + offset) MOD 255;
if KeyPos < KeyLen then KeyPos:= KeyPos + 1 else KeyPos:=1;
SrcAsc:= SrcAsc xor Ord(Key[KeyPos]);
dest:=dest + format('%1.2x',[SrcAsc]);
offset:=SrcAsc;
end;
Result:=Dest;
end;
热议
推荐楼 Mr.lin 前天21:16
看到rmb很自信地点进来
看了一眼代码...
关闭页面
2楼 optimism 前天20:29
有大佬会
3楼 奧巴马 前天20:31
上古语言呀
5楼 bagheera 前天21:17
delphi
只改加密吗? 200块
需要解密函数吗? 解密函数100块.
一共,300块
6楼 houlai 前天21:49
已经有人报价了，就不参与了
7楼 cnly1987 前天21:57
远古dephi代码？
9楼 bihui 昨天16:31
代码拿去
红包拿来
其实还有个参数的，用起来是这样 EncrypKey(dest1,'222');dest1是str即待加密的字符，222似乎是一个改变加密的参数。
大哥你这种先给结果的，让我有点吃不消呀。。。。不过非常感谢，pm 我
10楼 nekolate 3小时前
其实还有个参数的，用起来是这样 EncrypKey(dest1,'222');dest1是str即待加密的字符，222似乎是一个改 ...
参数也支持，只不过默认为空
你也可以通过 EncrypKey('password', 'key'); 这样的方式来使用自定义密钥
解密同样支持
申明：本文内容由网友收集分享，仅供学习参考使用。如文中内容侵犯到您的利益，请在文章下方留言，本站会第一时间进行处理。