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 '<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输出一下变量,如果变量值有不同就是这行错了。
程序就在那里慢慢查肯定能查出是哪行错了,实在不行一行行对比也行啊。
所以找到问题只是时间问题,这个完全没有难度只是费时费力而已。
你这个是什么加密算法?
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的整数=谢谢版主

Outils d'IA chauds

Undresser.AI Undress
Application basée sur l'IA pour créer des photos de nu réalistes

AI Clothes Remover
Outil d'IA en ligne pour supprimer les vêtements des photos.

Undress AI Tool
Images de déshabillage gratuites

Clothoff.io
Dissolvant de vêtements AI

AI Hentai Generator
Générez AI Hentai gratuitement.

Article chaud

Outils chauds

Bloc-notes++7.3.1
Éditeur de code facile à utiliser et gratuit

SublimeText3 version chinoise
Version chinoise, très simple à utiliser

Envoyer Studio 13.0.1
Puissant environnement de développement intégré PHP

Dreamweaver CS6
Outils de développement Web visuel

SublimeText3 version Mac
Logiciel d'édition de code au niveau de Dieu (SublimeText3)

Sujets chauds

Les longues URL, souvent encombrées de mots clés et de paramètres de suivi, peuvent dissuader les visiteurs. Un script de raccourcissement d'URL offre une solution, créant des liens concis idéaux pour les médias sociaux et d'autres plateformes. Ces scripts sont utiles pour les sites Web individuels

À la suite de son acquisition de haut niveau par Facebook en 2012, Instagram a adopté deux ensembles d'API pour une utilisation tierce. Ce sont l'API graphique Instagram et l'API d'affichage de base Instagram. En tant que développeur créant une application qui nécessite des informations à partir d'un

Laravel simplifie la gestion des données de session temporaires à l'aide de ses méthodes de flash intuitives. Ceci est parfait pour afficher de brefs messages, alertes ou notifications dans votre application. Les données ne persistent que pour la demande ultérieure par défaut: $ demande-

Laravel fournit une syntaxe de simulation de réponse HTTP concise, simplifiant les tests d'interaction HTTP. Cette approche réduit considérablement la redondance du code tout en rendant votre simulation de test plus intuitive. L'implémentation de base fournit une variété de raccourcis de type de réponse: Utiliser illuminate \ support \ faades \ http; Http :: faux ([[ 'google.com' => 'Hello World', 'github.com' => ['foo' => 'bar'], 'forge.laravel.com' =>

Il s'agit de la deuxième et dernière partie de la série sur la construction d'une application React avec un back-end Laravel. Dans la première partie de la série, nous avons créé une API RESTful utilisant Laravel pour une application de liste de base sur le produit. Dans ce tutoriel, nous serons Dev

L'extension PHP Client URL (CURL) est un outil puissant pour les développeurs, permettant une interaction transparente avec des serveurs distants et des API REST. En tirant parti de Libcurl, une bibliothèque de transfert de fichiers multi-protocol très respectée, PHP Curl facilite Efficient Execu

Voulez-vous fournir des solutions instantanées en temps réel aux problèmes les plus pressants de vos clients? Le chat en direct vous permet d'avoir des conversations en temps réel avec les clients et de résoudre leurs problèmes instantanément. Il vous permet de fournir un service plus rapide à votre personnalité

L'enquête sur le paysage PHP 2025 étudie les tendances actuelles de développement du PHP. Il explore l'utilisation du cadre, les méthodes de déploiement et les défis, visant à fournir des informations aux développeurs et aux entreprises. L'enquête prévoit la croissance de la PHP moderne versio
