Cuando capturas la lista de campos que envía el formulario estos es los que se obtiene para establecer la conexión:
Código:
[vb_login_username] => DarkCode99
[vb_login_password] =>
[vb_login_password_hint] => clubdelphi
[x] => 74
[y] => 59
[s] =>
[securitytoken] => guest
[do] => login
[vb_login_md5password] => d41d8cd98f00b204e9800998ecf8427e
[vb_login_md5password_utf] => d41d8cd98f00b204e9800998ecf8427e
como ya te puse en mi anterior post, algunos de estos campos los ingresa o modifica el javascript que se ejecuta al enviar el formulario, y aquí no te puedo ayudar mucho mas por que el JAVASCRIPT lo desconozco, aunque aquí tienes el código por si deseas analizarlo
https://www.worldhack.net/foro/clien...n_md5.js?v=425
en cuanto a tu código suponiendo que se establezca bien la conexión SSL con el servidor, entonces deberías de añadir los campos faltantes:
Código Delphi
[-]
function codificarPassword(const password:String):string;
begin
if password='clubdelphi' then
result := 'd41d8cd98f00b204e9800998ecf8427e'
else
result := 'aquí falta poner las funciones que hace la librería de JAVASCRIPT con el password';
end;
...
try
Campos.Values['vb_login_username']:= txtUsuario.Text;
Campos.Values['vb_login_password']:= '';
Campos.Values['vb_login_password_hint'] := txtPassword.Text;
Campos.Values['x'] := '74';
Campos.Values['y'] := '59';
Campos.Values['s'] := '';
Campos.Values['securitytoken'] := 'guest';
Campos.Values['do'] := 'login';
Campos.Values['vb_login_md5password'] := CodificarPassword(txtPassword.Text);
Campos.Values['vb_login_md5password_utf'] := Campos.Values['vb_login_md5password'];
...
if SendRequest('www.worldhack.net','/foro/login.php?do=login', 443,Campos,Respuesta) then
begin
....
end;
finally
...
end;
Ya por ultimo no he podido probar todo esto por que ademas las credenciales a la pagina parecen no funcionar incluso ingresandolas a mano.
Un saludo