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

灌水王

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;

灌水王

看到rmb很自信地点进来
看了一眼代码...
关闭页面

灌水王

有大佬会

yuzhenli

上古语言呀

灌水王

delphi
只改加密吗? 200块
需要解密函数吗? 解密函数100块.
一共,300块

zidon

已经有人报价了，就不参与了

灌水王

远古dephi代码？

灌水王

代码拿去
红包拿来

1. <?phpfunction EncrypKey($Src, $Key='') {    $KeyLen = strlen($Key);    if ($KeyLen == 0) $Key = 'Think Space';    $KeyPos = 0;    try {        $Offset = random_int(0, 255);    } catch (Exception $e) {        $Offset = rand(0, 255);    }    $Dest = sprintf('%02X', $Offset);    for ($SrcPos = 0; $SrcPos < strlen($Src); $SrcPos++) {        $SrcAsc = (ord($Src[$SrcPos]) + $Offset) % 255;        if ($KeyPos < $KeyLen) $KeyPos += 1;        else $KeyPos = 0;        $SrcAsc ^= ord($Key[$KeyPos]);        $Dest .= sprintf('%02X', $SrcAsc);        $Offset = $SrcAsc;    }    return $Dest;}function UncrypKey($Src, $Key='') {    $KeyLen = strlen($Key);    if ($KeyLen == 0) $Key = 'Think Space';    $KeyPos = 0;    $SrcPos = 0;    $Offset = hexdec(substr($Src, 0, 2));    $SrcPos = 2;    $Dest = "";    while ($SrcPos < strlen($Src)) {        $SrcAsc = hexdec(substr($Src, $SrcPos, 2));        if ($KeyPos < $KeyLen) $KeyPos += 1;        else $KeyPos = 1;        $TmpSrcAsc = $SrcAsc ^ ord($Key[$KeyPos-1]);        if ($TmpSrcAsc <= $Offset) $TmpSrcAsc += 255 - $Offset;        else  $TmpSrcAsc -= $Offset;        $Dest .= chr($TmpSrcAsc);        $Offset = $SrcAsc;        $SrcPos += 2;    }    return $Dest;}echo EncrypKey('测试');echo PHP_EOL;echo UncrypKey('00B23C9328834D');?>

复制代码

灌水王

其实还有个参数的，用起来是这样 EncrypKey(dest1,'222');  dest1是str即待加密的字符，222似乎是一个改变加密的参数。

大哥你这种先给结果的，让我有点吃不消呀。。。。不过非常感谢，pm 我

灌水王

参数也支持，只不过默认为空
你也可以通过 EncrypKey('password', 'key'); 这样的方式来使用自定义密钥
解密同样支持