Delphi Post, PHP Code richtig ausgelesen?

[SyntaxXx]

Hi und zwar bin ich mal gerade wider was am Proggen.

Es ist an für sih ganz leicht.
Nur jetzt ist die frage, ob ich den PHP Code richtig ausgelesen ahbe.

Ihr kennt vielleicht die Seite Lix.in.
Darüber kann man Links verschlüsseln lassen.

Jetzt will ich ein progrmm schreiben, das via Post nen link an die Seite schickt ihn verschlüsselt und den verschüsselten link wieder ausließt.

Jetzt bin ich mir halt nur nicht sicher ob meine Post daten richtig sind.

Mein Delphi Code:

Delphi-Quellcode:

      List := TStringList.Create;
        List.Add('url='+Edit1.Text);
        List.Add('button=Protect Link');
        List.Add('op=crypt_single');
      qtxt := idHTTP1.Post('http://lix.in/index.php',List);
      List.Free;

Der PHP Code:

Zitat:

<input type="text" name="url" size="40" style="font-family: Tahoma; font-size: 8pt" value="">



<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><input type="submit" value="Protect Link" name="button" style="color: #000000; font-family: Tahoma; font-size: 8pt; border: 1px solid #000000; background-color: #FFFFFF">
<input type="reset" name="reset" value="Clear" style="color: #000000; font-family: Tahoma; font-size: 8pt; border: 1px solid #000000; background-color: #FFFFFF">
<input type="hidden" name="op" value="crypt_single"></td>
<td align="right" style="padding-right: 5px">

<input name="captcha" type="hidden" value="0" /><input type="submit" name="mode" value="Captcha Off" style="color: #000000; font-family: Tahoma; font-size: 8pt; border: 1px solid #000000; background-color: #FFFFFF"> </form>

Ist das so richtig?
Wenn ja, stimmt beim auslesen des verschlüsselten links was nich.

[stiftII]

Hallo,
offenbar sendet der beim ersten mal nen cookie mit (PHPSESSID=... glaub ich(schau aber besser nochmal nach)). Danach allerdings nicht mehr.
Zudem gibts da noch "captcha=0" und zwischen Protect und Link ist nen +.

Delphi-Quellcode:

List := TStringList.Create;
        List.Add('PHPSESSID=cookie hier'); // nochmal den header überprüfen, wird beim ersten mal aber immer mitgesendet.
        List.Add('url='+Edit1.Text);
        List.Add('button=Protect+Link'); //+
        List.Add('op=crypt_single');
        List.Add('captcha=0');//Das wird auch noch gesendet
      qtxt := idHTTP1.Post('http://lix.in/index.php',List);
      List.Free;

grüße,
stift

[Matze]

Hallo,

der oben genannte Code hat mit PHP übrigens nichts zu tun. Das ist HTML.
Und du solltest den Betreiber von Lix.in um Erlaubnis fragen, ob du diesen Service automatisiert nutzen darfst. Das nur als Hinweis.