Delphi tool auf Spyware prüfen

  • Delphi tool auf Spyware prüfen

    Ich hab von nem coder ein tool mit dem scr code bekommen. Ich bin mir sicher das das tool irgendwas wieder auspioniert. Da ich leider nicht progen kann brin mir der src code nicht viel. Könnt ihr mir ein Tip geben wie ich das raus finde ob das tool nach Hause telefoniert.

  • unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
    IdHTTP, StdCtrls, PerlRegEx, ExtCtrls, TFlatButtonUnit, OleCtrls, SHDocVw;

    type
    TForm1 = class(TForm)
    mmo1: TMemo;
    lbl1: TLabel;
    tmr1: TTimer;
    lbl2: TLabel;
    procedure tmr1Timer(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    private
    procedure wmnChittest(var message: TWMNCHITTEST);
    message WM_NCHITTEST;
    { Private-Deklarationen }
    public
    { Public-Deklarationen }
    end;

    var
    Form1: TForm1;
    i: integer = 0;

    implementation

    {$R *.dfm}

    function MatchExpression(subj, expr: string; max: boolean = False): string;
    begin
    with TPerlRegEx.Create(nil) do
    begin
    RegEx := expr;
    Subject := subj;

    if Match then
    begin
    if max then
    repeat
    result := SubExpressions[SubExpressionCount]
    until not
    MatchAgain
    else
    result := SubExpressions[1];
    end;
    end;
    end;

    procedure Tform1.wmnChittest(var message: TWMNCHitTest);
    var
    punkt: Tpoint;
    begin
    punkt.x := message.XPos;
    punkt.y := message.YPos;
    punkt := screentoclient(punkt);

    if punkt.y < Form1.Height then
    message.result := HTcaption
    else
    message.result := HTclient;
    end;

    procedure TForm1.tmr1Timer(Sender: TObject);
    var
    region: HRGN;
    begin
    region := createroundrectrgn(0, 0, form1.width, form1.height, i, i);
    setwindowrgn(form1.handle, region, true);

    Inc(i);

    if i >= 80 then
    tmr1.Enabled := false;
    end;

    procedure TForm1.btn1Click(Sender: TObject);
    begin
    halt;
    end;

    procedure TForm1.btn2Click(Sender: TObject);
    var
    i: Integer;
    htmlcode,link : string;
    begin
    for i := 0 to mmo1.lines.count - 1 do
    if length(mmo1.lines) <> 0 then
    if mmo1.lines[i][1] = 'h' then
    begin
    wb1.Navigate('http://zensiert.de/rs_safe.php?url=' + mmo1.Lines[i]);
    while wb1.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;

    htmlcode := Variant(Wb1.Document).Body.OuterHTML;
    link := MatchExpression(htmlcode, '<BODY>(.*)</BODY');

    if link <> 'http://rapidshare.de/files/' then
    mmo1.Lines[i] := link;
    end;
    end;

    end.