Add(MainForm,12142676,532,210)
{
 Width=637
 Height=383
 Caption="Пример Cryptography"
}
Add(Cryptography,6973355,616,273)
{
 link(onCrypt,4588001:doValue,[])
 link(Data,15424103:Text,[])
 link(Key,1782352:Var2,[])
}
Add(Cryptography,5267281,623,357)
{
 link(onCrypt,12306924:doText,[])
 link(Data,4588001:Value,[(629,339)(685,339)])
 link(Key,1782352:Var3,[(636,300)(638,300)(638,257)])
}
Add(Button,7836147,532,273)
{
 Left=525
 Top=75
 Caption="crypt"
 link(onClick,6973355:doCrypt,[])
}
Add(Button,5106960,532,357)
{
 Left=60
 Top=285
 Caption="encrypt"
 link(onClick,5267281:doCrypt,[])
}
Add(Edit,15424103,616,161)
{
 Left=120
 Top=75
 Width=400
 Text="hiasm"
}
Add(Edit,12306924,805,357)
{
 Left=120
 Top=285
 Width=400
 Text=""
}
Add(Edit,12437416,917,273)
{
 Left=120
 Top=135
 Width=400
 Text=""
}
Add(Edit,3895954,623,210)
{
 @Color=22015
 Left=120
 Top=15
 Width=400
 Text="xorkey"
}
Add(Label,13384348,532,161)
{
 Left=26
 Top=17
 Width=61
 Height=17
 Font=[MS Sans Serif,8,1,255,1]
 Caption="XOR_KEY"
}
Add(GetDataEx,1782352,623,252)
{
 link(Data,3895954:Text,[])
}
Add(StreamConvertor,11115644,805,273)
{
 Mode=2
 link(onResult,12437416:doText,[])
}
Add(Memory,4588001,679,273)
{
 link(onData,12568105:doEvent1,[])
}
Add(Hashsum,96254,973,406)
{
 HashType=1
 link(onResult,8471905:doText,[])
}
Add(Button,12629218,532,406)
{
 Left=525
 Top=135
 Caption="+SHA"
 link(onClick,5138011:doEvent1,[])
}
Add(Edit,8471905,1036,406)
{
 Left=120
 Top=165
 Width=400
 Text=""
}
Add(Label,6353965,364,210)
{
 Left=26
 Top=47
 Width=60
 Height=17
 Font=[MS Sans Serif,8,1,255,1]
 Caption="SHA_KEY"
}
Add(Edit,9108430,805,315)
{
 Left=120
 Top=105
 Width=400
 Text=""
}
Add(Hub,12568105,742,273)
{
 link(onEvent1,11115644:doConvert,[])
 link(onEvent2,9108430:doText,[(780,286)(780,321)])
}
Add(Label,16760565,30,110)
{
 Left=26
 Top=77
 Width=35
 Height=17
 Font=[MS Sans Serif,8,1,32768,1]
 Caption="string"
}
Add(Edit,902147,973,273)
{
 @Color=22015
 Left=120
 Top=45
 Width=400
 Text="shakey"
}
Add(Label,2685614,51,109)
{
 Left=26
 Top=107
 Width=60
 Height=17
 Font=[MS Sans Serif,8,1,32768,1]
 Caption="string(xor)"
}
Add(Label,2240250,50,103)
{
 Left=26
 Top=137
 Width=87
 Height=17
 Font=[MS Sans Serif,8,1,32768,1]
 Caption="string(xor+hex)"
}
Add(StrCatDelim,14398264,917,406)
{
 Delimiter="_"
 link(onStrCatDlm,96254:doHashsum,[])
 link(Str1,7339693:Var2,[])
 link(Str2,902147:Text,[(930,324)(979,324)])
}
Add(FormatStr,4313665,1029,476)
{
 Mask="str=%1;\r\nsha_hash=%2;"
 link(onFString,13790867:doAdd,[])
 link(Str1,7339693:Var3,[(1035,369)])
 link(Str2,8471905:Text,[])
}
Add(Memo,13790867,1127,476)
{
 Left=120
 Top=195
 Width=400
}
Add(Hub,5138011,623,406)
{
 link(onEvent1,14398264:doStrCatDlm,[])
 link(onEvent2,4313665:doString,[(833,419)(833,482)])
}
Add(GetDataEx,7339693,917,364)
{
 link(Data,12437416:Text,[])
}

<?php
$sha_key = 'shakey'; // секретный ключ

$sha1 = sha1( $_POST['str'] . '&' . $sha_key. );

if ($sha1 != $_POST['sha_hash'] ) {
	// тут содержится код на случай, если верификация не пройдена
    echo "Данные повреждены";
    exit;
}
?>

Подготовка к сборке проекта...
Генерация кода целевого языка
Компоновка проекта...
Command line: dcc32.exe "C:\Program Files (x86)\Hiasm\Elements\delphi\code\Project3.dpr" "-UC:\Program Files (x86)\Hiasm\." -Q
Borland Delphi  Version 12.0  Copyright (c) 1983,98 Inprise Corporation

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(89) Error: Undeclared identifier: 'CRYPT_MODE_CBC'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(90) Error: Undeclared identifier: 'CRYPT_MODE_ECB'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(91) Error: Undeclared identifier: 'CRYPT_MODE_CFB'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(92) Error: Undeclared identifier: 'CRYPT_MODE_CTS'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(135) Error: Undeclared identifier: 'MSSetKeyInitVector'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(136) Error: Undeclared identifier: 'CryptSetKeyParam'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(136) Error: Undeclared identifier: 'KP_MODE'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(194) Error: Undeclared identifier: 'MSEncryptString'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(235) Error: Undeclared identifier: 'ERROR_OPEN_SRC_FILE'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(241) Error: Undeclared identifier: 'ERROR_OPEN_DST_FILE'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(257) Error: Undeclared identifier: 'MSEncryptStream'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(257) Error: Not enough actual parameters

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(321) Error: Undeclared identifier: 'ERROR_OPEN_SRC_FILE'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(330) Error: Undeclared identifier: 'ERROR_OPEN_DST_FILE'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(335) Error: Undeclared identifier: 'MSEncryptStream'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(335) Error: Not enough actual parameters

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiEnCrypt.pas(529) Error: Undeclared identifier: 'MSSetKeyInitVector'

C:\Program Files (x86)\Hiasm\Elements\delphi\code\hiMainForm_5247BD0.pas(20) Fatal: Could not compile used unit 'hiEnCrypt.pas'
Сборка завершена.

<?php
$pub = <<<DATA
-----BEGIN PUBLIC KEY-----
MFwwDQYJKoZIhvcNAQEBBQADSwAwSAJBALqbHeRLCyOdykC5SDLqI49ArYGYG1mq
aH9/GnWjGavZM02fos4lc2w6tCchcUBNtJvGqKwhC5JEnx3RYoSX2ucCAwEAAQ==
-----END PUBLIC KEY-----
DATA;
$data = "Hiasm is my secret love.";
$pk  = openssl_get_publickey($pub);
openssl_public_encrypt($data, $encrypted, $pk);
echo chunk_split(base64_encode($encrypted));
?>

<?php
$key = <<<DATA
-----BEGIN RSA PRIVATE KEY-----
MIIBPQIBAAJBALqbHeRLCyOdykC5SDLqI49ArYGYG1mqaH9/GnWjGavZM02fos4l
c2w6tCchcUBNtJvGqKwhC5JEnx3RYoSX2ucCAwEAAQJBAKn6O+tFFDt4MtBsNcDz
GDsYDjQbCubNW+yvKbn4PJ0UZoEebwmvH1ouKaUuacJcsiQkKzTHleu4krYGUGO1
mEECIQD0dUhj71vb1rN1pmTOhQOGB9GN1mygcxaIFOWW8znLRwIhAMNqlfLijUs6
rY+h1pJa/3Fh1HTSOCCCCWA0NRFnMANhAiEAwddKGqxPO6goz26s2rHQlHQYr47K
vgPkZu2jDCo7trsCIQC/PSfRsnSkEqCX18GtKPCjfSH10WSsK5YRWAY3KcyLAQIh
AL70wdUu5jMm2ex5cZGkZLRB50yE6rBiHCd5W1WdTFoe
-----END RSA PRIVATE KEY-----
DATA;
$data = "JutBa0GLHzGrlygxwWr66cizw4W4za+DbzZweNM0iloCD7xEP9LclL013lcksJL5XhjW44U+oxpq cX1ZSLhWuA==";
$pk  = openssl_get_privatekey($key);
openssl_private_decrypt(base64_decode($data), $out, $pk);
echo $out;
?>

<?

$key = "dsfhdjsfhgsdfusfsdfsdfsdf1232343fdgdfgsdfsdfgtySDGUFD";

if($_POST['str']) {
	$str = $_POST['str'];
	
	$mc_d = mcrypt_module_open(MCRYPT_3DES,'',MCRYPT_MODE_CFB,'');
	
	$iv_size = mcrypt_enc_get_iv_size($mc_d);
	
	$iv = mcrypt_create_iv($iv_size,MCRYPT_RAND);
	
	mcrypt_generic_init($mc_d,$key,$iv);
	
	$crypt_text = mcrypt_generic($mc_d,$str);
	
	mcrypt_generic_deinit($mc_d);

	echo base64_encode($iv.$crypt_text);
	
	
	$iv_size1 = mcrypt_enc_get_iv_size($mc_d);
	
	$iv1 = substr($iv.$crypt_text,0,$iv_size1);
	
	$crypt_text2 = substr($iv.$crypt_text,$iv_size1);
	
	mcrypt_generic_init($mc_d,$key,$iv1);
	
	$text = mdecrypt_generic($mc_d,$crypt_text2);
	
	mcrypt_generic_deinit($mc_d);
	
	echo "<br />".$text;
	
	mcrypt_module_close($mc_d);
	
	
	
}

?>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title></title>
<meta name="" content="">
</head>
<body>

<form method="POST">
	<input type="text" name="str">
	
	<input type="submit">
</form>
</body>
</html>

Add(MainForm,2953706,21,105)
{
 Width=561
 Height=333
}
Add(Edit,5653465,196,112)
{
 Left=5
 Top=5
 Width=350
 Text="DB94B210C26D4A13599A13A9E52FECD6"
}
Add(Edit,440265,434,91)
{
 Left=5
 Top=55
 Width=350
 Text="KEY"
}
Add(Button,312859,140,161)
{
 Left=365
 Top=5
 Caption="hexToStr"
 link(onClick,6995826:doConvert,[])
}
Add(AESCipher,14417129,252,301)
{
 BlockMode=0
 Checksum=0
 link(onResult,7024902:doAdd,[])
 link(Data,13250558:Text,[])
 link(Password,440265:Text,[(265,212)(440,212)])
}
Add(Memo,7024902,385,301)
{
 Left=5
 Top=80
 Width=475
 Height=110
}
Add(StreamConvertor,6995826,196,161)
{
 Mode=3
 Point(Data)
 link(onResult,13250558:doText,[])
 link(Data,5653465:Text,[])
}
Add(Edit,13250558,252,161)
{
 Left=5
 Top=30
 Width=350
 Text=""
}
Add(Button,7920759,182,308)
{
 Left=365
 Top=30
 Caption="Decode"
 link(onClick,14417129:doDecrypt,[])
}

<?php

$str = 'Content';
if (strlen($str) % 16) {
    $str = str_pad($str, strlen($str) + 16 - strlen($str) % 16, "\0");
}

$key = 'KEY';
if (strlen($key) % 16) {
    $key = str_pad($key, strlen($key) + 16 - strlen($key) % 16, "\0");
}

$res1 = mcrypt_encrypt(MCRYPT_RIJNDAEL_128, $key, $str, MCRYPT_MODE_ECB);
echo strToHex($res1) . ' | mcrypt_encrypt';

echo "<hr>";
echo strToHex(openssl_decrypt($res1, "aes-128-ecb", $key, OPENSSL_RAW_DATA | OPENSSL_NO_PADDING)) . ' | openssl_decrypt';

echo "<hr>";

$res2 = openssl_encrypt($str, "aes-128-ecb", $key, OPENSSL_RAW_DATA | OPENSSL_NO_PADDING);
echo strToHex($res2) . ' | openssl_encrypt';

echo "<hr>";
echo strToHex(openssl_decrypt($res2, "aes-128-ecb", $key, OPENSSL_RAW_DATA | OPENSSL_NO_PADDING)) . ' | openssl_decrypt';


function strToHex($string) {
    $hex = '';
    for ($i = 0; $i < strlen($string); $i++) {
        $ord     = ord($string[$i]);
        $hexCode = dechex($ord);
        $hex     .= substr('0' . $hexCode, -2);
    }

    return strToUpper($hex);
}

?>