مثال عن برمجة الـ http بالدلفي.

[onexite]

تم تطوير السكربت قليلا
test.php

PHP كود :

<?php
function _xor($String, $Key){

for ($i = 0; $i < strlen($String); $i++){
$String[$i]= chr(ord($String[$i]) ^ $Key);
}
return $String ;
}

$_var = _xor($_POST["data"]."\r\n",21) ; 
$_hand= fopen("data.txt","a") ; 
fwrite($_hand,$_var) ;
 Fclose ($_hand) ;

?>

index.php

PHP كود :

<?php
if (isset($_GET["data"])){
if($_GET["password"]=="123456"){
function _xor($String, $Key){

for ($i = 0; $i < strlen($String); $i++){
$String[$i]= chr(ord($String[$i]) ^ $Key);
}
return $String ;
}

echo '<center><table style="border: 1px solid #999666;">
<tr align="center" ><th colspan=1> Welcome to the Control Panel :</th></tr>
<td>';
$myFile = "data.txt";
//if (fileexists("data.txt")){
$fh = fopen($myFile, 'r');
$theData = fread($fh, filesize($myFile));
fclose($fh);
//}
echo' <textarea  name="msg" rows="20" cols="90" ">'._xor($theData,21).'</textarea></div></center></td>
</table></center>';

}}
 
 ?>

يجب ان يكون مسار الدخول

كود :

http://127.0.0.1/data/?password=123456

PHP كود :

http.RequestMethod := 'POST';//1
http.postStr:=('data=' + Edit1.Text);//2
http.ExecuteURL('http://127.0.0.1/test.php');//3