Security Testing Sederhana

#shared
applikasi ini berfungsi utk menguji coba keamanan.
aku membuatnya sekitar 1 thn lalu dan masih ada beberapa yg aku rasa kurang sempurna.
app tsb portable utk OS Linux + WinE, windows x86 & x64bit. beberapa fungsi d antaranya:
- brute force hash md5
- brute force hash sha1
- calculator
- converter & en/decode base 2, 8, 10, 16 & 64
- ping
- ip lookup/whois external
- ipv4 changer + swapping aku hapus pd versi ini
- admin finder/pencari halaman admin
- dictionaries
nb: sorry yg terdeteksi cm ip private karena waktu compile aku pakai utk uji coba modem sja dan aku lupa memuat ip public mgkn jk PCku sdh aku perbaiki aku akan memperbaruinya.
download link: http://adf.ly/1nJctg
file size: 385kb
rar password: Pemerkosa Password Wifi

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.