Discussion :

[pierre987321]

bonjour a tous.

je cherche un finir un soft pour lequel je trouve pas de solution :-(


je doit faireun systeme de mot de passe qui corespond a un seul mail.
donc je pensai a un truc style cripter le mail et lui donner un truc mathématique.


mais quesque vous voyez de votre coté ?
avez vous des idées ?
avez vous un exemple de scripte ?

il faut aussi que mon soft génére un mot de passe pour une autre adresse mail :-(



merci d'avance pour votre aide et vos idées

[philnext]

disons que tu peux faire un Xor avec le mail et une string quelconque. attention à gérer les pb de casse de caractères ( le même mail peut s'écrire toto@gmail.com ou ToTo@gmail.com)

[pierre987321]

est il possible de convertir en chiffre le résultat ?
car sous forme de lettre certain vons vite comprendre le décrytage

[philnext]

Oui tu peux convertir en hexa une fois que tu as ta string 'codée' , si st est ta string codée, et stResult celle que tu veux afficher ou stocker :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  stResult := '';
  for i := 1 to Length(st) do
      stResult := stResult + IntToHex(ord(st[i],2)) ;

[pierre987321]

merci pour ton aide

j'ai fait sa mais sa ne marche pas a l'affichage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function CryptDeCrypthex(St:string):string;
var i:byte;
stResulthex:string;
begin
stResulthex := '';
for i := 1 to Length(St) do
stResulthex := stResulthex + IntToHex(ord(St[i]),2);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit5.Text:=CryptDeCrypthex(Edit2.Text);
end;

quesque vous en dite ??? ou est mon erreur ???
merci d'avance

[Cl@udius]

Salut,

j'ai fait sa mais sa ne marche pas a l'affichage

Tout simplement parce que ta fonction de renvoie pas de valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
function CryptDeCrypthex(St:string):string;
  var i:byte;
begin
  Result := '';
  for i := 1 to Length(St) do
     Result := Result + IntToHex(ord(St[i]),2);
end;

@+

[pierre987321]

merci

sinon pour avoir sous forme de chiffre sans lettre ?

[philnext]

Essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Result := Result + AnsiRightStr('00'+IntTostr(ord(St[i]),3);

[pierre987321]

c dingue je suis une merde
un truc simple a taper et je bloque bloque bloque bloque...

voica le truc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function CryptDeCrypthex(St:string):string;
var i:byte;
stResulthex:string;
AnsiRightStr:string;
begin
stResulthex := '';
for i := 1 to Length(St) do
//Result := Result + AnsiRightStr('00'+IntTostr(ord(St[i]),3);
 
stResulthex:= stResulthex + AnsiRightStr('00'IntTostr(ord(St[i])),3);
//stResulthex := stResulthex + AnsiRightStr('00'+(ord(St[i])),2);
//stResulthex := stResulthex + IntToHex(ord(St[i]),2);
result:=stResulthex;
end;

vous voyez ou ?

[pierre987321]

je tenete avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function CryptDeCrypthex(St:string):string;
var i:byte;
stResult:string;
AnsiRightStr:string;
begin
stResult := '';
for i := 1 to Length(St) do
 
Result := stResult + AnsiRightStr('00'+IntTostr(ord(St[i]),3);
 
//stResulthex := stResulthex + IntTostr(ord(St[i]),3);
//stResulthex := stResulthex + AnsiRightStr('00'+(ord(St[i])),2);
//stResulthex := stResulthex + IntToHex(ord(St[i]),2);
 
//result:=stResulthex;
end;

tjr erreur :-(

[Eric Boisvert]

J'espère que les commentaires seront suffissant...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
function CryptDeCrypthex(St:string):string;
var
 i:byte; //Faut savoir que la valeur maximum d'un byte=255
         //donc notre fonction sera limité à traiter une
         //string < que 255 carac.
         //Sinon, vaudrait mieux mettre integer.
begin
 //Mets='' la valeur de routour par défault.
 Result := '';
 //Fait une boucle pour chacune des lettre dans la string St
 //Attention si Length(St)>Byte!
 for i := 1 to Length(St) do  //Length(St) retourne le nombre de caratères dans St
    Result := Result + FormatFloat('000',ord(St[i]));
    //Explication:
    //St[i]= revoit une lettre à la position i dans la string St
    //ord(St[i])= donne le code ascii de la lettre donc entre 0-255
    //FormatFloat('000', ord(St[i]) )=Convertie un nombre
    //                             ici le code ascii d'une letttre en string sur 3 digits...
end;

[pierre987321]

alors la, merci
tu/vous etes des