Bin ich befallen?

[himitsu]

Die Rescue Disk läd noch 'nen Weilchen

und der super DE-Cleaner von botfrei hat zwar 10 (eigentlich nur 3, da Kopieen) Dateien gefunden und als bösartig eingestuft.

Zwei Dateien kenn ich genau, da sie selbsgeschrieben sind und die andere ist von einem DP-Mitglied der Codepad 2.0.



Die eine Datei macht übrigens nix anderes, als

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
  Procedure Search(Const Dir, Name: String);
    Var SR: TSearchRec;

    Begin
      Caption := Dir;
      Application.ProcessMessages;
      If FindFirst(Dir + Name, faAnyFile, SR) = 0 Then Begin
        Repeat
          If (SR.Name = '') or (SR.Name = '.') or (SR.Name = '..') Then Continue;
          If SR.Attr and faDirectory = 0 Then Memo1.Lines.Add(Dir + SR.Name)
          Else Memo1.Lines.Add(Dir + SR.Name + '\');
        Until FindNext(SR) <> 0;
        FindClose(SR);
      End;
      If FindFirst(Dir + '*.*', faDirectory, SR) = 0 Then Begin
        Repeat
          If (SR.Name = '') or (SR.Name = '.') or (SR.Name = '..') Then Continue;
          If SR.Attr and faDirectory <> 0 Then Search(Dir + SR.Name + '\', Name);
        Until FindNext(SR) <> 0;
        FindClose(SR);
      End;
    End;

  Begin
    Button1.Enabled := False;
    Memo1.Lines.Clear;
    Search('', Edit1.Text);
    Caption := 'Form1';
    Button1.Enabled := True;
  End;

Procedure TForm1.Edit1KeyPress(Sender: TObject; Var Key: Char);
  Begin  If Key = #13 Then Button1.Click;  End;

(die XP-Suche war halt nicht unbedingt zuverlässig/schnell)


Also 'nen reines Delphi-Gebashe ... weil Delphi-Programme ja immer sooooo böse sind.