Ingresar login de un sitio web desde Delphi

[Dark_Code]

Empezado por bucanero

Hola a todos si compruebas los campos que tiene el formulario HTML de ingreso...

Entonces como seria el codigo para que se loguee perfectamente en delphi ?

[bucanero]

Cuando capturas la lista de campos que envía el formulario estos es los que se obtiene para establecer la conexión:

    [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
  /// esta función debe hacer lo mismo que la función original de JAVASCRIPT.
  if password='clubdelphi' then 
    /// para el password 'clubdelphi' el valor que retorna es este:
    result := 'd41d8cd98f00b204e9800998ecf8427e'
  else 
    result := 'aquí falta poner las funciones que hace la librería de JAVASCRIPT con el password';
end; 

  ...
  try
    ///estos son los campos que debes de insertar
    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'];

    ...
    // aquí he modificado la URL de destino e importante: el puerto ha de ser SSL y por defecto es el 443, aunque dependiendo de la configuración del servidor pudiera se cualquier otro.
    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

[Neftali [Germán.Estévez]]

Empezado por bucanero

Ya por ultimo no he podido probar todo esto por que ademas las credenciales a la pagina parecen no funcionar incluso ingresandolas a mano.

+1
Siguen sin funcionar.