一段代码转为php有人会吗？rmb-bihui

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'); 这样的方式来使用自定义密钥
解密同样支持

申明：本文内容由网友收集分享，仅供学习参考使用。如文中内容侵犯到您的利益，请在文章下方留言，本站会第一时间进行处理。