Dezembro 17, 2017, 09:08:11 pm
collapse

Anúncios

Anúncios Google

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

Anúncios Google

* Posts Recentes Fora do Portal

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]


Re:MuAway por clasof
[Novembro 24, 2017, 12:20:05 am]


Re:MuAway por z8brall
[Novembro 21, 2017, 05:06:35 pm]


97D HARD 100XP por curujinha
[Outubro 19, 2017, 10:59:54 am]


Mu Trance 97D Classico Hard 100 XP por curujinha
[Outubro 19, 2017, 10:50:41 am]


Re:MU[SpeedHackv.5.4a3.3]by.zela por nbzero
[Outubro 18, 2017, 07:35:45 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