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