Table des matières
回复讨论(解决方案)
Maison développement back-end tutoriel php PHP加密算法转换delphi出问题

PHP加密算法转换delphi出问题

Jun 20, 2016 pm 12:42 PM

 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);
Copier après la connexion



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;
Copier après la connexion

自己网上找的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的整数=谢谢版主
Déclaration de ce site Web
Le contenu de cet article est volontairement contribué par les internautes et les droits d'auteur appartiennent à l'auteur original. Ce site n'assume aucune responsabilité légale correspondante. Si vous trouvez un contenu suspecté de plagiat ou de contrefaçon, veuillez contacter admin@php.cn

Outils d'IA chauds

Undresser.AI Undress

Undresser.AI Undress

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

AI Clothes Remover

AI Clothes Remover

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

Undress AI Tool

Undress AI Tool

Images de déshabillage gratuites

Clothoff.io

Clothoff.io

Dissolvant de vêtements AI

AI Hentai Generator

AI Hentai Generator

Générez AI Hentai gratuitement.

Article chaud

R.E.P.O. Crystals d'énergie expliqués et ce qu'ils font (cristal jaune)
2 Il y a quelques semaines By 尊渡假赌尊渡假赌尊渡假赌
Repo: Comment relancer ses coéquipiers
4 Il y a quelques semaines By 尊渡假赌尊渡假赌尊渡假赌
Hello Kitty Island Adventure: Comment obtenir des graines géantes
3 Il y a quelques semaines By 尊渡假赌尊渡假赌尊渡假赌
Combien de temps faut-il pour battre Split Fiction?
3 Il y a quelques semaines By DDD

Outils chauds

Bloc-notes++7.3.1

Bloc-notes++7.3.1

Éditeur de code facile à utiliser et gratuit

SublimeText3 version chinoise

SublimeText3 version chinoise

Version chinoise, très simple à utiliser

Envoyer Studio 13.0.1

Envoyer Studio 13.0.1

Puissant environnement de développement intégré PHP

Dreamweaver CS6

Dreamweaver CS6

Outils de développement Web visuel

SublimeText3 version Mac

SublimeText3 version Mac

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

11 meilleurs scripts de raccourcissement d'URL PHP (gratuit et premium) 11 meilleurs scripts de raccourcissement d'URL PHP (gratuit et premium) Mar 03, 2025 am 10:49 AM

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

Introduction à l'API Instagram Introduction à l'API Instagram Mar 02, 2025 am 09:32 AM

À 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

Travailler avec les données de session Flash dans Laravel Travailler avec les données de session Flash dans Laravel Mar 12, 2025 pm 05:08 PM

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-

Misque de réponse HTTP simplifié dans les tests Laravel Misque de réponse HTTP simplifié dans les tests Laravel Mar 12, 2025 pm 05:09 PM

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' =>

Construisez une application React avec un Laravel Back End: Partie 2, React Construisez une application React avec un Laravel Back End: Partie 2, React Mar 04, 2025 am 09:33 AM

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

Curl dans PHP: Comment utiliser l'extension PHP Curl dans les API REST Curl dans PHP: Comment utiliser l'extension PHP Curl dans les API REST Mar 14, 2025 am 11:42 AM

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

12 meilleurs scripts de chat PHP sur Codecanyon 12 meilleurs scripts de chat PHP sur Codecanyon Mar 13, 2025 pm 12:08 PM

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é

Annonce de l'enquête sur la situation en 2025 PHP Annonce de l'enquête sur la situation en 2025 PHP Mar 03, 2025 pm 04:20 PM

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

See all articles