XConnection

Tujuan:
1. Mengetahui koneksi [internet] pada komputer
2. Mengetahui Host yang aktif

ActiveX ini hanya mempunyai 2 fungsi :
1. Connect --> Type Boolean [True = Connect, False = Not Connect]
2. ConnectTo --> Type Boolean [True = Connect, False = Not Connect], Parameter [URL = Alamat Situs]

oke, untuk lebih jelasnya, silahkan download saja projectnya

http://www.4shared.com/file/202931666/e2babc3/XConnectionVB.html

Read more »

MD5 Decryptor dengan VB 6.0

MD5 adalah teknik enkripsi one way hash [Hash yang sebenarnya tidak dapat di-decrypt], namun ada cara untuk melakukan decrypt terhadap MD5, yaitu dengan menggunakan dictionary attack [kumpulan MD5, beserta string-nya] dan brute force [mencoba berbagai kemungkinan]...

nah, yang akan ku share kali ini adalah dengan cara penggunaan dictionary attack....

saya rasa, semua decryptor untuk enkripsi yang menggunakan teknik one way hash [enkripsi satu arah] dapat menggunakan dictionary attack, namun kelemahannya pastinya pada database [library signature MD5 yang ada], semakin banyak pengenal, semakin banyak pula MD5 yang dapat di decrypt dan sebaliknya.


pembuatan-nya disini juga untuk mengenalkan routine yang ada pada Module di project, yang menggunakan fungsi API "GetPrivateProfileString"....
nah, sebenarnya yang kutekankan disini adalah cara penggunaan fungsi API tersebut....
jika kalian sudah paham penggunaannya, nantinya bisa juga loh untuk mengecek file Autorun.inf [triger/pemicu dari malware], atau file [konfigurasi] lainnya.

ya sudah, karena disini adalah untuk mendecrypt si MD5, cobalah download project ini http://www.4shared.com/file/213761062/95fcf642/MD5_En-Dec.html

Thx to.
My Jesus, My Family, Gemabel, PSC, Ahlul Faradish Resha, Pujangga Bageur, all of you guys...

Read more »

Quarantine File menggunakan VB 6.0

Quarantine biasa digunakan AntiVirus utk memproteksi Malware yang dianggap suspect.
File pada Quarantine suatu waktu dapat dimutahirkan atau dikembalikan ke asal, jika ternyata suspect terhadap Malware salah [False Alarm].
Atau pada kebanyakan AV, Quarantine bisa dijadikan jalan pintas, ketika File Virus [katakanlah begitu] tidak dapat diperbaiki.

Nah, kali ini saya akan membahas tentang pembuatan Quarantine menggunakan VB 6.0, yang bisa kalian terapkan nantinya pada Program AntiVirus kalian..

Untuk Pembuatan Quarantine, disini saya menggunakan 3 Fungsi Built In pada Library VBA, yaitu: SaveSetting, GetSetting, dan DeleteSetting.

Ada Baiknya, pelajari terlebih dahulu 3 fungsi tsb..



'SaveSetting
Sub SaveSetting(AppName As String, Section As String, Key As String, Setting As String)
'Member of VBA.Interaction
'Saves a setting under the specified appname, section and key



'GetSetting
Function GetSetting(AppName As String, Section As String, Key As String, [Default]) As String
'Member of VBA.Interaction
'Returns a key setting value from an application's entry in the Windows registry



'DeleteSetting
Sub DeleteSetting(AppName As String, [Section], [Key])
'Member of VBA.Interaction
'Deletes a section or key setting from an application's entry in the Windows registry entry

Ketiga fungsi diatas adalah penyimpanan, pengambilan, dan penghapusan yang melibatkan registry, pokoknya berhubungan dengan registry.

Tapi ingat!, tidak hanya registry saja, tapi juga pembuatan file yang dijadikan file di-quarantine nantinya.

Jika sudah memahaminya, Routine Quarantine bisa diterapkan dengan logika seperti ini:

SaveSetting Alamat File Asal -> [Optional] Encrypt File -> Copy File Asli -> Paste ke Quarantine -> Delete File Asli


dan untuk Routine Restore, bisa dengan logika seperti ini:

GetSetting -> [optional] Encrypt File -> Copy File di Quarantine -> Paste ke Path Awal -> Delete File di Quarantine -> DeleteSetting


Sebenarnya utk melakukan enkripsi pada file penting sih, tapi utk latihan, bisa dibilang optional.

Contoh Source Code: http://www.4shared.com/file/heINuFkW/Quarantine_SC.html

Tx to:
- My Jesus, My Everything
- My Family
- Gemabel
- HrXxX, BRAJA, dkk.
- VB-Bego | I-Bego, Virologi, Codenesia, Segelaskopi
- All of you guys

Read more »

Late dan Early Binding pada VB 6.0

ehm, Late binding?
apa sih late binding itu?

hihihihihi.... teknik tersebut mungkin pernah kalian buat, namun kalian tidak sadar itu adalah teknik "Late Binding"....

jadi begini.. Late binding dapat diartikan sebagai pemberitahu compiler, bahwa ada object [Activex Dll/Ocx] yang akan digunakan.

nah, dengan Late Binding ini, kalian tidak perlu menggunakan "reference" lagi...
namun, buatlah Variable sebagai Object, yang nantinya akan mewakili Object/Class pada ActiveX Dll/OCX yang digunakan.

Baiklah, lebih mudah dengan menggunakan contoh code;


Dim gxry As Object 'kasih tau compiler, bahwa nanti kita buat object

Set gxry = CreateObject("wscript.shell") 'Buat Object --> Ambil class Shell dari object wscript...

gxry.run "cmd.exe" 'Panggil Function run dari class Shell - Object Wscript...

Nb: Routine diatas akan mengeksekusi file cmd.exe [command prompt]

ketika melihat code diatas, pasti kamu baru "ngeh", oh, itu toh yang dinamakan Late Binding...
berbeda dengan sahabatnya, yaitu Early Binding, pada Early binding, Compiler sudah tau Object apa yang digunakan atau dibinding dalam program dengan pemilihan di Reference.

Nah, dengan Late Binding, kamu tidak perlu repot menggunakan Reference kan...??
[ingat, ActiveX harus teregistrasi!!!]

Kelemahan Late Binding:
Harus mengetahui Class, Parameter, dsb dari si Object

Kelebihan Late Binding:
Pemakaian ActiveX adalah Versi terakhir yang diregister pada komputer

Kelemahan Early Binding:
Agak repot klik2 aja mungkin...

Kelebihan Early Binding:
Ada bantuan popupmenu utk Class dari Object beserta parameternya

Penggunaan kedua fungsi diatas tergantung pada kebutuhan kalian..

Semoga Bermanfaat..

Tx to:
- My Jesus, My Everything
- My Family
- Gemabel
- BRAJA
- Google
- All of you guys...

Read more »

About

Gary Abraham is my real name, was born in Jakarta.
I am very happy with the world of computers, programming, and others.
Want to always learn and study.
I dedicate this blog to share, learn, and others.

Thank you to all who have supported me.
- My Jesus, My Everything
- My Mom
- Brother and Sister [Yuda, Monika]
- Gemabel
- My friends, who have supported me.
- Mentors, who have made me understand about computers.
- Mr. Winardi, Mrs. Yoan, Erick, Rio, Roy, Jhonny, Emi, Finno, Carlo, etc.
- HrXxX, BRAJA, Pujangga Bageur, Vampire, Gnoubdils, Naire, Terren.Jr, Gelar, etc

Real Name: Gary Abraham
Nick: gxry
Y!M: gxry@ymail.com
Email: gxry@ymail.com, jhelplab@gmail.com
Facebook : Gxry Xbrxhxm
Active Forum : Segelaskopi, Codenesia, I-Bego
Products : JHelpAV, JHelpAX, JHelpFolock, etc.

Read more »

Target of Shortcut File/Malware

Akhir2 ini lagi marak Malware yang menggunakan Shortcut untuk Soceng [Social Engineering], sebenarnya bukan varian Malware baru, namun banyak kutemukan PC yang sudah menjadi bulan2-nan Malware yang menggunakan teknik ini..

sebenarnya teknik menggunakan shortcut cukup efektif ukt melakukan execute terhadap induk dari Malware, namun juga menjadi hal yang sangat bodoh, bukankah cukup mudah mengetahui target dari shortcut???

nah, yang akan kubahas kali ini adalah mengetahui target dari shortcut file dan mematikan prosesnya, jika diperlukan...

ini dia nih, screenshotnya...

Download source code:
http://www.4shared.com/file/jw1cppvU/Target_of_Shortcut.html

Jika dilihat dari code yang ada di dalamnya, sangatlah mudah untuk mengetahui target dari shortcut, hanya Fungsi ini sebenarnya yang diperlukan


Function getShortcut(strPath As String) As String
On Error Resume Next 'Kalo salah, lanjut cin... ;)

'Deklarasi Variabel dulu akh...
Dim objWs As Object
Dim objLnk As Object

'Buat Object yuuuk...
Set objWs = CreateObject("wscript.shell")
Set objLnk = objWs.createshortcut(strPath)

'Nilai balik target dari si shortcut...
getShortcut = objLnk.targetpath

End Function


nah, hanya dengan fungsi diatas, target dari si shortcut sudah bisa diketahui. Jika sudah tau target/induk-nya, ya terserah deh tuh mau diapain, mau diambil nilai hash-nya, atau coba di matikan saja dulu proses-nya..

oke, bahas matikan prosesnya aja ya...
bisa dilihat dari code ini


If (Right(UCase(Text3.Text), 3)) = "VBS" Then 'Jika File adalah VBS
'Ini dia nih, kalo File adalah VBScript, jangan kamu terminate file-nya.
'Karena VBScript berjalan dengan menggunakan "wscript.exe"
'Ya, jadinya yang dimatikan adalah si "wscript.exe" - nya... :)
Shell "cmd /c taskkill /f /im wscript.exe & pause", vbNormalFocus
Else
'Bukan berarti File ini bukan VBScript,
'Tapi ini adalah cara mematikan proses berdasarkan "image name"
'Image name berarti nama File-nya...
Shell "cmd /c taskkill /f /im " & Text3.Text & " & pause", vbNormalFocus
End If


matikan prosesnya pake taskkill.exe aja, gak usah ribet pake API
dan matikannya berdasarkan image name, dengan menambahakan parameter "/im"...

nah, kalo yang ini adalah aplikasi yang kubuat utk mencari secara keseluruhan... ;)

kamu bisa donwload aplikasi-nya di sini:
http://www.4shared.com/file/T_a4kIcD/JHelp_Shortcut_Scanner_Beta.html
[Beta Version]
- Scan File [Yes]
- Scan Process [No]
- Malware Database [No]

Tx to:
- My Jesus, My Everything
- My Family
- Gemabel
- HrXxX, BRAJA, Ahlul, dll
- Segelaskopi, VB-Bego | I-Bego, Codenesia, Virologi, dll
- All of my friends, i couldn't mention your name on by one...

Read more »

WinUtilities Free Edition

Stamina komputer adalah yang utama bagi pengguna komputer. Salah satu cara untuk meningkatkan stamina-nya dengan menggunakan software. Cukup banyak Software yang dapat mengingkatkan stamina komputer, namun dari kebanyakan, sedikit yang gratis.

WinUtilities Free Edition adalah software yang dapat meningkatkan stamina komputer yang Gratis!!!!! grrrr. Udah gratis, bikin stamina joss lagi... hahahaha...

ScreenShot:

More Screen Shot of WinUtilities Free Edition

Download:
Situs Resmi WinUtilities
Download.Cnet
SoftPedia

Read more »