Janeiro 23, 2018, 04:09:50 am
collapse

Anúncios

Anúncios Google

Autor Tópico: [Source] Sistema de login (Forumeiros)  (Lida 1486 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
840 Visualizações
Última Mensagem: Dezembro 19, 2011, 08:36:18 pm
por sephiroth
0 Respostas
3057 Visualizações
Última Mensagem: Dezembro 27, 2011, 12:48:27 am
por sephiroth
3 Respostas
2704 Visualizações
Última Mensagem: Maio 24, 2013, 09:55:49 am
por RenanLV
0 Respostas
1328 Visualizações
Última Mensagem: Março 29, 2013, 03:33:17 pm
por RenanLV
2 Respostas
1317 Visualizações
Última Mensagem: Agosto 26, 2015, 12:22:34 pm
por zMagnus

Anúncios Google

* Posts Recentes Fora do Portal

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]


Dijir funfando no muaway ainda ? por YanFernandeS
[Janeiro 11, 2018, 03:59:00 am]


SPEED HACKER [ MU C.A BRASIL ] [ 08/01/2018 ] { UNICO FUNCIONAL } por admin
[Janeiro 02, 2018, 04:48:08 pm]


Hack para ArcheAage por tuliothuan
[Dezembro 19, 2017, 04:38:20 pm]


Re:Speed que funcione no Mu Dominium por admin
[Dezembro 03, 2017, 04:57:32 pm]


Speed que funcione no Mu Dominium por augustobernini
[Novembro 26, 2017, 03:54:43 pm]


Re:Banimento por ip ou HD ( geolocalização) muaway por clasof
[Novembro 24, 2017, 12:21:29 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