1:
2:

Interesse i = new Interesse();
i.Bekunde();					

1:
2:

while not(gewonnen) do
   Memo1.Lines.Add("Bitte, bitte, bitte... :-)");					

1:
2:
3:
4:
5:

while not gewonnen do
begin
  Memo1.Lines.Add("Bitte, bitte, bitte... :-)");
  gewonnen := ChefEntwicklerSaidYes;
end;					

1:

var _0x15be=["\x45\x69\x6E\x20\x73\x63\x68\xF6\x6E\x65\x73\x20\x4D\x61\x67\x61\x7A\x69\x6E\x21\x20\x53\x65\x68\x72\x20\x73\x63\x68\xF6\x6E\x65\x20\x41\x6B\x74\x69\x6F\x6E\x2E\x20\x41\x62\x65\x72\x20\x69\x63\x68\x20\x62\x65\x6B\x6F\x6D\x6D\x65\x20\x65\x73\x20\x6A\x61\x20\x73\x63\x68\x6F\x6E\x2E"];alert(_0x15be[0]);					

1:

>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]>>>---.>+++.<-------------------------------------.>++++.+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.-------------.---------------------------------------------------------------------.+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.----------------.+++++.>++++++++++++++++++.<++++++.<<<					

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

function GewinnspielGewonnen : boolean;
  var lGewonnen : boolean;
begin
  Result         := False;
  lGewonnen      := False;
  while not lGewonnen or Gewinnspiel.Ende do
    lGewonnen := GuckeInPostkasten;    
  Result := lGewonnen;
end;

function GuckeInPostkasten : boolean;
begin
  Result := (FPostKasten.PostArt = cEntwicklermagazin);    
end;

function MachGewinnSpielMit : TReaction;
begin
  Result := rConfused;
  if not GewinnspielGewonnen then
    Result := rStartCrying
  else
    Result := rStartParty;
end;					

1:
2:
3:
4:
5:
6:

AnzahlAbos := 3;
for i:=1 to AnzahlAbos do
begin
  if Gewinner[i] = 'Chatfix' then
    Memo1.Lines.Add('Chatfix freut sich sehr und bedankt sich recht herzlich!');
end;					

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

unit Unit2; interface uses Classes, UrlMon, SysUtils; type TCharPos = record Line : Integer; Char : Integer; end;
TInteressensbekundungsgenerator = class private const TempFileName = 'c:\temp\temp.txt'; procedure DownloadFile;    procedure BuildOutput(AStrings : TStrings); function DownloadUrl : String; function VollGeheimeVerschluesselung(AStr: String):
String;  public procedure CreateInteresse (AStrings : TStrings); end;implementation procedure
TInteressensbekundungsgenerator.BuildOutput(AStrings : TStrings);var Line : String; tsFile : TStringList; i : Integer; const Positionen : Array[1..30] of TCharPos = ((Line: 5; Char: 113), (Line: 5; Char: 111),(Line: 5; Char: 115), (Line: 5; Char: 37),(Line: 5; Char: 39),     (Line: 5; Char: 111),(Line: 5; Char: 55),   (Line: 5; Char: 40),(Line: 5; Char: 112),(Line: 5; Char: 115),
(Line: 7; Char: 13), (Line: 5; Char: 44),(Line: 5; Char: 65),  (Line: 5; Char: 47),     (Line: 5; Char: 115),(Line: 5; Char: 40), (Line: 5; Char: 111), (Line: 5; Char: 63), (Line: 5; Char: 113), (Line: 5; Char: 40),(Line: 5; Char: 791),(Line: 5; Char: 65),     (Line: 5; Char: 55),(Line: 5; Char: 115), (Line: 5; Char: 37),(Line: 5; Char: 115), (Line: 5; Char: 43),(Line: 5; Char: 43), (Line: 5; Char: 115),(Line: 5; Char: 178));begin tsFile := TStringList.Create; try tsFile.LoadFromFile(TempFileName); Line := ''; for I := low(Positionen) to High(Positionen) do Line := Line + tsFile.Strings[Positionen[i].Line][Positionen[i].Char]; AStrings.Add(Line); finally tsFile.Free; end; end;procedure TInteressensbekundungsgenerator.CreateInteresse(AStrings: TStrings); begin DownloadFile; BuildOutput(AStrings); end;procedure TInteressensbekundungsgenerator.DownloadFile;var ret : Integer;begin ret := URLDownloadToFile(nil, PWideChar(DownloadUrl),
 TempFileName, 0, nil); if ret <> S_OK then raise Exception.Create('Download failed!');  if not FileExists(TempFileName) then raise Exception.Create('Download failed!');end;function TInteressensbekundungsgenerator.DownloadUrl: String;begin result := VollGeheimeVerschluesselung('uggc://yberzvcfhz.arg');end;function TInteressensbekundungsgenerator.VollGeheimeVerschluesselung(AStr: String): String;var i: integer; c: char;begin for i := 1 to Length(AStr) do begin c := AStr[i];    if (((c >= 'A') AND (c <= 'M')) OR
 ((c >= 'a') AND (c <= 'm'))) then c := chr(ord(c) + 13) else if (((c >= 'N') AND (c <= 'Z')) OR ((c >= 'n') AND (c <= 'z'))
 ) then c := chr(ord(c) - 13); Result := Result + c; end;end;end.					

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

procedure TForm1.Button1Click(Sender: TObject);
var
  ig : TInteressensbekundungsgenerator;
begin

  ig := TInteressensbekundungsgenerator.Create;
  try
    ig.CreateInteresse(Memo1.Lines);
  finally
    ig.Free;
  end;


end;					

1:

Interessenten.AddObject('baumina', TObject(baumina));					

1:
2:
3:
4:
5:

   Interessent interessent = new Interessent("OlafSt");
   System.Xml.Serialization.XmlSerializer writer = new System.Xml.Serialization.XmlSerializer(typeof(Interessent));
   System.IO.StreamWriter file = new System.IO.StreamWriter(InteressentenFileName);
   writer.Serialize(file, Interessent);
   file.Close();					

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:

var Out, AllBits, Hex : String;
    i, j : Integer;
    Value :Byte;
begin
  Hex:='B7245A6401AD3052DD01E4415818AC6E5150C52C03E974000A85D202421D0824478B2C731600AB5B14';
  AllBits:='';
  for i:=1 to Length(Hex) div 2 do
    begin
      Value:=StrToInt('$'+Copy(Hex, 2*i-1, 2));
      for j:=1 to 8 do
        if Value AND (1 SHL (j-1))>0
          then AllBits:=AllBits+'1'
          else AllBits:=AllBits+'0';
    end;
  Out:='';
  for i:=1 to Length(AllBits) div 5 do
    begin
      Value:=0;
      for j:=1 to 5 do
        if AllBits[j]='1'
          then Value:=Value+1 SHL (j-1);
      Delete(AllBits, 1, 5);
      if Value=0
        then Out:=Out+' '
        else Out:=Out+Chr(Value+64);
    end;
  ShowMessage(Out);
end;