Convertir Codigo PHP en DELPHI
Hola,
quisiera saber si alguien me puede ayudar a convertir un codigo que hice en PHP para poder utilizarlo en Delphi XE...
en principio lo que este hace es revisar el usuario y la contraseña en una base de datos de un foro que tengo y luego muestra si los datos son correctos un mensaje de bienvenida, de lo contrario indica contraseña incorrecta, me gustaria saber si alguien puede ayudarme a elaborar un form con ese tipo de login y luego si es verdadero que muestre el form2.
les dejo el codigo aca:
<?php
$user = "$user";
$pass = "$pass";
include 'conf_global.php';
{
mysql_connect($INFO['sql_host'], $INFO['sql_user'], $INFO['sql_pass']);
mysql_select_db($INFO['sql_database']);
$query1 = mysql_query("SELECT * FROM members WHERE name = '$user'") or
die(mysql_error());
$rs1 = mysql_fetch_object($query1);
if (mysql_num_rows($query1) > 0)
{
$pSalt = $rs1->members_pass_salt;
$finalPass = md5(md5($pSalt) . md5($pass));
$query2 = mysql_query("SELECT * FROM members WHERE name like '$user' and members_pass_hash like '$finalPass'");
$rs2 = mysql_fetch_object($query2);
if (mysql_num_rows($query2) > 0)
{
echo 'Bienvenido!';
} else
{
echo 'Contraseña incorreta.';
}
}
}
?>
|