Tutorial hack Wifi dengan Android kurang dari 30 detik

Dalam Tutorial berikut ini aku tak bermaksud utk mengajarkan hal² yg merugikan orang lain, terkadang keadaan mendesak ketika jauh dari rumah dan ketika kehabisan kuota ini mgkn cukup membantu, aku pun jarang memakainya utk hal² semacam main game atau utk nonton youtube paling numpang check FB & WA sj.
baiklah karena aku tak pandai basa basi mari kita lanjutkan ke point utama.

Syarat utama:
1. akses root (bisa googling cara melakukan root hp  android)
2. install busybox (bisa download di bawah)
3. Android Emulator (bisa download di PS)
WPS Tester(bisa download di bawah)

nb:
√ utk memastikan izin root bisa buka terminal emulator lalu ketik "su" [enter]
√ utk memastikan status WPA CLI ketik "su" [enter] lalu ketik "wpa_cli" [enter] atau bisa klik langsung pd app WPS Tester lalu klik pop up menu [wpa cli] maka akan ada notifikasi (wpa cli ok).
√ utk menampilkan password klik [password saved] pd pop up menu pd app WPS Tester atau buka terminal lalu ketik "su" [enter] ketik "cat /data/misc/wifi/wpa_supplicant.conf" [enter]
√ WPS Tester dapat berjalan pd OS Android v4xx-5xx(tested)
√ Untuk meng-Crack password Wifi kurang dari 10 detik, semua tergantung seberapa cepat respon super user memberi hak akses pd applikasi.
aku sendiri sdh mencoba 3 super user yaitu: kingroot, kingoroot & 360 root ketika memakai kingroot pembobolan bisa dilakukan diatas motor dgn kecepatan 40KM/Jam, dan cma butuh waktu 4 detik utk mendapat password wifi.
√ utk samsung pasti akan terencrypt, atau mgkn jk msh kurang jelas silahkan join d groupku d facebook "Pemerkosa Password Wifi" d situ aku mencoba membantu sebisa & setahuku tentang jaringan & android.

*
Pilih ssid yg icon gemboknya berwarna hijau, utk yg gembok merah WPA/WPA2-PSK(CCMP+TKIP) dan tentu saja takkan berhasil dgn cara ini.
gambar 1: lihat

**
Lalu akan muncul dialog/jendela spt ini pilih [connect root]
gambar 2: lihat

***
Pilih pin no 1 lalu Pilih [verbose], maka otomatis terminal akan muncul lalu tahan dan paste(otomatis clipboard akan mengcopy perintah, dan dilakukan secara otomatis sa'at pin tsb d pilih), lalu tekan tombol [enter]
gambar 3: lihat

****
Tunggu beberapa detik, Maka akan muncul spt ini, pastikan nama target muncul e.g: target yg telah d pilih tdi adalah "Mas Reza free wifi" maka pd terminal ssid akhir perintah jg harus sama("Mas Reza free wifi) jk tdk muncul/berhenti aku pastikan itu gagal! karena pin/cipher tdk valid. maka coba pakai pin yg lain atau penyebab yg lain bisa baca ulasanku pd groupku "Pemerkosa Password Wifi".
nb:
√ sebenarnya pd tahap ini password wifi sudah berhasil d bobol(jk terburu² semacam d atas motor/traffic lamp), lalu tgl klik password saved.
gambar 4: lihat

*****
Tekan tombol back/kembali maka akan kembali pd jendela ini jk gk muncul tekan ssid/nama jaringan target tdi spt pd gambar 1, biarkan pin tetap berada pd posisi no 1/paling atas lalu pilih tombol connect(root)
gambar 5: lihat

******
tunggu beberapa detik maka password akan muncul.
gambar 6: lihat

Link Video:
1. How-to-crack-wifi-less-then-10-second (android): youtube

2. How-to-crack-wifi-in-few-second (android): Youtube

Bussybox
link download: http://adf.ly/1nI0zC

Wps tester.
link download: http://adf.ly/1nI03J

pass rar: nama groupku d FB yg aku tulis d atas.

Membalik Text

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    B1: TButton;
    procedure B1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function RS(const AText: string): string;
var
  I: Integer;
  C: PChar;
begin
  SetLength(Result, Length(AText));
  C := PChar(Result);
  for I := Length(AText) downto 1 do
  begin
    C^ := AText[I];
    Inc(C);
  end;
end;

procedure TForm1.B1Click(Sender: TObject);
begin
   Form1.Caption := RS(Form1.Caption);
   B1.Caption := RS(B1.Caption);
end;

end.

Membuat Button/Tombol unik

unit Unit1;

interface

uses
   SysUtils, Graphics, Forms, StdCtrls, Classes, Controls, ExtCtrls;

type
  TForm1 = class(TForm)
    PB: TPaintBox;
    E1: TEdit;
    procedure PBPaint(Sender: TObject);
    procedure PBMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PBMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { By : Zephio }
  public
    { http://amateur-guide.blogspot.com }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.PBPaint(Sender: TObject);
begin
with PB.Canvas do
begin
   Brush.Style := BSClear;
   Pen.Style := PSSolid;
   Font.Size := 24;
   Font.Style := [FSBold];
   Font.Name := 'Verdana';
   Font.Color := ClGray;
   TextOut(0, 0, 'Generate');
   Font.Color := CLBlue;
   TextOut(2, 2, 'Generate');
end;
end;

procedure TForm1.PBMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
with PB.Canvas do
begin
   Brush.Style := BSClear;
   Pen.Style := PSSolid;
   Font.Size := 24;
   Font.Style := [FSBold];
   Font.Name := 'Verdana';
   Font.Color := ClGray;
   TextOut(0, 0, 'Generate');
   Font.Color := CLRed;
   TextOut(2, 2, 'Generate');
end;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   PBPaint(Self);
end;

procedure TForm1.PBMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button <> MBLeft then
   Exit
else
with PB.Canvas do
begin
   Brush.Style := BSClear;
   Pen.Style := PSSolid;
   Font.Size := 24;
   Font.Style := [FSBold];
   Font.Name := 'Verdana';
   Font.Color := ClGray;
   TextOut(0, 0, 'Generate');
   Font.Color := ClLIme;
   TextOut(2, 2, 'Generate');
end;
   E1.Text := IntToHex(Random(999999), 8);
   E1.Font.Color := Random(99999);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   DoubleBuffered := true;
   Randomize;
end;

end.

Jam

unit Unit1;

interface

uses
Windows, SysUtils, Graphics, Forms, ExtCtrls, Classes;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormPaint(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ By : Zephio
Bikin Jam Unik tp jelek }
public
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormPaint(Sender: TObject);
begin
with Form1 do
//------------------------------------------------------------------------------>
// Lingkar Jam
Canvas.Brush.Color := CLTeal;
Canvas.Pen.Color := ClBlue;
Canvas.Ellipse(0, 25, ClientWidth, ClientHeight Div 2);
Canvas.Brush.Color := clFuchsia;
Canvas.Ellipse(0, 25, ClientWidth - 10, ClientHeight Div 2 - 10);
//------------------------------------------------------------------------------>
// Per Detik
Canvas.Pen.Color := clBlue;
Canvas.MoveTo(StrToInt(FormatDateTime('ss', Now)),25);
Canvas.LineTo(StrToInt(FormatDateTime('ss', Now)),ClientHeight Div 2 - 15);
//------------------------------------------------------------------------------>
Canvas.Font.Color := clBlue;
Canvas.Font.Style := [fsBold];
SetBkMode(Canvas.Handle,TRANSPARENT);
Canvas.TextOut(StrToInt(FormatDateTime('ss', Now)), ClientHeight Div 2 - 15, FormatDateTime('ss', Now));
//------------------------------------------------------------------------------>
// Per Menit
Canvas.Pen.Color := clRed;
Canvas.MoveTo(StrToInt(FormatDateTime('nn', Now)),25);
Canvas.LineTo(StrToInt(FormatDateTime('nn', Now)),ClientHeight Div 2 - 30);
//------------------------------------------------------------------------------>
Canvas.Font.Color := clRed;
Canvas.Font.Style := [fsBold];
SetBkMode(Canvas.Handle,TRANSPARENT);
Canvas.TextOut(StrToInt(FormatDateTime('nn', Now)), ClientHeight Div 2 - 30, FormatDateTime('nn', Now));
//------------------------------------------------------------------------------>
//Per Jam
Canvas.Pen.Color := clBlack;
Canvas.MoveTo(StrToInt(FormatDateTime('hh', Now)),25);
Canvas.LineTo(StrToInt(FormatDateTime('hh', Now)), ClientHeight Div 2 - 45);
//------------------------------------------------------------------------------>
Canvas.Font.Color := clBlack;
Canvas.Font.Style := [fsBold];
SetBkMode(Canvas.Handle,TRANSPARENT);
Canvas.TextOut(StrToInt(FormatDateTime('hh', Now)), ClientHeight Div 2 - 45, FormatDateTime('hh', Now));
//------------------------------------------------------------------------------>
// Pesan
Canvas.Brush.Style := BSClear;
Canvas.Font.Color := CLRed;
Canvas.Font.Size := 12;
Canvas.TextOut(ClientWidth Div 3 + 15, 0, 'Clock');
Canvas.Font.Color := CLBlue;
Canvas.Font.Size := 12;
Canvas.TextOut(ClientWidth Div 5, 140, 'Created By : Zephio');
//------------------------------------------------------------------------------>
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Invalidate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Title := 'ZS Clock';
Form1.Height := 280;
Form1.Width := 256;
DoubleBuffered := true;
end;

end.

Transparent Form

unit Unit1;

interface

uses
Windows, Graphics, Forms;

type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ By : Zephio
Membuat Form Tembus Pandang dgn Canvas}
public
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
with Form1.Canvas do
begin
Brush.Style := BSClear;
Brush.Color := clFuchsia;
Pen.Color := ClYellow;
Rectangle(0 , 0, Form1.ClientWidth, Form1.ClientHeight);
Rectangle(10, 10, Form1.ClientWidth - 10, Form1.ClientHeight - 10);
Rectangle(20, 20, Form1.ClientWidth - 20, Form1.ClientHeight - 20);
Rectangle(30, 30, Form1.ClientWidth - 30, Form1.ClientHeight - 30);
Rectangle(40, 40, Form1.ClientWidth - 40, Form1.ClientHeight - 40);
Rectangle(50, 50, Form1.ClientWidth - 50, Form1.ClientHeight - 50);
Rectangle(60, 60, Form1.ClientWidth - 60, Form1.ClientHeight - 60);
Rectangle(70, 70, Form1.ClientWidth - 70, Form1.ClientHeight - 70);
Rectangle(80, 80, Form1.ClientWidth - 80, Form1.ClientHeight - 80);
Rectangle(90, 90, Form1.ClientWidth - 90, Form1.ClientHeight - 90);
Rectangle(100, 100, Form1.ClientWidth - 100, Form1.ClientHeight - 100);
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Title := 'ZS Form';
end;

end.

Animasi Form

unit Unit1;

interface

uses
SysUtils, Forms, ExtCtrls, Classes;

type
TForm1 = class(TForm)
T1: TTimer;
procedure FormCreate(Sender: TObject);
procedure T1Timer(Sender: TObject);
private
{ Created By : Zephio }
public
{ Title : Anime Form }
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Tag := 40; // Set Form1.Tag = 40, pembatasan Minimal 40, jk dr 0 kelamaan!...
end;

procedure TForm1.T1Timer(Sender: TObject);
begin
Tag := Tag + 1; //kalk 40..300
Width := Tag * 2; //Lebar 300 x 2 = 600
Height := Tag; //Tinggi 300
Caption := 'Time : '+IntToStr(Tag)+' Width : '+IntToStr(Width)+' Height : '+IntToStr(Height);
if Tag = 300 then // jk value Tag(40..300) = 300 (Penentuan value Maximal) maka Timer1 = Disable/Tidak Aktif
begin
T1.Enabled := false;
Caption := 'Anime Form, By : Zephio, Form Status : Ready';
end;

end;

end.

Check Nilai 2

unit Unit1;

interface

uses
Windows, SysUtils, Graphics, Forms, StdCtrls, ExtCtrls, Controls, Classes;

type
TForm1 = class(TForm)
// Componnent yg diperlukan----------------------------------------------------->
E1: TEdit;
S1: TShape;
procedure E1Change(Sender: TObject);
private
{ By : Zephio
Check Nilai antara 1..100 }
public
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation



{$R *.dfm}

procedure TForm1.E1Change(Sender: TObject);
var
I : Integer;
begin
E1.MaxLength := 3; //Batas Maximal Input adalah 3 Digit / [0..999]
I := StrToInt(E1.Text); //I = Input Nilai
case I of
// Dengan Text
1..20 : Caption := 'E = Sangat Payah'; // Jika Input Antara 1 hingga 20 maka tampilkan Pesan E
21..40 : Caption := 'D = Payah'; // Jika Input Antara 21 hingga 40 maka tampilkan Pesan D
41..60 : Caption := 'C = Lumayan'; // Jika Input Antara 41 hingga 60 maka tampilkan Pesan C
61..80 : Caption := 'B = Bagus'; // Jika Input Antara 61 hingga 80 maka tampilkan Pesan B
81..100 : Caption := 'A = Sempurna'; // Jika Input Antara 81 hingga 100 maka tampilkan Pesan A
0, 101..999 : Caption := '? = Diluar Nilai'; // Jika Input adalah 0 Antara 101 hingga 999 maka Pengecualian
else
Caption := '';
end;
case I of
// Dengan Color
1..20 : S1.Brush.Color := ClRed;
21..40 : S1.Brush.Color := clFuchsia;
41..60 : S1.Brush.Color := ClYellow;
61..80 : S1.Brush.Color := ClBlue;
81..100 : S1.Brush.Color := ClGreen;
0, 101..MaxInt : S1.Brush.Color := ClBlack;
else
S1.Brush.Color := ClWhite;
end;
end;

end.