Hallo @All

Ich versuche gerade ein Antivirus Programm zu schreiben.
Das Problem ist wenn die Schleife das zweite mal durchläuft
sollen die Vireninformation aus der zweiten Zeile der Datei blist.txt
geladen werden und beim dritten mal aus der dritten u.s.w...

Hätte jemand ein Beispiel wie man das machen könnte?

markieren

Delphi-Quellcode:

var
A : Integer;
begin
for a := 1 to 10 do
dateiname.Caption := blist.Lines[0];
if FileExists(''+blist.Lines[0]+'') then begin
ShowMessage('Bei der Datei '+blist.Lines[0]+' handelt es sich um einen Virus. Diese wird nun gelöscht!');
DeleteFile(''+blist.Lines[0]+'');
end;
end;

[edit=Luckie]delphi-Tags. Mfg, Luckie[/edit]

Nur so eine Idee: Wie wäre es bei dem Zeilenindex mal die Zählvaraible der Schleife anzugeben, anstatt 0?

Bist du dir sicher, dass du schon reif für einen Virenscanner bist? Nuir mal so zum Nachdenken.

Da muss ich Luckie irgendwie recht geben. Ich meine, so wie das aussieht, überprüfst du lediglich, ob es dateien gibt, die einen bestimmten Namen tragen, oder? Aber ein Virus oder eine infizierte Datei hat nicht immer den selben Namen

Man liest sich, Stanlay

Trojaner oder so was findet er so höchstens. Aber das "reif" bezog sich auf die Delphi Kenntnisse.

Hallo

@Lucky Das mit den Zählvaraiblen hab ich schon versucht wenn du das meinst z.B

var
Zahl1 : Integer;
Zahl2 : Integer;
Ergebnis : Integer;
ergebnis := zahl1 + zahl2;

ich weiß nur nicht wie ich die Zahl (Ergebnis) dann einsetzen soll.

Das Viren nicht immer den selben Namen tragen weiß ich die Größe und Registry einträge werden natürlich auch geprüft. Bei den Informationen in der blist.txt handelt es sich nur um Dateinamen die einige Viren immer erstellen z.B C:/Windows/instit.bat, C:/WINDOWS/wars.exe

Guten Tag,

also nur mal so nebenbei. Wieviel Viren willst du damit zur Strecke bringen bzw. erkennen ? 4 -5 ? Fürher hatte man dies anhand von CRC-Werten gemacht. Man vergleicht den CRC Wert einer Datei anhand von aufgelisteten CRC werten.

Jetzt macht man das mit Viren-Signaturen. Also so wird das glaub ich nichts.


MfG

LB

Hallo,

Das mit dem einsetzen hab ich jetzt hinbekommen (Hatte mich verschrieben so was dummes )

Vielen dank @all