PHP暗号化アルゴリズム変換デルファイ問題

 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 '<br />';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 を使用します。が異なります、この行は間違っています。
プログラムをゆっくりチェックして、どの行が間違っているかを確実に見つけることができます。動作しない場合は、1 行ずつ比較してください。
したがって、問題を見つけるのは時間の問題です。これはまったく難しいことではなく、時間と労力がかかるだけです。

どのような暗号化アルゴリズムを使用していますか?

delphiのDecodeStringはphpのbase64_decodeに対応していますか？
DecodeString 関数は無効になっていますが、base64 文字列はどのように処理されるのでしょうか?
末尾 =

を入力することをお勧めします。これは技術的にはまったく難しいことではありません。デバッグ方法がわからないだけです。
コードを転送できるようになったので、どの行がどの行に対応するかが明確になります。
変数の値を出力するには php の行を取得し、変数の値を出力するには delphi を使用します。が異なります、この行は間違っています。
プログラムをゆっくりチェックして、どの行が間違っているかを確実に見つけることができます。動作しない場合は、1 行ずつ比較してください。
したがって、問題を見つけるのは時間の問題です。これはまったく難しいことではなく、時間と労力がかかるだけです。

DecodeString をデバッグした後、復号化された文字列 delphi は php より 2 桁少ないです

delphi の DecodeString は php のbase64_decode に対応していますか?
DecodeString 関数は無効になっていますが、base64 文字列はどのように処理されるのでしょうか?
末尾を埋めることをお勧めします =

末尾 = を埋めてみます。

delphi の DecodeString は php のbase64_decode に対応しますか? ?
DecodeString 関数は無効になっていますが、base64 文字列はどのように処理されるのでしょうか?
末尾の =

末尾の = を完了すると、DecodeString によって復号化された文字が間違っていることがわかります。

指定したパラメーターによると。 、$token の末尾には One = が削除されました
これは、Delphi の文字数が PHP よりも 2 文字少ないというステートメントと一致します
base64 は 3 文字を 4 バイトに拡張し、最後の 2 文字は次のようにする必要があります。
デコード中に無効になったために破棄された場合、ちょうど 2 文字が欠落します

どうやって補いますか?コードを投稿します

指定したパラメータによると、$token の最後に = がありますが、これは削除されました
これは、あなたの Delphi がphp より 2 桁少ないステートメントは
と一致しています。base64 は 3 文字を 4 バイトに展開し、展開後に最後の 2 文字を = で完成させる必要があります。
デコード中に障害により破棄された場合、文字

あなたの方法によると、delphi バージョンの最後に =
を追加し、delphi と比較した後、文字を復号化して Asc コードに変換しました。 PHP、それらは
delphi バージョン
1571920612038416510212118647183621641859132545612373206113391
php バージョン
1571920612038416510212118647 183621641859132545 61237320611339
最後に 1 がありません

if Operation = 'D' then
(4 - Length(str)%4 を str here に追加します)%4 =
str := DecodeString(str)
else

または、
DecodeString("YWI= ")
と
DecodeString("YWI ")

ifoperation = 'D' then
Add ( 4 - Length(str)%4 to str here )%4 個 =
str := DecodeString(str)
else

メソッドに従って、完了する必要があることがわかります。 4 の整数 = モデレーターに感謝します