js=>Delphi

509
.
muhago97
помогите переделать этот код на дельфи
function aaHash($aa)
{
    $aa = md5($aa);
    $aa = str_split($aa);
    $aa = array_reverse($aa);
    $aa = implode('0', $aa);
    $aa = substr($aa, 5, 10);
    return $aa;
}

или эту
function Hash($str) {
    $s = preg_replace('~(?<=.)(?=.)~', '0', md5($str));
    preg_match('~.{5}(.{10})~', strrev($s), $a);
    return $a[1];
}
Всего: 1