Hash in Delphi und PHP

[Meflin]

also für sha1 hab ich http://www.delphipraxis.net/internal...highlight=sha1 hier ne phpfunktion gepostet!

[DevilsCamp]

Zitat:

Zitat von Jelly

Du kannst direkt in MySQL die Funktion "password" nutzen, etwa so:

SQL-Code:

SELECT name, password(Name)
FROM tabellenname

Ich meine, das sollte eine MD5 Kodierung sein, habs aber nicht ausprobiert.

falsch
MySQL nutzt eine eigene Verschlüsselung.

Ich würde eher gleich den MD5 Hash in die DB schreiben:
INSERT INTO tabellenname (username,passwort) VALUES ('Test1', MD5('passwort'));


Und dann anschliessend wie folgt:
Dein Delphi-Prog schickt nur den MD5 Hash an den Server.

Im PHP Skript steht dann folgendes:

Zitat:

<?
$db = mysql_connect('localhost', 'benutzername', 'MySQL-Passwort des Benutzers','DB-Name');
if ($db)
{
$q = mysql_query('SELECT * FROM tabellenname WHERE username="BENUTZER"');
$r = mysql_fetch_array($q);
if ($GESENDETES_PASSWORD == $r['passwort'])
echo "Sie sind eingeloggt";
else
echo "FALSCHES PASSWORD ODER BENUTZERNAME";

mysql_close($db);
}
else
{
echo "Kann keine Verbindung zum DB-Server herstellen.";
}
?>

Auf diese Art wird das Passwort nie im Klartext gesendet...

[H3llsing]

heya,
ich muss nochmal dieses alte Topic zum Leben erwecken.

Situation: Ich möchte einen String in Delphi mit der neusten DEC Unit SHA1 verschlüsseln, klappt auch ganz gut. Das ganze ist dann ein link der in einer Email als hash fungiert und soll mit der PHP-Funktion SHA1() verglichen werden.

Problem: DEC und PHP erzeugen einen unterschiedlichen HASHwert, bei exakt gleichem String.

Installiert ist DEC5.2 sowie PHP5 mit der integrierten SHA1-Funktion.

hier noch mein code

Code:

procedure TForm1.Button4Click(Sender: TObject);
var
  Digest: array[0..19] of byte;
  s : string;
  i : integer;
begin
  Hash.Init;
  hash.UpdateStr(Edit_sha1.Text);
  hash.Final(Digest);
  s:= '';

  for i:= 0 to 19 do
    s:= s + IntToHex(Digest[i],2);
    Edit_sha1.Text:= s;                         


end;

zum vergleichen für PHP gibts diese schöne Seite
Hash-Generator


MFG

H3llsing

[gammatester]

Die übliche Unicode-Katastrophe hast Du schon ausgeschlossen? Wird für den Ansistring "abc" ein SHA1-Werte von "a9993e364706816aba3e25717850c26c9cd0d89d" geliefert? Wer generische Strings hasht, sollte im Übrigen auf alles gefaßt sein.

[H3llsing]

VIELEN DANK ! :thumb:

ein einfaches

Delphi-Quellcode:

hash.UpdateStr(AnsiToUtf8(Edit_sha1.Text));

hat die gewünschte veränderung gebracht =)