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:

var
  data: TIdMultiPartFormDataStream;
  zhlr: integer; tmpstr: string;
begin
  data := TIdMultiPartFormDataStream.Create;
  try
    randomize;
    tmpstr := '';
    for zhlr := 1 to 5 do
      tmpstr := tmpstr + IntToStr(Random(10));
    data.AddFormField('email', frmNewUser.edtMail.Text);
    data.AddFormField('code', tmpstr);
    { Call the Post method of TIdHTTP and read the result into TMemo }
    form532.IdHTTP1.POST('http://pup-board.de/zufall.php', data);
    data.Free;
    data := nil;
    data := TIdMultiPartFormDataStream.Create;
    Memo1.Lines.Add('Mit diesem Link kann der Account aktiviert werden:');
    Memo1.Lines.Add('http://pup-board.de/activate.php?code='
      + tmpstr + '&email=' + frmNewUser.edtMail.Text);
    { add the used parameters for the script }
    data.AddFormField('zu', frmNewUser.edtMail.Text);
    data.AddFormField('betreff', Edit2.Text);
    data.AddFormField('text', Memo1.text);
    data.AddFormField('von', Edit1.Text);
    data.AddFormField('code', tmpstr);
    { Call the Post method of TIdHTTP and read the result into TMemo }
    Memo1.Lines.Text := form532.IdHTTP1.POST('http://pup-board.de/mail/mail.php', data);
  finally
    data.Free;
    end;                    

1:
2:
3:
4:
5:

<?php
$text = stripslashes($text);
mail("$zu","$betreff","$text","From: $von");
echo("E-Mail erfolgreich gesendet");
?>                    

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

<?php
 
include("config2.php");
 
$code = $_GET["code"];
$email = $_GET["email"];
 
mysql_query("INSERT INTO scriptmaker_activator (code, email) VALUES ('".$code."', '".$email."')");
 
?>