Senin, 07 Maret 2011

PROGRAM PENGINTAI

 untuk remote melalui web aku pake LogMeIn..masuk aja langsung ke http://www.logmein.com


Sebelumnya register dulu trus untuk yang For Personal Use klik aja produk kemudian klik LogMeIn Free.

ni link softnya

http://www.megaupload.com/?d=A1A9EUKI

kalau remote melalui LAN aku pake Network.LookOut.Net.Monitor.for.Employees.Professional.v4.3.1

untuk komputer admin pilih yang atas trus untuk yang client pilih yang bawah. untuk client supaya gak ketauan clik silent aja. kalau udah di instal buka programnya trus add komputer. password untuk add komputer harus sama dengan password ketika install software.

ne linknya

http://www.megaupload.com/?d=210UFG0K

atau juga menggunakan yg ini

NET SUPPORT MANAGER 10

fitur-fitur :

1. Fungsi akses desktop dibedakan : Watch ( cuman liat desktop client doang ), Share ( yang me-remote dan yang di remote dapat mengunakan Mouse+keyboard barengan ) dan Control ( Mouse+keyboad Client hanya bisa dipakai oleh Admin yang me-remote, user cuman bisa nonton doang. Cucok buat ngerjain user jahil yg suka make netcut ).

2. Tampilan bisa Full Screen ataupun Window dan bisa Scale to Fit Screen

3. Bisa mengambil gambar, video, suara, rekam, nguping sound di client, dll dari PC Client. Cucok buat nonton bareng kalo ada user yg buka situs xxx

4. Bisa digunakan untuk mengontrol atau untuk AUDIT inventory, baik hardware yang terpasang maupun software yang terinstall. (untuk maintenace pc client)

5. Bisa untuk melakukan Transfer File, baik untuk mengirim atau mengambil file dari Client. iseng buat liat isi flasdik user dan meng-copy nya (kalo ada file bagus :D)
6. Bisa untuk Chatting LOCAL dengan 1 Client maupun beberapa client sekaligus tanpa perlu Chat Server. Bagus buat godain n pdkt kalo ada user cantik

7. Bisa untuk melakukan Reboot, Log Out paksa, buat user bandel yg suka mainan ARP (snnifing)

screen sut :
[Image: 2_190975237l.jpg]

link donlod : 4share
sumber : http://anggabhandel009.blogspot.com

Selasa, 08 Februari 2011

script VB startup

Persiapan:
1. Buat 1 Project baru dengan 1 Form, 1 Module,
dan 2 Commandbutton.
2. Copy-kan coding berikut ke dalam editor form & module ybt.
--------------------------------------------------------------------------------------------------------
'Tombol pertama untuk menjalankan program saat startup, sedangkan
'tombol kedua untuk menghapusnya dari daftar startup program.

Code di module

Spoiler
'Credit By AriTheLoverZ
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _
(ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" _
(ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As _
Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal _
hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal _
dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" _
(ByVal hKey As Long, ByVal lpValueName As String) As Long

Public Enum T_KeyClasses
HKEY_CLASSES_ROOT = &H80000000
HKEY_CURRENT_CONFIG = &H80000005
HKEY_CURRENT_USER = &H80000001
HKEY_LOCAL_MACHINE = &H80000002
HKEY_USERS = &H80000003
End Enum

Private Const SYNCHRONIZE = &H100000
Private Const STANDARD_RIGHTS_ALL = &H1F0000
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_LINK = &H20
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_EVENT = &H1
Private Const KEY_NOTIFY = &H10
Private Const READ_CONTROL = &H20000
Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or _
KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY _
Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) _
And (Not SYNCHRONIZE))
Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or _
KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) _
And (Not SYNCHRONIZE))
Private Const KEY_EXECUTE = (KEY_READ)
Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or _
KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Private Const REG_BINARY = 3
Private Const REG_CREATED_NEW_KEY = &H1
Private Const REG_DWORD = 4
Private Const REG_DWORD_BIG_ENDIAN = 5
Private Const REG_DWORD_LITTLE_ENDIAN = 4
Private Const REG_EXPAND_SZ = 2
Private Const REG_FULL_RESOURCE_DESCRIPTOR = 9
Private Const REG_LINK = 6
Private Const REG_MULTI_SZ = 7
Private Const REG_NONE = 0
Private Const REG_SZ = 1
Private Const REG_NOTIFY_CHANGE_ATTRIBUTES = &H2
Private Const REG_NOTIFY_CHANGE_LAST_SET = &H4
Private Const REG_NOTIFY_CHANGE_NAME = &H1
Private Const REG_NOTIFY_CHANGE_SECURITY = &H8
Private Const REG_OPTION_BACKUP_RESTORE = 4
Private Const REG_OPTION_CREATE_LINK = 2
Private Const REG_OPTION_NON_VOLATILE = 0
Private Const REG_OPTION_RESERVED = 0
Private Const REG_OPTION_VOLATILE = 1
Private Const REG_LEGAL_CHANGE_FILTER = (REG_NOTIFY_CHANGE_NAME _
Or REG_NOTIFY_CHANGE_ATTRIBUTES Or _
REG_NOTIFY_CHANGE_LAST_SET Or _
REG_NOTIFY_CHANGE_SECURITY)
Private Const REG_LEGAL_OPTION = (REG_OPTION_RESERVED Or _
REG_OPTION_NON_VOLATILE Or REG_OPTION_VOLATILE Or _
REG_OPTION_CREATE_LINK Or REG_OPTION_BACKUP_RESTORE)

Public Sub DeleteValue(rClass As T_KeyClasses, Path As String, sKey As String)
Dim hKey As Long
Dim res As Long
res = RegOpenKeyEx(rClass, Path, 0, KEY_ALL_ACCESS, hKey)
res = RegDeleteValue(hKey, sKey)
RegCloseKey hKey
End Sub

Public Function SetRegValue(KeyRoot As T_KeyClasses, Path As String, sKey As _
String, NewValue As String) As Boolean
Dim hKey As Long
Dim KeyValType As Long
Dim KeyValSize As Long
Dim KeyVal As String
Dim tmpVal As String
Dim res As Long
Dim i As Integer
Dim x As Long
res = RegOpenKeyEx(KeyRoot, Path, 0, KEY_ALL_ACCESS, hKey)
If res <> 0 Then GoTo Errore
tmpVal = String(1024, 0)
KeyValSize = 1024
res = RegQueryValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize)
Select Case res
Case 2
KeyValType = REG_SZ
Case Is <> 0
GoTo Errore
End Select
Select Case KeyValType
Case REG_SZ
tmpVal = NewValue
Case REG_DWORD
x = Val(NewValue)
tmpVal = ""
For i = 0 To 3
tmpVal = tmpVal & Chr(x Mod 256)
x = x 256
Next
End Select
KeyValSize = Len(tmpVal)
res = RegSetValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize)
If res <> 0 Then GoTo Errore
SetRegValue = True
RegCloseKey hKey
Exit Function
Errore:
SetRegValue = False
RegCloseKey hKey
End Function
'Credit By AriTheLoverZ



Code Ini Di Form
Spoiler
'Credit By AriTheLoverZ
Private Sub Command1_Click()
'Ganti kedua kata 'NotePad' di bawah dengan nama aplikasi Anda, dan
'c:windows
otepad.exe' di bawah dengan file aplikasi Anda...
SetRegValue HKEY_LOCAL_MACHINE, _
"SoftwareMicrosoftWindowsCurrentVersionRun", "NotePad", "c:windows
otepad.exe"
End Sub

Private Sub Command2_Click()
DeleteValue HKEY_LOCAL_MACHINE, _
"SoftwareMicrosoftWindowsCurrentVersionRun", "NotePad"
End Sub
'Credit By Nandha


Semoga Membantu

[Tutorial] Cara Menginstalasikan ActiveX Control (.ocx)

trik jadul alias dah basi sbenernya..
neh buat yang lum tauw aja yang udah taw silahkan duduk & diem aj...
:P:P
Di dalam forum Nstars.Net
ini bnyk software yg membutuhkan komponen ActiveX yg kdg gada ato ga
terinstalasi dgn baik di kompi pengguna. Gambar dbwh ini adalah problem
yg nongol klo ActiveX Control gada ato ga terinstalasikan dgn baik di
system Windows..

Posted Image

Posted Image

Dlm gmbr pertama komponen mswinsck.ocx dan gmbr kedua komponen RichTx32.ocx
yg gada ato ga terinstalasikan dgn baik di system Windows.. Artikel ini
akan membahas ttg prosedur meregistrasikan komponen ActiveX untuk Windows XP dan Windows Vista



Windows XP

Cara 1

  • Cek apakah file2 itu ada di folder system32
  • Klo blm ada, dongdot dl filenya trs copy ke folder system32
    Website bwt dongdot file2 ActiveX:
    Code:
    [url="http://www.ocxdump.com/"]www.ocxdump.com[/url]
  • Start - Run...
  • Ketik cmd di kotak dialog Run
  • Stlh muncul window commandprompt (window berwarna hitam dgn tulisan putih / DOS), ketik perintah berikut ini:

    Code:
  • regsvr32
    .exe
    mislnya
    Code:
  • regsvr32.exe mswinsck.ocx
  • Klo sukses akan muncul pesan sukses ky gmbr dbwh ini:

    Posted Image
  • Klo lo dah ga memerlukan komponen ActiveX maka komponen itu bs di unregister-kan dgn cara ky diatas, syntax nya adlh:

    Code:
  • regsvr32.exe /u 

    mislnya
    Code:
  • regsvr32.exe /u mswinsck.ocx


Cara 2
Prosedur
diatas sering agak ngerepotin bagi sebagian orang karena harus ngetik
di DOS command prompt. Nah, berikut ini cara bwt register ato
unregister komponen ActiveX lwt Windows Explorer dgn manfaatin shell
context menu. Jadi klo qta klik kanan pada file yg ber-ekstensi dll atau ocx maka menu register dan unregister akan muncul pada context menu.

Copy code di bawah ini ke notepad dan simpen dgn nama activexregunreg.reg

Code:
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\.exe]
@="exefile"
[HKEY_CLASSES_ROOT\.dll]
@="dllfile"
[HKEY_CLASSES_ROOT\.ocx]
@="ocxfile"
[HKEY_CLASSES_ROOT\.olb]
@="olbfile"
[HKEY_CLASSES_ROOT\exefile\shell\Register\command]
@="%1 /register"
[HKEY_CLASSES_ROOT\dllfile\shell\Register\command]
@="regsvr32.exe %1"
[HKEY_CLASSES_ROOT\ocxfile\shell\Register\command]
@="regsvr32.exe %1"
[HKEY_CLASSES_ROOT\olbfile\shell\Register\command]
@="regsvr32.exe %1"
[HKEY_CLASSES_ROOT\dllfile\shell\Silent Register\command]
@="regsvr32.exe /s %1"
[HKEY_CLASSES_ROOT\ocxfile\shell\Silent Register\command]
@="regsvr32.exe /s %1"
[HKEY_CLASSES_ROOT\olbfile\shell\Silent Register\command]
@="regsvr32.exe /s %1"
[HKEY_CLASSES_ROOT\exefile\shell\UnRegister\command]
@="%1 /unregister"
[HKEY_CLASSES_ROOT\dllfile\shell\UnRegister\command]
@="regsvr32.exe /u %1"
[HKEY_CLASSES_ROOT\ocxfile\shell\UnRegister\command]
@="regsvr32.exe /u %1"
[HKEY_CLASSES_ROOT\olbfile\shell\UnRegister\command]
@="regsvr32.exe /u %1"
[HKEY_CLASSES_ROOT\dllfile\shell\Silent UnRegister\command]
@="regsvr32.exe /u /s %1"
[HKEY_CLASSES_ROOT\ocxfile\shell\Silent UnRegister\command]
@="regsvr32.exe /u /s %1"
[HKEY_CLASSES_ROOT\olbfile\shell\Silent UnRegister\command]
@="regsvr32.exe /u /s %1"


Abis tu save file nya dan dobel klik file activexregunreg.reg dari Windows Explorer bwt memasukkannya ke sistem registry. Sekarang lo bisa klik kanan file komponen ActiveX, misalnya dll atau ocx dari Windows Explorer. Akan muncul shell context menu ky gmbr dbwh ini:

Posted Image



Windows Vista

  • Cek apakah file2 itu ada di folder system32
  • Klo blm ada, dongdot dl filenya trs copy ke folder system32
    Website bwt dongdot file2 ActiveX:
    Code:www.ocxdump.com
  • Klik Start
  • Di sblh kiri bwh ketik cmd
  • Bagian atas kotak Start akan berganti ke programs yg berisikan cmd
  • Klik kanan pada cmd dan pilih Run as Administrator
  • Klik smua pd tombol Continue dan Allow dan window berwarna hitam dgn tulisan putih / DOS akan nongol
  • Ketik:

    Code:
  • regsvr32.exe C:\Windows\System32\

    mislnya
    Code:
  • regsvr32.exe C:\Windows\System32\mswinsck.ocx
  • Klo sukses maka akan nongol pesan sukses ky dbwh ini:

    Quote
  • [b]:[/b]DllRegisterServer in C:\WINDOWS\System32\mswinsck.ocx succeeded.


Atau cara lainnya adalah:

  • Register dgn fungsi UAC dimatikan
    msconfig > tools > disable UAC
    trs restart kompi lo..

    Atau
  • Jalankan CLI dlm modus Run as Administrator dan ketik:

    Code:
  • Spoiler
    regsvr32 \windows\system32\mswinsck.ocx




Smoga berguna.. :D:D
TQ...

SUMBER  :N2

membuar ANTI VIRUS sederhana dengan menggunakan VISUAL BASIC 6

Cara Kerja AV(Antivirus) sederhana..
1. Engine scanner, ini merupakan komponen utama AV dalam mengenali sebuah pattern virus. Engine ini dapat dikelompokkan menjadi statis dan dinamis. Statis dalam hal ini dapat disebut menjadi spesifik terhadap pattern tertentu dari sebuah file virus. Checksum merupakan salah satu contoh dari engine statis ini. Dinamis dalam artian dia mengenali perilaku umum sebuah virus. Heuristic menjadi salah satu contohnya.
2. Database definition, menjadi sebuah referensi dari sebuah pattern file virus. Engine statis sangat bergantung kepada komponen ini.
3. Decompress atau unpacking engine, khusus untuk pengecekan file-file yang terkompresi (*.rar, *.zip, dll) atau kompresi atau packing untuk file PE seperti UPX, MeW , dll.

Tidak jarang hasil dari pengecekan terhadap file suspect virus menghasilkan false-positive bahkan false-negative (– false-positive berarti file yang bersih dianggap thread oleh AV, dan false-negative berarti file yang 100% thread akan dianggap bersih). Semua itu dapat diakibatkan oleh ketidak-sempurnaan dari engine scanner itu sendiri. Misal
pada contoh kasus Engine String scanner (–Engine scanner yang menyeleksi string-string dari file text-based), bila diterapkan rule 3 out of 5 (– bila AV menemukan 3 dari daftar 5 string kategori malicious) maka AV akan memberikan bahwa file terindikasi sebuah thread yang positif. Padahal file tsb nyatanya tidak menimbulkan efek berbahaya bila dijalankan atau dieksekusi. Kesalahan scanning macam ini lazim ditemukan untuk file-file *.VBS, *.HTML, dll. Untuk penggunaan engine checksum sangat banyak ditemui di beberapa software AV lokal. Checksum yang lazim digunakan diantaranya CRC16, CRC32, MD5, dll. Dikarenakan mudah untuk diimplementasikan. Engine ini sendiri bukannya tanpa cacat, Checksum bekerja dengan memproses byte demi byte dari sebuah file dengan sebuah algoritma tertenu (– tergantung dari jenis checksum yang digunakan) sehingga menghasilkan sebuah format tertentu dari file tsb. Contoh checksum menggunakan CRC32 dan MD5 :
* calCrc = CRC32(file_name_and_path)
* calMD5 = MD5(file_name_and_path)

Maka isi dari string calCrc adalah 7AF9E376, sedangkan untuk MD5nya adalah 529CA8050A00180790CF88B63468826A. Perlu diketahui bila virus menerapkan rutin yang mengubah byte tertentu dari badan virus tsb setiap kali maka penggunaan engine checksum ini akan kurang optimal karena bila 1 byte berubah dari file maka checksum juga akan berubah.

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

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 Function

Private Function BuildTable() As Boolean
Dim i As Long, x As Long, crc As Long
Const Limit = &HEDB88320
For i = 0 To 255
crc = iFor x = 0 To 7
If crc And 1 Then
crc = (((crc And &HFFFFFFFE) 2) And &H7FFFFFFF) Xor LimitElse
crc = ((crc And &HFFFFFFFE) 2) And &H7FFFFFFFEnd If
Next x
crcTable(i) = crc
Next iEnd Function

Private Sub Class_Initialize()
BuildTableEnd Sub
================= END HERE ====================

Lalu ketikkan kode berikut dalam event Command1_Click :
================= START HERE ====================

Dim namaFileBuka As String, HasilCrc As String
Dim CCrc As New clsCrc bikin objek baru dari class ClsCrc
Dim calCrc As Long
Dim tmp() As Byte array buat file yang dibaca

Private Sub Command1_Click()
CommonDialog1.CancelError = True error bila user mengklik cancel pada CommonDialog
CommonDialog1.DialogTitle = Baca File Caption commondialog
On Error GoTo erorhandle label error handle

CommonDialog1.ShowOpen
namafilbuka = CommonDialog1.FileNameOpen namafilbuka For Binary Access Read As #1 buka file yang dipilih dengan akses baca pada mode binary
ReDim tmp(LOF(1) - 1) As Byte deklarasi ulang untuk array, # Bugs Fixed #
Get #1, , tmp()
Close #1

calCrc = UBound(tmp) mengambil ukuran file dari array
calCrc = CCrc.CRC32(tmp, calCrc) hitung CRC

HasilCrc = Hex(calCrc) diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric
Text1.Text = HasilCrc tampilkan hasilnyaExit Sub

erorhandle:
If Err.Number <> 32755 Then MsgBox Err.Description error number 32755 dalah bila user mengklik tombol cancel pada saat memilih file
================= END HERE ====================

COba anda jalankan program diatas dengan memencet tombol F5, lalu klik Command1 untuk memilih dan membuka file. Maka program akan menampilkan CRC32nya.

Second#
Kode diatas dapat kita buat menjadi sebuah rutin pengecekan file suspect virus dengan antara membandingkan hasil CRC32nya dan database CRC kita sendiri. Algoritmanya adalah :
- Memilih file yang akan dicek- Membuka file tersebut dalam mode binary- Memproses byte demi byte untuk menghasilkan Checksum- Buka file database
- Ambil isi file baris demi baris- Samakan Checksum hasil perhitungan dengan checksum dari file

Format file database dapat kita tentukan sendiri, misal :
- FluBurung.A=ABCDEFGH- Diary.A=12345678
Dimana FluBurung.A adalah nama virus dan ABCDEFGH dalah Crc32nya. Jika kita mempunyai format file seperti diatas, maka kita perlu membaca file secara sekuensial per baris serta memisahkan antara nama virus dan Crc32nya. Dalam hal ini yang menjadi pemisah adalah karakter ‘=’.
Buat 1 module baru (– diberi nama module1) lalu isi dengan kode :
================= START HERE ====================
Public namaVirus As String, CrcVirus As String deklarasi variabel global untuk nama dan CRC virus Public pathExe as String deklarasi variabel penyimpan lokasi file EXE AV kita
Public Function cariDatabase(Crc As String, namaFileDB As String) As Boolean
Dim lineStr As String, tmp() As String variabel penampung untuk isi file
Open namaFileDB For Input As #1 buka file dengan mode input
Do
Line Input #1, lineStr
tmp = Split(lineStr, “=”) pisahkan isi file bedasarkan pemisah karakter ‘=’
namaVirus = tmp(0) masukkan namavirus ke variabel dari array
CrcVirus = tmp(1) masukkan Crcvirus ke variabel dari arrayIf CrcVirus = Crc Then bila CRC perhitungan cocok/match dengan database
cariDatabase = True kembalikan nilai TRUEExit Do keluar dari perulanganEnd If
Loop Until EOF(1)
Close #1
End Function
================= END HERE ====================

Lalu tambahkan 1 objek baru kedalam Form, yaitu Command button2. lalu ketikkan listing kode berikut kedalam event Command2_Click :
================= START HERE ====================
If Len(App.Path) <= 3 Then bila direktori kita adalah root direktori
pathEXE = App.PathElse
pathEXE = App.Path & “”
End If

CommonDialog1.CancelError = True error bila user mengklik cancel pada CommonDialog
CommonDialog1.DialogTitle = Baca File Caption commondialog
On Error GoTo erorhandle label error handle

CommonDialog1.ShowOpen
namafilbuka = CommonDialog1.FileNameOpen namafilbuka For Binary Access Read As #1 buka file yang dipilih dengan akses baca pada mode binary
ReDim tmp(LOF(1) - 1) As Byte deklarasi ulang untuk array # Bugs Fixed #
Get #1, , tmp()
Close #1

calCrc = UBound(tmp) mengambil ukuran file dari array
calCrc = CCrc.CRC32(tmp, calCrc) hitung CRC

HasilCrc = Hex(calCrc) diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numericIf cariDatabase(HasilCrc, pathEXE & DB.txt”) Then bila fungsi bernilai TRUE
MsgBox Virus ditemukan :  & namaVirus tampilkan message BoxEnd If
Exit Sub

erorhandle:
If Err.Number <> 32755 Then MsgBox Err.Description error number 32755 dalah bila user mengklik tombol cancel pada saat memilih file
================= END HERE ====================

Sabtu, 05 Februari 2011

SOFWARE PENCARI SERIAL NUMBER DENGAN MUDAH

Jika
kita ingin mencari Serial number, crack ataupun keygen dari suatu
Software atau program biasanya kita mencari menggunakan Google ataupun
yahoo dengan mengggunakan kata kunci tertentu sehingga nantinya hasil
pencariannya akan diberikan Link website-website yang menyediakannya.
Ataupun dapat juga langsung mengunjungi website yang khusus menyediakan
hal tersebut seperti Astalavista.
tapi adakalanya jika kita langsung mengunjungi website-website tersebut
sering kali kita direpotkan oleh Spam, popup ataupun spyware yang
terdapat dalam website tersebut.

Jika ingin aman dan tidak
direpotkan oleh hal-hal semacam itu, kita bisa menggunakan suatu
software yang bisa mencari Serial number ataupun crack dari suatu
software tanpa kita harus masuk langsung ke website yang menyediakan
hal tersebut.

Nama Softwarenya adalah "CRAAGLE" yang merupakan
software ringan yang bisa digunakan untuk mencari serial number dan
Crack dari suatu software secara online dengan hanya mengetikkan nama
software yang akan kita cari pada kolom searchnya.


Gambaran umum dari software ini dapat dilihat dibawah ini :

Cara menggunakannya cukup mudah,


  • Download Softwarenya disini
  • Setelah
    didownload, Ekstrak kedalam komputer anda dan langsung jalankan program
    ini (tidak perlu proses instalasi) dengan mengklik file "Craagle.exe"
  • Pastikan koneksi internet anda sudah aktif
  • Ketikkan nama Software/program yang akan dicari pada kotak "Search" lengkap dengan Versinya contoh : Winzip 9.0
  • lalu tandai jenis pencariannya "Crack", "Serial" ataupun "Cover"
  • Klik Tombol "Search"
  • Biarkan software ini bekerja mencari yang anda inginkan
  • Jika telah selesai bekerja, hasil pencarian akan terlihat seperti gambar dibawah ini :

Untuk
serial number tinggal anda klik saja salah satu hasil pencariannya dan
akan terlihat isi serial numbernya pada kotak dibawahnya. Untuk crack
dan covers, pilih hasil pencarian yang ada, klik kanan dan pilih
Download.

Posting ini hanya sekedar tutorial untuk pengetahuan
belaka, jika terdapat penyalahgunaan dari software ataupun tutorial
ini, bukan merupakan tanggung jawab penulis.

Semoga berguna
sumber : http://anggabhandel009.blogspot.com

Prevx 3.0

Prevx Antivirus,Antivirus Sangat Ringan dan telah diakui Dunia sebagai Antivirus Standar Dunia.Ukurannya Hanya 923Kb,tetapi kinerjanya yg cepat dan kelebihannya pada RTP membuat Antivirus ini sangat Istimewa.Bagi yang ingin mencoba Prevx Bisa Download Disini >
DISINI

Download AVG Antivirus 2011 Offline Baru

AVG AntiVirus 2011 Offline Installer memungkinkan Anda untuk:

* Jelajahi dan telusuri dengan penuh keyakinan Perlindungan seketika AVG LinkScanner
* Tetap terlindungi di jaringan sosial dengan Perlindungan Jaringan Sosial AVG
* Nikmati PC yang berjalan lebih cepat Pemindaian Cerdas AVG bekerja selagi Anda tinggalkan dan berjalan dalam mode prioritas rendah saat Anda kembali
* Tetap terinformasikan dengan informasi ancaman terbaru dari Jaringan Perlindungan Komunitas AVG dan Teknologi Awan Pelindung AVG

Silahkan anda unduh gratis AVG AntiVirus 2011 Offline Installer dibawah ini:









  • Free Download AVG Antivirus 2011 untuk Windows (32bit)







  • Free Download AVG Antivirus 2011 untuk Windows (64bit)







  • Free Download Serial Number AVG Antivirus 2011 Offline (SN)

  •  
    Klik689 © 2011 Templates | Nanda