PHP密碼編譯演算法轉換delphi出問題

 function encrypt($string,$operation,$key='')    {        $key=md5($key);        $key_length=strlen($key);        $string=$operation=='D'?base64_decode($string):substr(md5($string.$key),0,8).$string;        $string_length=strlen($string);        $rndkey=$box=array();        $result='';        for($i=0;$i<=255;$i++)        {            $rndkey[$i]=ord($key[$i%$key_length]);            $box[$i]=$i;        }        for($j=$i=0;$i<256;$i++)        {            $j=($j+$box[$i]+$rndkey[$i])%256;            $tmp=$box[$i];            $box[$i]=$box[$j];            $box[$j]=$tmp;        }        for($a=$j=$i=0;$i<$string_length;$i++)        {            $a=($a+1)%256;            $j=($j+$box[$a])%256;            $tmp=$box[$a];            $box[$a]=$box[$j];            $box[$j]=$tmp;            $result.=chr(ord($string[$i])^($box[($box[$a]+$box[$j])%256]));        }        if($operation=='D')        {            if(substr($result,0,8)==substr(md5(substr($result,8).$key),0,8))            {                return substr($result,8);            }            else            {                return'';            }        }        else        {            return str_replace('=','',base64_encode($result));        }    }$id = '123sdfsdf';$key = 'aasd1234567985fdgdfdfgdg';$token = encrypt($id, 'E', $key);echo '加密:'.encrypt($id, 'E', $key);echo '
';echo '解密：'.encrypt($token, 'D', $key);

function encrypt(str, operation, key: string): string;  function StrToMD5(s: string): string;  var    Md5Encode: TIdHashMessageDigest5;  begin         Md5Encode := TIdHashMessageDigest5.Create;    Result := Md5Encode.AsHex(Md5Encode.HashValue(S));    Md5Encode.Free;       end;var  key_length: Integer;  string_length: Integer;  I, j, A: Integer;  rndkey: array[0..255] of Byte;  Box: array[0..255] of Byte;  tmp: Byte;begin  key := LowerCase(StrToMD5(key));  key_length := Length(key);  if operation = 'D' then    str := DecodeString(str)  else    str := Copy(lowerCase(StrToMD5(str + key)), 1, 8) + str;  string_length := Length(str);  result := '';  for i := 0 to 255 do  begin    rndkey[i] := ord(key[(i mod key_length) + 1]);    Box[i] := i;  end;  j := 0;  for i := 0 to 255 do  begin    j := (j + Box[i] + rndkey[i]) mod 256;    tmp := Box[i];    Box[i] := Box[j];    Box[j] := tmp;  end;  a := 0;  j := 0;  for i := 1 to string_length do  begin    A := (A + 1) mod 256;    j := (j + Box[A]) mod 256;    tmp := Box[A];    Box[A] := Box[j];    Box[j] := tmp;    result := result + chr(ord(str[i]) xor (Box[(Box[A] + Box[j]) mod 256]));  end;  if (operation = 'D') then  begin      if (copy(result, 1, 8) = copy(lowerCase(StrToMd5(copy(result, 9, Length(Result) - 8) + key)), 1, 8)) then    begin      Result := copy(result, 9, Length(Result) - 8);    end    else    begin      Result := '';    end;  end  else  begin    Result := StringReplace(EncodeString(result), '=', '', [rfReplaceAll]);  end; end;

自己網上找的PHP密碼編譯演算法，但是轉成DELPHI 時候只有加密正確 解密不正確
求前輩幫忙完美轉換

回複討論(解決方案)

這個完全沒什麼技術難度，你只是不會調試而已。
既然能把代碼轉過去了，哪行對應哪行就清楚了
取一行php輸出一下變數，delphi輸出一下變數，如果變數值有不同就是這行錯了。
程式就在那裡慢慢查肯定能查出是哪行錯了，實在不行一行行對比也行啊。
所以找到問題只是時間問題，這個完全沒有難度只是費時費力而已。

你這個是什麼密碼編譯演算法？

delphi 的 DecodeString 是對應 php 的 base64_decode 嗎？
那麼 DecodeString 函數是殘廢的 base64 串是如何處理的？
建議你補齊尾部的 =

這個完全沒什麼技術難度，你只是不會調試而已。
既然能把代碼轉過去了，哪行對應哪行就清楚了
取一行php輸出一下變數，delphi輸出一下變數，如果變數值有不同就是這行錯了。
程式就在那裡慢慢查肯定能查出是哪行錯了，實在不行一行行對比也行啊。
所以找到問題只是時間問題，這個完全沒有難度只是費時費力而已。

調試過了 DecodeString 後解密出來的字串 delphi 比 php 少了2位

delphi 的 DecodeString 是對應 php 的 base64_decode 嗎？
那麼 DecodeString 函數是殘廢的 base64 串是如何處理的？
建議你補齊尾部的 =

我試試吧後尾補=看看，

delphi 的 DecodeString 是對應 php 的 base64_decode 嗎？
那麼 DecodeString 函數是殘廢的 base64 串是如何處理的？
建議你補齊尾部的 =

補齊尾部的=也不行，現在發現DecodeString解密出來的字元出錯了

按你給出的參數，$token 尾部有一個 = 被刪去
這與你 delphi 比 php 少了2位 的說法是吻合的
base64 將 3 個字解擴充成 4 個位元組 ，尾部的 2 個字元擴充後需用 = 補齊
解碼時如果因殘廢了而捨棄，就正好少了2個字元

你怎麼補的？貼出代碼

按你給出的參數，$token 尾部有一個 = 被刪去
這與你 delphi 比 php 少了2位 的說法是吻合的
base64 將 3 個字解擴充成 4 個位元組 ，尾部的 2 個字元擴充後需用 = 補齊
解碼時如果因殘廢了而捨棄，就正好少了2個字元

按照你的方法我的delphi 版後面加了 =
然後解密出來 字元再轉成 Asc碼比對了下delphi 和 PHP 分別為
delphi 版
1571920612038416510212118647183621641859132545612373206113391
php 版
157192061203841651021211864718362164185913254561237320611339
後面少了個1

if operation = 'D' then
在這裡給 str 加上 (4 - Length(str)%4)%4 個 =
str := DecodeString(str)
else

或者你看看
DecodeString("YWI=")
和
DecodeString("YWI")
的結果分別是什麼

if operation = 'D' then
在這裡給 str 加上 (4 - Length(str)%4)%4 個 =
str := DecodeString(str)
else

按照你的方法可以了，原來要補齊4的整數=謝謝版主

