Berhubung forum IDCA baru down maka admin iseng iseng posting artikel tentang Hacker / Cracker tercantik di Dunia. Siapa sajakah mereka ? langsung pantengin aja dibawah ini :D
1. Adeanna Cooke, Dia adalah seorang mantan model Playboy dan juga seorang hacker komputer. Meskipun majalah ini berisi foto-foto syur, tetapi dia meng-hack sebuah website yang menunjukkan kemolekan tubuhnya untuk mempertahankan harga dirinya sebagai kaum wanita. Salah satu temannya menggunakan gambar dia di internet untuk mendapatkan uang tanpa izin darinya lalu ia masuk ke website tersebut dan membersihkan semua foto tersebut. Dia juga membantu banyak gadis untuk keluar dari situasi yang sama dengan dirinya.
2. Anna Chapman, dia seorang berwarganegara Rusia yang berada di New York City ketika ia ditangkap bersama sembilan orang lainnya pada tanggal 27 Juni 2010, karena dicurigai bekerja untuk Program jaringan mata-mata Narkotika di bawah badan intelijen eksternal Federasi Rusia. Setelah penangkapannya oleh FBI atas keterlibatannya dengan Program Narkotika, Chapman menjadi selebriti. Foto diambil dari profil Facebooknya muncul di web, dan beberapa video dirinya yang diunggah ke YouTube. Pada bulan Oktober 2010, Chapman berpose di sampul majalah Maxim versi Rusia. Majalah ini memasukan Chapman dalam daftar 100 wanita terseksi Rusia. Pada April 2011, Chapman sebagai model catwalk untuk pagelaran Moskow Fashion Week di Shiyan & Rudkovskaya. Pada bulan Juni 2012, Chapman menjadi model lagi untuk Antalya di Dosso Dossi. Pada 3 Juli 2013 Chapman menjadi perhatian media, karena melalui Twitternya, dia meminta Edward Snowden untuk menikahinya.
3. Kristina Svechinskaya, dia adalah hacker Rusia yang membobol situs-situs keuangan dunia dengan cara mentransfer uang ke rekeningnya secara ilegal melalui jasa pengiriman, atau elektronik, atas nama orang lain. Seorang mahasiswa Universitas New York, dia salah satu nama yang paling umum di dunia hacker, dia dituduh menipu beberapa bank Inggris dan AS dalam jumlah yang cukup besar dan penggunaan paspor palsu. Menurut tuduhan, Svechinskaya menggunakan Zeus trojan horse untuk menyerang ribuan rekening bank dan membuka sedikitnya lima rekening di Bank of America dan Wachovia, yang menerima 35,000 USD dari pencurian uang. Diperkirakan hasil hacknya yang dibantu dengan sembilan orang lain, Svechinskaya telah menerima sebesar 3 juta USD secara keseluruhan. Svechinskaya dijuluki "hacker paling seksi di dunia komputer".
4. Joanna Rutkowska, dia adalah seorang peneliti keamanan komputer Polandia dan seorang hacker. Dia dikenal karena penelitiannya tentang tingkat keamanan rendah dan malware siluman. Dia menjadi terkenal setelah konferensi Black Hat Briefings di Las Vegas pada bulan Agustus 2006, di mana Rutkowska mempresentasikan serangan terhadap mekanisme perlindungan kernel Vista, yang dikenal dengan julukan teknik Blue Pill, yang menggunakan virtualisasi hardware untuk memindahkan OS ke mesin virtual. Selanjutnya ia telah dinobatkan sebagai salah satu dari Lima Hacker oleh Majalah eWeek pada tahun 2006. Rutkowska juga memberikan saran terbuka untuk Vice President Unit Teknologi Keamanan Microsoft untuk lebih memperketat keamanan pada sistem Windows Vista. Dia merupakan hacker elit yang merupakan entrepruener yang meluncurkan layanan keamanan sendiri melalui startup Invisible Things Lab di Warsawa, Polandia.
5. Ying Cracker, dia adalah salah satu hacker paling cantik dan seorang pendidik dari Shanghai, Cina. Dia mengajarkan orang dasar-dasar bagaimana cara untuk memulai hacking, hal-hal seperti mengubah alamat IP atau menghapus password kantor. Dia terkenal ketika sebuah forum online "Chinese Hottie Hackers" dalam sebuah postingan Cracker mendapat perhatian dari gawker di internet dan menciptakan basis fans yang besar untuknya. Seseorang tidak dapat menyangkal fakta bahwa pekerjaannya sangat mengesankan. Dia seorang ahli dalam hacker yang menulis perangkat lunak dan mendapatkan uang dari kursus dengan menggunakan alat hacking sederhana, dan dia juga membantu crack software orang lain. Dia mengenakan biaya 500-5000 RMB untuk membantu orang yang ingin memecahkan perangkat lunak apapun. Itulah sebabnya mengapa ia mendapat nama belakang "Cracker".
6. Xiau Tian, Teringat dengan kata hacker, biasanya yang terlintas di bayangan adalah seorang kutu buku dengan kaca mata tebal dengan gaya hidup yang acak-acakan. Tapi tidak berlaku untuk Xiao Tian. Dia adalah seorang hacker yang modis.Penampilan dan gaya hidupnya begitu rapi, dinamis bahkan terkesan feminim.
ia juga tertarik sekali dengan dunia fashion, khususnya sepatu. Dalam blog nya dia sering berbagi cerita tentang tempat-tempat yang pernah dia datangi. Itulah alasan mengapa Xiao memiliki banyak fans dan followers di dunia, khususnya para pria.
Xiao Tian, mulai dikenal sejak umur 19 tahun. Setelah membentuk China Girl Security Team, salah satu kelompok hacker khusus wanita terbesar di china. Kiprahnya dalam dunia hacking juga tidak diragukan lagi. Raksasa search engine nomor satu di dunia, Google pun pernah merasakan serangan hebat dari Tian beserta timnya. Xiao Tian melakukan serangan canggih terhadap sistem infrastruktur google china. Bahkan, google akhirnya tidak tahan dan memilih untuk menarik semua layanan operasionalnya di China akibat hantaman hacker yang bertubi-tubi tersebut.
Assalamualaikum sobat IDCA , sudah sekian lama kami membicarakan akan membuat sebuah forum sendiri dan akhirnya sekarang sudah terwujud. Forum resmi kami yang beralamatkan http://www.indocyberarmy.org sudah dirilis mulai tadi pagi.
Dengan terbentuknya forum ini, kami berharap kalian yang punya unek unek untuk share sebuah artikel akan bisa terwujud disini =))
Forum ini sejatinya dapat terlaksana karena bantuan lagi lagi dari teman kami, siapa lagi kalo bukan "Ade Hendra" hihi . Dia memberikan kami sebua Hosting dan Domain secara geratis, Alhamdullilah :sujudsukur: hahaha :D
Special Thanks to : Ade Hendra Surya Nugraha yang telah memberikan donasi kepada kami Terimakasih juga terhadap semua keluarga IDCA Official or Unofficial atas support dan dukungannya hingga IDCA bisa sampai saat ini dan tidak lupa keluarga besar JKT48 Cyber Team atas bantuannya membuat tampilan forum menjadi lebih bagus ^_^
Oiya mungkin nanti kalian akan heran kenapa forum underground ada subforum tentang JKT48 Cyber Team ? yaa terbentuknya forum ini tidak terlepas dari anak anak JCT yang sudah memberikan banyak pencerahan dan bantuan hingga forum bisa lebih mudah di akses.
Kali ini saya tidak akan share cara cara deface website ^_^ hehehe, kali ini saya mau share cara membuat kalkulator sendiri melalui notepad :D (udah tau lewat aja)
Penampakan ->
nah caranya gampang kok :D , kalian tinggal copas kode berikut :
@echo off
title Kalkulator by : computer4rt
:ulang
echo Mari berhitung Dengan Computer4rt...!!
set /p A=Masukkan Angka Pertama =
set /p B=Masukkan Angka Kedua =
set /p o=Pilih pengoperasian anda (*, +, -, /) =
set /a "jumlah" = A%o%B
echo Jumlah = %jumlah%
pause>null
goto ulang
Lalu pastekan pada Notepad kalian, jangan lupa save dengan extention .bat ^_^
dah gitu doang :D
selamat mencoba ^_^
Content Creator : Bimo Septiawan Tag : kreatif, buat kalkulator sendiri , membuat kalkulator sendiri
Malam sobat IDCA :). kali ini saya akan share cara membuat Blog di blogger, silahkan simak ulasan berikut ini : Bagi Anda yang ingin memiliki blog. Saya merekomendasikan anda untuk membuat blog di Blogger.com karena Blogger.com adalah milik Google sehingga lebih aman dan mudah terindeks dalam mesin pencari Google. Selain itu juga mudah dibuat, hanya 3 tahap anda sudah bisa memiliki blog sendiri. Tahap pertama Buka situs http://blogger.com maka anda akan masuk kehalaman utama blogger seperti yang terlihat pada gambar dibawah ini:
Pilih bahasa �Indonesia� dipojok kanan atas lalu login dengan alamat gmail anda (kalau belum punya silahkan buat dulu di http://mail.google.com / http://gmail.com). Setelah itu, anda akan dibawa ke halaman berikut.
Masukkan nama anda pada kotak �Nama tampilan�. Nama ini akan muncul sebagai author name setiap kali anda memposting artikel. Setelah itu klik Lanjutkan. Tahap Kedua Kemudian akan masuk ke tahap kedua yaitu menentukan alamat blog
Isi judul dan alamat blog Anda. Untuk kasus ini, pilihlah alamat blog yang mudah diingat dan mengandung kata kunci (keyword) sesuai dengan topik blog yang ingin anda buat. Lalu klik Cek Ketersedian. Jika tidak ada yang menggunakan, maka alamat tersebut bisa digunakan. Selanjutnya klik Lanjutkan. Tahap ketiga Selanjutnya Anda akan dibawa kehalaman seperti pada gambar dibawah ini:
Pilih salah satu template yang ingin anda gunakan lalu klik Lanjutkan. Jika berhasil maka akan muncul pesan �blog anda sudah jadi!� Selesai, sekarang anda sudah memiliki blog sendiri.
Cara Membuat Blog di MyWapBlog - Membuat blog di mywapblog.com sangatlah mudah, karena mywapblog yang sering di singkat menjadi MWB ini adalah penyedia layanan membuat blog gratis yang penggunanya lebih di utamakan bagi mereka yang mempunyai ponsel atau hp. jadi jika anda ingin membuat blog gratis yang cara mengelolanya tidak memerlukan laptop atau PC maka membuat blog di mywapblog.com
adalah pilihan yang tepat, karena di MWB kita bisa mengakses secara penuh fitur-fitur yang ada di sana hanya dengan ponsel atau HP.
Meskipun platform MWB tidak atau belum terkenal seperti blogspot,wordpress,dll. tapi mywapblog juga tidak kalah dalam bersaing di mesin pencari google dengan platform blog yang lainnya.
Baiklah langsung saja kembali ke topik tentang Cara Membuat Blog di MyWapBlog :
muncul seperti (Username,Change Domain,Password, Re-TypePassword, Your Name,Your Email,Security) dengan benar dan sesuai keinginan anda. lalu klik save.
4. Langkah selanjutnya adalah buka alamat e-mail yang anda gunakan untuk mendaftar tadi dan cek kotak masuknya lalu klik link yang di kirim oleh mywapblog.com untuk verifikasi blog anda.
5. Setelah itu anda kembali ke mywapblog.com lalu klik tulisan sign in dan masukkan username beserta password yang telah anda buat tadi dan SELAMAT ! blog anda di mywapblog.com telah selesai di buat dan anda bisa menggunakan blog tersebut secara penuh.
Mungkin cukup itu saja yang dapat IDCA jelaskan tentang cara membuat blog di mywapblog.com, semoga bermanfaat dan selamat mencoba.
Kali ini Indonesian Cyber Army akan memberitau cara Auto Followers, langsung saja simak cara dibawah ini ya :
1. Pertama kamu buka LINK INI 2. Lalu kalian buka > kumpulan IDS Twitter yang sudah di sediakan 3. Kamu blok tuh semua ids yang ada di sana, lalu copy. * satu part aja yah jangan langsung semua 4. Jika sudah kamu kembali ke LINK INI 5. Paste'kan ids yang tadi kamu copy, ke dalam kotak yang pertama. 6. Lalu tuliskan unsername twitter kamu di kotak yang ke 2 ( tanpa tanda @ ) 7. Klik Follow. 8. Tunggu hingga prosesnya selesai & lihat hasilnya :-)
Hai Sob, Ketemu lagi disini ane mau share cara membuat cheat sendiri. Ane kasih contoh untuk membuat cheat Point Blank.Perhatikan Baik baik karena penjelasanya agak panjang, Dan maaf code source disini tidak bisa di copy makanya harus ketik sendiri kan agan agan mau jadi progammer yang hebat masak copy paste.
tinggal lo pelajari aja dengan teliti dan memerlukan ketekunan dan keuletan dalam membuatnya, tapi kalau lo udah mahir tidak perlu lagi ini,,,,, lo tinggal buka Aaj langsung Visual Basic. 6. Langsung saja Nie caraya :
1. Pertama Download dulu Visual Basic 6 DISINI 2. Lalu Juga Download cara pembuatanya, karena gk mungkin ane jelasin satu satu karena buanyak banget mending DOWNLOAD DISINI 3. Sekarang Cara pembuatan Injectornya (Maaf klo soure code nya gk bisa di copy) : Klo gk mau repot Tinggal Download DISINI Dan Video Tutornya :
Klo Lo Progammer Sejati nih Lihat dan Buatlah :
~Tutor Pembuatan Injector~
pilih standard exe.
A. Pembuatan Form dan Design - bikin 1 form, 1 label dan 1 timer, jadinya seperti ini
silakan dikreasikan formnya semaunya, syarat harus ada 1 label dan 1 timer pada form. selanjutnya,
B. Code dan Modules klik kanan pada form --> pilih view code. isikan kode berikut pada form1,
Spoiler: Option Explicit 'Win 2k, ME, XP Private Const GWL_EXSTYLE As Long = (-20) Private Const WS_EX_LAYERED As Long = &H80000 Private Const LWA_ALPHA As Long = &H2 Private winHwnd As Long Private NamaDll As String Private Declare Function GetWindowLongA Lib "USER32" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowLongA Lib "USER32" (ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "USER32" (ByVal hwnd As Long, _ ByVal crey As Byte, _ ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As Long Private Sub silakandiedit()
'--------------------------------------------------------------- ' silakan diedit bagian kode dibawah ini '---------------------------------------------------------------
Me.Caption = "BlazeTorm_Injector�" 'pengaturan caption atau nama injector Opacity 255, Me 'pengaturan transparent form MinVal = 20: MaxVal = 255 NamaDll = App.Path & "" & "Angel.dll" 'isikan nama library, contoh: suntix.dll FileTarget = "PointBlank.exe" Timer1.Interval = 20 'interval untuk timer '----------------------------------------------------------------
End Sub
'fungsi transparent form Private Sub Opacity(Value As Byte, _ Frm As Form)
Dim MaxVal As Byte Dim MinVal As Byte
On Error GoTo ErrorHandler MinVal = 20 MaxVal = 255 If Value > MaxVal Then Value = MaxVal End If If Value < MinVal Then Value = MinVal End If SetWindowLongA Frm.hwnd, GWL_EXSTYLE, GetWindowLongA(Frm.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED SetLayeredWindowAttributes Frm.hwnd, 0, Value, LWA_ALPHA ErrorHandler:
Exit Sub
End Sub
Private Sub Form_Load()
App.TaskVisible = False 'hidden aplikasi dari window taskmanager terserah mau true/false 'tetapi tidak hidden di process
'perintah menghindari aplikasi dijalankan 2 kali 'pada saat yg bersamaan '---------------------------------------- If App.PrevInstance Then End End If '---------------------------------------- silakandiedit '--> memanggil perintah pada -->> Private Sub silakandiedit()
End Sub
Private Sub Picture1_Click()
End Sub
Private Sub Timer1_Timer()
winHwnd = FindWindow(vbNullString, "HSUpdate") 'mencari jendela hsupdate If Not winHwnd = 0 Then 'jika ditemukan NTProcessList 'deteksi process pointblank InjectExecute (NamaDll) 'inject library End 'tutup otomatis injector Else 'jika tidak Label1.Caption = "Terserah anda mau Ganti Apa" 'sabar menanti End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) OpenURL "http://www.kombre.co.cc/", Me.hwnd End Sub
- bikin 3 modul, klik menu project --> add modules, modul pertama berinama modinjection, pada modinjection, masukkan code berikut: Spoiler: Option Explicit Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, _ ByVal lpProcName As String) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, _ lpAddress As Any, _ ByVal dwSize As Long, _ ByVal fAllocType As Long, _ flProtect As Long) As Long Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, _ ByVal lpBaseAddress As Any, _ lpBuffer As Any, _ ByVal nSize As Long, _ lpNumberOfBytesWritten As Long) As Long Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal ProcessHandle As Long, _ lpThreadAttributes As Long, _ ByVal dwStackSize As Long, _ ByVal lpStartAddress As Any, _ ByVal lpParameter As Any, _ ByVal dwCreationFlags As Long, _ lpThreadID As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Sub InjectDll(DllPath As String, _ ProsH As Long) Dim DLLVirtLoc As Long Dim DllLength As Long Dim inject As Long Dim LibAddress As Long Dim CreateThread As Long Dim ThreadID As Long Dim Bla As VbMsgBoxResult g_loadlibary: LibAddress = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryA") If LibAddress = 0 Then Bla = MsgBox("Can't find LoadLibrary API from kernel32.dll", vbYesNo, "ERROR") If Bla = vbYes Then GoTo g_loadlibary Else 'NOT BLA... Exit Sub End If End If g_virutalallocex: DllLength = Len(DllPath) DLLVirtLoc = VirtualAllocEx(ProsH, 0, DllLength, &H1000, ByVal &H4) If DLLVirtLoc = 0 Then Bla = MsgBox("VirtualAllocEx API failed! - try again?", vbYesNo, "ERROR") If Bla = vbYes Then GoTo g_virutalallocex Else 'NOT BLA... Exit Sub End If End If g_writepmemory: inject = WriteProcessMemory(ProsH, ByVal DLLVirtLoc, ByVal DllPath, DllLength, vbNull) If inject = 0 Then Bla = MsgBox("Failed to Write DLL to Process! - try again?", vbYesNo, "ERROR") If Bla = vbYes Then GoTo g_writepmemory Else 'NOT BLA... Exit Sub End If End If g_creatthread: CreateThread = CreateRemoteThread(ProsH, ByVal 0, 0, ByVal LibAddress, ByVal DLLVirtLoc, 0, ThreadID) If CreateThread = 0 Then Bla = MsgBox("Failed to Create Thead! - try again?", vbYesNo, "ERROR") If Bla = vbYes Then GoTo g_creatthread Else 'NOT BLA... Exit Sub End If End If QuickInjector.Label1.Caption = "Injected Successful!" MsgBox "Dll Injection Successful!", vbInformation, "Success" End Sub Public Sub InjectExecute(ByVal sFlDLL As String) Dim lProcInject As Long lProcInject = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne) If lProcInject > "0" Then Call InjectDll(sFlDLL, lProcInject) ' prjSuspend.cmdInjector.Enabled = False End If Call CloseHandle(lProcInject) End Sub
modul kedua diberi nama modprocess. isikan kode berikut:
Spoiler: Option Explicit Public FileTarget As String Public sFlDLL As String Public IdTargetOne As Long Private Const TH32CS_SNAPHEAPLIST As Long = &H1 Private Const TH32CS_SNAPPROCESS As Long = &H2 Private Const TH32CS_SNAPTHREAD As Long = &H4 Private Const TH32CS_SNAPMODULE As Long = &H8 Private Const TH32CS_SNAPALL As Double = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE) Private Const MAX_PATH As Integer = 260 Public Const PROCESS_ALL_ACCESS As Long = &H1F0FFF Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * MAX_PATH End Type Private Type MODULEENTRY32 dwSize As Long th32ModuleID As Long th32ProcessID As Long GlblcntUsage As Long ProccntUsage As Long modBaseAddr As Long modBaseSize As Long hModule As Long szModule As String * 256 szExePath As String * 260 End Type Private Type THREADENTRY32 dwSize As Long cntUsage As Long th32ThreadID As Long th32OwnerProcessID As Long tpBasePri As Long tpDeltaPri As Long dwFlags As Long End Type Private Const THREAD_SUSPEND_RESUME As Long = &H2 Private hThread As Long Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, _ ByVal lProcessID As Long) As Long Private Declare Function Module32First Lib "kernel32" (ByVal hSnapShot As Long, _ uProcess As MODULEENTRY32) As Long Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long Private Declare Function GetFileTitle Lib "COMDLG32.DLL" Alias "GetFileTitleA" (ByVal lpszFile As String, _ ByVal lpszTitle As String, _ ByVal cbBuf As Integer) As Integer Private Declare Function Thread32First Lib "kernel32.dll" (ByVal hSnapShot As Long, _ ByRef lpte As THREADENTRY32) As Boolean Private Declare Function Thread32Next Lib "kernel32.dll" (ByVal hSnapShot As Long, _ ByRef lpte As THREADENTRY32) As Boolean Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, _ ByVal uExitCode As Long) As Long Public Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal Classname As String, _ ByVal WindowName As String) As Long Private Declare Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, _ uProcess As PROCESSENTRY32) As Long Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, _ uProcess As PROCESSENTRY32) As Long Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function OpenThread Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Boolean, _ ByVal dwThreadId As Long) As Long Private Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As Long) As Long Private Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As Long) As Long Public Function NTProcessList() As Long Dim FileName As String Dim ExePath As String Dim hProcSnap As Long Dim hModuleSnap As Long Dim lProc As Long Dim uProcess As PROCESSENTRY32 Dim uModule As MODULEENTRY32 On Error Resume Next hProcSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&) uProcess.dwSize = Len(uProcess) lProc = Process32First(hProcSnap, uProcess) Do While lProc If uProcess.th32ProcessID <> 0 Then hModuleSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, uProcess.th32ProcessID) uModule.dwSize = Len(uModule) Module32First hModuleSnap, uModule If hModuleSnap > 0 Then ExePath = StripNulls(uModule.szExePath) FileName = GetFName(ExePath) If FileTarget = FileName Then IdTargetOne = uProcess.th32ProcessID End If End If End If lProc = Process32Next(hProcSnap, uProcess) Loop Call CloseHandle(hProcSnap) Call CloseHandle(lProc) On Error GoTo 0 End Function Private Function StripNulls(ByVal sStr As String) As String StripNulls = Left$(sStr, lstrlen(sStr)) End Function Public Function GetFName(fn) As String Dim f%, n% GetFName = fn f% = InStr(fn, "") Do While f% n% = f% f% = InStr(n% + 1, fn, "") Loop If n% > 0 Then GetFName = Mid$(fn, n% + 1) End Function Private Function Thread32Enum(ByRef Thread() As THREADENTRY32, _ ByVal lProcessID As Long) As Long Dim THREADENTRY32 As THREADENTRY32 Dim hThreadSnap As Long Dim lThread As Long On Error Resume Next ReDim Thread(0) As THREADENTRY32 hThreadSnap = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, lProcessID) THREADENTRY32.dwSize = Len(THREADENTRY32) If Thread32First(hThreadSnap, THREADENTRY32) = False Then Thread32Enum = -1 Exit Function Else ReDim Thread(lThread) As THREADENTRY32 Thread(lThread) = THREADENTRY32 End If Do If Thread32Next(hThreadSnap, THREADENTRY32) = False Then Exit Do Else lThread = lThread + 1 ReDim Preserve Thread(lThread) Thread(lThread) = THREADENTRY32 End If Loop Thread32Enum = lThread Call CloseHandle(hThreadSnap) On Error GoTo 0 End Function
modul yang ke 3 di beri nama modbrowser sebagai berikut
Spoiler: 'modul buka browser Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Public Sub OpenURL(situs As String, sourceHWND As Long) Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1) End Sub
jika udah selesai save semuanya berinama sesukanya.
jika udah selesai klik menu file pilih make project exe*
ket: *nama project exe yang dibuat misalnya Pertamax.exe.
selesai,
4. Kurang satu lagi karena klo ane jelasin entar kepanjangan mending ane liatin videonya ajah Nih Video Tutor Membuat DLL sendiri :
Bagaimana cara Attacker mengambil dan membajak akun Facebook? (It�s Working 100%)
Yosshh,,, kali ini saya akan membahas tentang bagaimana teknik hacking facebook. Sekedar untuk diketahui saja,, bahwa ada beberapa metode yg bisa dilakukan untuk mengambil atau istilahnya membajak akun facebook orang lain. Walaupun metode ini bisa dibilang metode yang paling mudah dan sederhana tapi kemungkinan berhasilnya adalah 100%. Bagaimanapun juga Semua itu tergantung dari keterampilan dan ketekunan si attacker dalam melakukan aksi terhadap korbannya. Berikut adalah metode/teknik/cara yg sering digunakan si attacker dalam melancarkan aksi2nya::
1. Social Engineering 2. Facebook Phishing 3. Keylogging 4. Password Stealers 5. Brute Force Attacks 6. Dictionary Attacks 7. Exploiting Facebook's Trusted Friend Feature 8. Fake SMS (To Hack Facebook Status) 9. Session Hijacking 10. Sidejacking 11. Clickjacking 12. Mobile Phone Hacking 13. DNS Spoofing 14. USB Hacking 15. Man In the Middle Attacks 16. Botnets ( only anonymous member know how to work botnet ) :D 17. By Pass Security Question 18. Cookies Grabbing
Itulah beberapa metode2 yg digunakan para attacker dalam setiap aksinya, dan menurutku dari beberapa metode tersebut yang paling berbahaya adalah SOCIAL ENGINEERING! Dimana Pikiran anda itulah yg dihack/diretas oleh si attacker! Tujuannya yaitu untuk mendapatkan informasi, simpati, kesempatan, dsb :D metode ini juga sangat penting dan berpengaruh terhadap metode yg lainnya. Attacker yg tidak menguasai Social Engineering maka akan membutuhkan waktu yg lama agar tujuannya bisa tercapai dan bisa jadi tingkat keberhasilan dari metode yg ia gunakan menjadi 0%. satu hal yg perlu diingat! Mereka (Attacker) akan melakukan cara apapun agar tujuannya bisa tercapai! :D.
Note::�Disini saya berbagi informasi bukan untuk mengajari atau apapun itu,, tapi saya hanya ingin semua orang mengerti dan paham tentang masalah ini dengan begitu mereka bisa melindungi dirinya sendiri supaya terhindar dari kejahatan dunia maya. Ingat! Mencegah lebih baik dari pada tidak sama sekali :D
Pesanku:: �Jika menurutmu itu berharga, patut dijaga dengan baik! ^_^
Warning!! Copas boleh, tapi sertakan Penulis atau Sumbernya� :)
.jpg){kind=link}