Zitat von
agm65:
hi leute, ich kämpfe grade mit dieser php funktion:
Delphi-Quellcode:
function encode($value)
{
return substr(md5($value), 1, 13).(645 * $value).substr(md5($value / 7), 1, 5)
}
kann mir dabei einer helfen ?
Ich kann es versuchen
Hier mal ein kleiner Denkanstoß von mir. Dabei wird gefordert, dass die "Funktion" md5 das Ergebnis als String zurückliefert. Wird nicht 1:1 klappen aber vielleicht hilft es Dir ja ein wenig...
Delphi-Quellcode:
function encode(Value : String) : String
var tmp : string;
begin
tmp := '';
tmp := copy(md5(value), 1, 13) + InttoStr(StrToInt(value) * 645) + copy(inttostr(strtoint(md5(value)) / 7), 1, 5);
result := tmp;
end;
SCRaT