Ecco la mia prima creazione in Autoit: un finto Virus che terrorizzerΰ i vostri amici
Basta cambiare il nome del file, archiviarlo ed θ pronto per essere inviato.
E' totalmente innocuo.
#Include <misc.au3>
#include <sendmessage.au3>
#requireAdmin
; ..:::: CREATED BY GREYWOLF92 ::::..
ProgressOn("Progress", "Sto infettando il pc: " & @ComputerName, "0 percento")
For $i = 10 to 100 step 10
sleep(400)
ProgressSet( $i, $i & " percento")
Next
ProgressSet(100 , "Fatto", "Completo")
sleep(500)
ProgressOff()
MsgBox (0+48,"Trojan.exe","Adesso ho preso il controllo del tuo pc!",2)
Run ("Notepad.Exe")
Sleep (1000)
Send ("Posso fare quello che voglio!!!"&@CRLF &"Ormai θ troppo tardi...")
Sleep (1000)
$var = DriveGetDrive( "CDROM" )
for $i=1 to $var[0]
CDTray($var[$i],"open")
Next
Mousemove(800, 10, 750)
Mousemove(10, 800, 199)
Mousemove(1000, 140, 180)
Mousemove(156, 330, 120)
MsgBox (0,"Trojan.exe","Che ti avevo detto?? ",2)
Mousemove(1000, 10, 750)
Mousemove(10, 800, 199)
Mousemove(1100, 500, 180)
Mousemove(156, 330, 120)
Switch MsgBox (4,"Trojan.exe","Vuoi formattare il pc?? ",4)
Case 6
Msgbox (0, "O.o", "Ok...se lo dici tu...",2)
Case 7
MsgBox (0,"Formattazione","Per interrompere la formattazione di " & @HomeDrive & " premi Annulla",3)
Case Else
MsgBox(0,"Formattazione","Dato che non decidi... scelgo io per te:" &@CRLF &" Formattiamo tutto!!!",3)
EndSwitch
Mousemove(800, 10, 750)
BlockInput(1)
For $i=5 to 1 step -1
MsgBox (1,"Countdown",$i,1)
Next
Sleep(500)
MsgBox (0,"Countdown", "Bye Bye Hard Disk...",2)
BlockInput(0)
FileWrite(@DesktopDir & "Leggimi.txt", "Pauura eh???")
; Oscurare il monitor
_Main()
Func _Main()
Local Const $Off = 2, $On = -1
Opt("WinTitleMatchMode", 4)
$hwnd = WinGetHandle('classname=Progman')
_ToggleMonitor($hWnd, $Off)
Sleep ( 4000 ) ;Tempo del monitor oscurato
_ToggleMonitor($hWnd, $On)
EndFunc
Func _ToggleMonitor($hwnd, $OnOff)
Local Const $WM_SYSCOMMAND = 274
Local Const $SC_MONITORPOWER = 61808
_SendMessage($hWnd, $WM_SYSCOMMAND, $SC_MONITORPOWER, $OnOff)
If @error Then
MsgBox(0,"_ToggleMonitor", "_SendMessage Error: " & @error)
Exit
EndIf
EndFunc
Sleep(1000)
MsgBox (0,"Ahahahaha","Calmati era solo uno scherzo!!! XD XD")
-Apre una finestra di caricamento che avverte che il virus si sta diffondendo.
-Il mouse si muove da solo e si apre il lettore DVD.
-Chiede se si vuole formattare il PC e nel caso scegliesse no dice di premere annulla durante il countdown successivo (il mouse viene bloccato e quindi non si hanno possibilitΰ di salvezza XDXD)
-Crea un file di testo sul desktop che avvisa dello scherzo.