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 !