Einzelnen Beitrag anzeigen

Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#6

Re: Testvirus selbst machen

  Alt 19. Jun 2005, 15:23
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]