1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  PostDataStream : TStringStream;
  ParamData : TStringStream;
begin
  IdHTTP:= TIdHTTP.Create(nil);
  PostDataStream := TStringStream.Create('');
  ParamData := TStringStream.Create('');
  ParamData.WriteString('email=lawel&password=');
  IdHTTP.Post('http://www.schuelervz.net/login.php' , ParamData, PostDataStream);
  postdatastream.Position:=0;
  memo1.Text:=postdatastream.DataString;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

begin
  IdHTTP:= TIdHTTP.Create(nil);
  PostDataStream := TStringStream.Create('');
  ParamData := TStringStream.Create('');
  ParamData.WriteString('?login=einloggen&email=lawel&password=1234');
  IdHTTP.Post('http://www.schuelervz.net/login.php' , ParamData, PostDataStream);
  postdatastream.Position:=0;
  memo1.Text:=postdatastream.DataString;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  PostDataStream : TStringStream;
  ParamData : TStringStream;
begin
  IdHTTP:= TIdHTTP.Create(nil);
  PostDataStream := TStringStream.Create('');
  ParamData := TStringStream.Create('');
  ParamData.WriteString('?Login=einloggen&email=test&password=pw');
  IdHTTP.Post('http://www.schuelervz.net/Login.php' , ParamData, PostDataStream);
  postdatastream.Position:=0;
  memo1.Text:=postdatastream.DataString;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

<form id="Login" method="post" action="https://secure.schuelervz.net/Login">
        <fieldset>
            <label for="Login_email">E-Mail</label>
            <input class="fieldText" type="text" name="email" id="Login_email" value="" />
            <label for="Login_password">Passwort</label>
            <input class="fieldText" type="password" name="password" id="Login_password" value="" />

            <input class="fieldBtnSubmit" type="submit" name="login" value="Einloggen" />
            <input type="hidden" name="jsEnabled" id="jsEnabled" value="false" />
            <input type="hidden" name="formkey" value="(von mir entfernt wegen Datenschutz)" />
<input type="hidden" name="iv" value="(Von mir entfernt, so.o.))" />
<input type="hidden" name="checkcode" value="(auch von mir entfernt)" />

        </fieldset>
    </form>                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Button1Click(Sender: TObject);
var
  bla:tstringlist;
  IdHTTP: TIdHTTP;
  PostDataStream : TStringStream;
  ParamData : TStringStream;
begin
bla := tstringlist.create;
  IdHTTP:= TIdHTTP.Create(nil);
  idHTTP.AllowCookies := true;
  PostDataStream := TStringStream.Create('');
  ParamData := TStringStream.Create('');
  ParamData.WriteString('?login=Einloggen&email=&password=pw');
  IdHTTP.Post('http://www.secure.schuelervz.net/Login' , ParamData, PostDataStream);
  postdatastream.Position:=0;
  memo1.Text:=postdatastream.DataString;
  bla.add(memo1.text);
  bla.savetofile ('test.html');

end;                    

1:

   IdHTTP1.AllowCookies := true;                    

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:

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  stream: TStringList;
  //SSLIOHandler: TIdSSLOpenSSL;
begin
  try
    try
      IdHttp1.HandleRedirects := true;
      IdHTTP1.AllowCookies:=true;
      IdHTTP1.CookieManager:=IdCookieManager1;

      stream := TStringList.Create;
      Stream.Add('login='+Login.Text);
      Stream.Add('pass='+Passwort.Text);

      s := idhttp1.Post('http://www.comunio.de/index.phtml',stream);

      if (Pos('Du bist als',s) > 0) then //Erfolgreich eingeloggt?
        ShowMessage('Du bist Eingeloggt.');
      if (Pos('Du bist als',s) = 0) then //Fehler!
        ShowMessage('Leider ist die E-Mail-Adresse oder das Passwort falsch.');
    finally
      Stream.Free;
    end;
  except on E: Exception do
    ShowMessage(E.Message);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

<!-- login --><form method="post" action="login.phtml" name="login" style="display:inline"><table border="0" cellpadding="0" cellspacing="1"><tr><td align="right" valign="middle" class="text">Benutzername: <a href="signup.phtml" class="links" title="Anmelden">noch nicht angemeldet?</a></td><td align="right" valign="middle"><input type="text" name="login" size="10" maxlength="10" tabindex="1" style="width:80px;" /> </td></tr><tr><td align="right" valign="middle" class="text">Passwort: <a href="recoverPassword.phtml" class="links" title="Wiedererlange dein Passwort">vergessen?</a></td><td align="right" valign="middle">
  <input type="password" name="pass" size="10" maxlength="8" style="width:80px;" tabindex="2" onkeypress="checkEnter(event, 'login')" /> </td></tr><tr><td colspan="2" align="right"><input type="hidden" name="action" value="login" />

      <script language="JavaScript" type="text/javascript">
  <!--
document.write("<input type=\"hidden\" name=\">> Login\" value=\"-1\" \/>");document.write("<a href=\"javascript:submitForm('login','>> Login')\;\"");document.write(" tabindex=\"3\"");document.write(" class=\"login\"");document.write(" title=\">> Login\"");document.write(">");document.write(">> Login");document.write("<\/a>");
        //-->
      </script>
      <noscript>
<input type="submit" name=">> Login_x" value=">> Login" /></noscript>
 </td></tr></table></form><script language="javascript" type="text/javascript">
<!--
document.login.elements[0].focus();
// -->
</script><!-- login end --></td>                    

1:
2:
3:
4:
5:

      stream := TStringList.Create;
      Stream.Add('login='+Email.Text);
      Stream.Add('pass='+Passwort.Text);
      Stream.Add('action=login');
      Stream.Add('Login=-1');                    

1:
2:
3:
4:
5:

   Parameter        Value 
      login      ******
      pass      ******
      action      login
      >> Login_x    33                    

1:
2:
3:
4:
5:

stream := TStringList.Create;
      Stream.Add('login='+Email.Text);
      Stream.Add('pass='+Passwort.Text);
      Stream.Add('action=login');
      Stream.Add('%3E%3E+Login_x=33');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

        stream := TStringList.Create;
      Stream.Add('login='+Email.Text);
      Stream.Add('pass='+Passwort.Text);
      Stream.Add('action=login');
      Stream.Add('%3E%3E+Login_x=33');
      //Stream.Add('>> Login_x=33');

if (Pos('Logout',s) > 0) then //Erfolgreich eingeloggt?
        ShowMessage('Du bist Eingeloggt.');                    

1:
2:
3:

    IdHttp1.HandleRedirects := true;
      IdHTTP1.AllowCookies:=true;
      IdHTTP1.CookieManager:=IdCookieManager1;                    

1:
2:

      if (Pos(Email.Text,s) > 0) then //Erfolgreich eingeloggt?
        ShowMessage('Du bist Eingeloggt.');                    

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:

 
var sHTMLCode: String;
  iPos1, iPos2: Integer;
  sFormKey, sIV, sCheckCode: String;
  slParams: TStringList;
  ReplyData :TStringStream;
begin
  slParams :=TStringList.Create;
  sHTMLCode :=IdHTTP.Get('http://www.studivz.net/Messages/Inbox/p/1');
  iPos1 :=Pos('readInboxMessage" content="formkey=', sHTMLCode) +35;
  iPos2 :=PosEx('&', sHTMLCode, iPos1);
  sFormKey :=Copy(sHTMLCode, iPos1, iPos2-iPos1);
  iPos1 :=PosEx('iv="', sHTMLCode, iPos2)+3;
  iPos2 :=PosEx('"', sHTMLCode, iPos1);
  sIV :=Copy(sHTMLCode, iPos1, iPos2-iPos1);
  iPos1 :=PosEx('name="checkcode" value="', sHTMLCode, iPos2)+24;
  iPos2 :=PosEx('"', sHTMLCode, iPos1);
  sCheckCode :=Copy(sHTMLCode, iPos1, iPos2-iPos1);

  slParams.Add('formkey='+sFormKey);
  slParams.Add('iv='+sIV);
  slParams.Add('messageID='+'58497883');
 // slParams.Add('checkcode='+sCheckCode);

  ReplyData := TStringStream.Create('');
  idhttp.Post('http://www.studivz.net/Messages/Inbox/p/1', slParams, ReplyData);
  slParams.Free;


  memlog.Lines.Add(idhttp.get('http://www.studivz.net/Messages/Inbox/p/1'));
  memlog.Lines.SaveToFile('c:\memlg.txt');
  memlog.Text:= ReplyData.datastring;
  memlog.Lines.SaveToFile('c:\replay.txt');
  ReplyData.Dispatch();
  ReplyData.Free;
end;