hilfe beim übersetzen einer php function in delphi

[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 ?
die md5 verschlüsselung habe ich schon !

[Luckie]

substr = copy :gruebel:

[Matze]

Zitat:

Zitat von Luckie

substr = copy :gruebel:

Jupp und die entsprechenden Parameter findest du hier.

Der Punkt (.) ist eine Stringverknüpfung, also in Delphi ein Plus (+). Der Rest müsste selbsterklärend sein. In Delphi benötigst du noch die Stringumwandlung des Integers, aber das ist wahrscheinlich klar.

[agm65]

okay bin soweit

Delphi-Quellcode:

function convertVID(value:String) :string;
begin
result := substr(md5Print(md5string(value), 1, 13) +
(645 * value) +
substr(md5Print(md5string(value / 7), 1, 5)   ;
end;

[scrat1979]

Zitat:

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

[agm65]

okay, bis hier hin geht alles...nur das ende will nicht:

Delphi-Quellcode:

tmp := copy(md5Print(md5string(value)), 1, 13) + InttoStr(StrToInt(value) * 645);
//+ copy(strtoint(value) / 7)), 1, 5);

[Matze]

Welche fehler kommen und was macht md5Print?

[agm65]

ich habs:

Delphi-Quellcode:

tmp := copy(md5Print(md5string(value)), 1, 13) + InttoStr(StrToInt(value) * 645) + copy(md5Print(md5string(floattostr(strtoint(value) / 7))), 1, 5);

lol, was nen ding...geht aber perfekt, danke euch !

[Matze]

Zwischen dem obigen einkommentierten Code und dem funktionierenden gibt es keinen Unterschied. Der obige einkommentierte Code funktionierte also. :gruebel:

Edit: Falls das aukommentierte dein Problem war, dann hätte offensichtlich sein müssen, wieso das nicht ging. ;)

[agm65]

abgesehen von floattostr....aber danke nochmal !