Portage d'un algo de C++ vers Delphi

Version imprimable

Bonjour à tous, je cherche a porter un algo C++ en delphi et j'ai du mal, j'ai besoin de votre aide :)

Voici l'algo en question :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
   string CryptPassword(string Key, string Password)
   {
       char HASH[] = {'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's',
       't', 'u', 'v', 'w', 'x', 'y', 'z', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U',
       'V', 'W', 'X', 'Y', 'Z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '-', '_'};
       string _Crypted = "#1";
       for(int i = 0; i < Password.length(); i++)
       {
           char PPass = Password[i];
           char PKey = Key[i];
           int APass = (int)PPass / 16;
           int AKey = (int)PPass % 16;
           int ANB = (APass + (int)PKey) % sizeof(HASH);
           int ANB2 = (AKey + (int)PKey) % sizeof(HASH);          
           _Crypted += HASH[ANB];
           _Crypted += HASH[ANB2];
       }
       return _Crypted;
   }

Merci d'avance.

En gros, quelque chose comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function CryptPassword(const Key, Password :string) :string;
const
  Hash : array[0..63] of char = ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's',
       't', 'u', 'v', 'w', 'x', 'y', 'z', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U',
       'V', 'W', 'X', 'Y', 'Z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '-', '_');
var
  PPass :char;
  PKey  :char;
  APass :integer;
  AKey  :integer;
  ANB   :integer;
  ANB2  :integer;
  i     :Integer;
begin
  Result := #1;
 
  for i := 1 to Length(Password) do
  begin
    PPass := Password[i];
    PKey  := Key[i];
    APass := PPass div 16;
    AKey  := PPass mod 16;
    ANB   := (APass +ord(PKey)) mod SizeOf(Hash);
    ANB2  := (AKey  +ord(PKey)) mod SizeOf(Hash);
    Result := Result +Hash[ANB];
    Result := Result +Hash[ANB2];
  end;
end;

03/07/2009, 11h13
tynzo

Je vais regarder ça, merci.

Edit :
il me renvoi :

Code:

[Error] Unit1.pas(138): Operator not applicable to this operand type

pour "APass := PPass div 16;" et "AKey := PPass mod 16;"
Que faire ?

Code:

1
2
    APass := ord(PPass) div 16;
    AKey  := ord(PPass) mod 16;