Fevereiro 20, 2018, 08:28:35 pm
collapse

Anúncios

Anúncios Google

Autor Tópico: [Source] Sistema de login (Forumeiros)  (Lida 1516 vezes)

Offline zMagnus

  • *
  • Iniciante
  • Agradecimentos:
    Agradeceu: 0
    Recebeu: 0
  • Mensagens: 6
  • Pontuação: 0
[Source] Sistema de login (Forumeiros)
« Online: Março 08, 2016, 01:10:31 pm »
Eae galerinha, resolvi postar uma função que eu fiz para logar no forumeiros, porém ela pode ser adaptada para qualquer outro fórum ou sistema de login php, menos os que possui captcha. segue o código.

Código:
You are not allowed to view links. Register or Login
function Contains(Search, Str: String): boolean;
begin
if Pos(LowerCase(Search), LowerCase(Str)) > 0 then
result := True
else
result := False;
end;


function Login(Username, Password: String): Boolean;
  var
    DataPost: TStringList;
    HTTP : TIdHttp;
    Response: TStringStream;
begin
  //Parametros
  DataPost := TStringList.Create;
  DataPost.Add('autologin=on');
  DataPost.Add('login=Login');
  DataPost.Add('password=' + Password);
  DataPost.Add('query');
  DataPost.Add('redirect');
  DataPost.Add('username=' + Username);
  //Criação dos componentes
  HTTP := TIdHttp.Create(nil);
  Response := TStringStream.Create('');
  //Configuração do IdHTTP
  HTTP.Request.Accept := 'text/html, */*';
  HTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1';
  HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
  HTTP.Request.ContentEncoding := 'multipart/form-data';
  HTTP.HandleRedirects := True;
  //Post
  HTTP.Post('http://seuforumeiro.net/login?', DataPost, Response);
  if Contains('Conectado como', Response.DataString) then
  Result := True
  else
  Result := False;
end;

Créditos zMagnus

Tags:
 

Tópicos Relacionados

  Assunto / Iniciado por Respostas Última Mensagem:
0 Respostas
854 Visualizações
Última Mensagem: Dezembro 19, 2011, 08:36:18 pm
por sephiroth
0 Respostas
3096 Visualizações
Última Mensagem: Dezembro 27, 2011, 12:48:27 am
por sephiroth
3 Respostas
2735 Visualizações
Última Mensagem: Maio 24, 2013, 09:55:49 am
por RenanLV
0 Respostas
1346 Visualizações
Última Mensagem: Março 29, 2013, 03:33:17 pm
por RenanLV
2 Respostas
1339 Visualizações
Última Mensagem: Agosto 26, 2015, 12:22:34 pm
por zMagnus

Anúncios Google

* Posts Recentes Fora do Portal

Re:SPEED HACKER MU 97D 1.0 por thalesq2
[Fevereiro 19, 2018, 07:39:58 pm]


Re:SPEED HACKER MU 97D 1.0 por thalesq2
[Fevereiro 18, 2018, 12:54:01 am]


Djir por bebe762
[Fevereiro 13, 2018, 04:01:57 am]


SPEED HACKER MU 97D 1.0 por sigle
[Fevereiro 10, 2018, 12:37:19 pm]


dowload do painel dijir por Terror_BR
[Fevereiro 04, 2018, 06:16:33 pm]


SPEED HACK MU AWAY [2018] por admin
[Janeiro 24, 2018, 10:17:51 pm]


Dijir no Muaway 16/01/2018 por mad
[Janeiro 16, 2018, 03:02:58 pm]


Re:Speed que funcione no Mu Dominium por augustobernini
[Janeiro 14, 2018, 08:06:21 am]

Anúncios


Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58