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;

@+