PHP zu Delphi mit DCPCrypt

[s811]

Hallo :)
Ich versuche zur Zeit folgenden PHP-Code zu Delphi zu portieren:

Code:

function base16Encode($arg){
   $ret="";
   for($i=0;$i<strlen($arg);$i++){
      $tmp=ord(substr($arg,$i,1));   
      $ret.=dechex($tmp);   
}
   return $ret;
}

$key="1234567890987654";
$pubKey=base16Encode($key);
$link="http://test.com/testfile.zip";
$cp = mcrypt_module_open(MCRYPT_RIJNDAEL_128, '', 'cbc', '');
@mcrypt_generic_init($cp, $key,$key);
$enc = mcrypt_generic($cp, $link);   
mcrypt_generic_deinit($cp);   
mcrypt_module_close($cp);
$crypted=base64_encode($enc);
echo $crypted;

Weiß jemand, wie ich das zu Delphi portieren (mit Hilfe von DCPCrypt) kann?
Vielen Dank :)

[daywalker9]

Was hast du bisher gemacht?