Forum: Sonstige Fragen zu Delphi
Delphi
by agm65,
12. Apr 2007
abgesehen von floattostr....aber danke nochmal !
Forum: Sonstige Fragen zu Delphi
Delphi
by agm65,
12. Apr 2007
ich habs:
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 !
Forum: Sonstige Fragen zu Delphi
Delphi
by agm65,
12. Apr 2007
okay, bis hier hin geht alles...nur das ende will nicht:
tmp := copy(md5Print(md5string(value)), 1, 13) + InttoStr(StrToInt(value) * 645);
//+ copy(strtoint(value) / 7)), 1, 5);
Forum: Sonstige Fragen zu Delphi
Delphi
by agm65,
12. Apr 2007
okay bin soweit
function convertVID(value:String) :string;
begin
result := substr(md5Print(md5string(value), 1, 13) +
(645 * value) +
substr(md5Print(md5string(value / 7), 1, 5) ;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by agm65,
12. Apr 2007
hi leute, ich kämpfe grade mit dieser php funktion:
function encode($value)
{
return substr(md5($value), 1, 13).(645 * $value).substr(md5($value / 7), 1, 5)
}
kann mir dabei einer helfen ?