Thema: Testvirus selbst machen

Einzelnen Beitrag anzeigen

Benutzerbild von Ultimator
Ultimator

Registriert seit: 17. Feb 2004
Ort: Coburg
1.860 Beiträge
 
FreePascal / Lazarus
 
#5

Re: Testvirus selbst machen

  Alt 19. Jun 2005, 15:19
Wie wärs damit?
markieren
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...
Julian J. Pracht