Testvirus selbst machen

[Die Muhkuh]

Zitat von Ultimator:

Wie wärs damit?

Delphi-Quellcode:

 FS: TFileStream;
str: string;

.
.
.
str := 'X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*'
FS.Write(str[1], SizeOf(str));

Ungetestet...

Hi,

nein, das geht auch nicht. Ich speichere das als Text weg. Ich versuchs mal mit ner anderen Endung

Ausserdem, muss es Length(Str) heißen

[edit]Mit .com gehts, aber es ist ja wieder nicht mein Prog , sondern die erstelle com-datei. [/edit]
[edit3] Der Virenscanner soll ja meinen, das mein Programm der Virus sei [/edit3]