.: Amateur Guide :.

Saturday, July 8, 2017

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

Thursday, July 6, 2017

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.

Saturday, September 15, 2012

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.

Friday, June 29, 2012

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.

Sunday, July 31, 2011

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.

Monday, July 11, 2011

Penghitung Nilai [4 Rega]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
//----------- Componnent yg dipakai--------------------------------------------->
Edit1: TEdit;
SpeedButton1: TSpeedButton;
Label1: TLabel;
Shape1: TShape;
Label2: TLabel;
//----------- Componnent yg dipakai--------------------------------------------->
procedure SpeedButton1Click(Sender: TObject);
private
{ Create By : Zephio }
public
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
I : Integer;
begin
I := StrToInt(Edit1.Text);
if (I <= 20) then
begin
Shape1.Brush.Style := BSSolid;
Shape1.Brush.Color := ClRed;
Label2.Caption := 'E = Sangat Payah';
Label2.Font.Color := ClRed
end
else
if (I <= 40) then
begin
Shape1.Brush.Style := BSSolid;
Shape1.Brush.Color := ClYellow;
Label2.Caption := 'D = Payah';
Label2.Font.Color := ClYellow
end
else
if (I <= 60) then
begin
Shape1.Brush.Style := BSSolid;
Shape1.Brush.Color := ClBlack;
Label2.Caption := 'C = Cukup';
Label2.Font.Color := ClBlack
end
else
if (I <= 80) then
begin
Shape1.Brush.Style := BSSolid;
Shape1.Brush.Color := ClBlue;
Label2.Caption := 'B = Bagus';
Label2.Font.Color := ClBlue
end
else
if (I <= 100) then
begin
Shape1.Brush.Style := BSSolid;
Shape1.Brush.Color := ClGreen;
Label2.Caption := 'A = Sangat Bagus';
Label2.Font.Color := ClGreen;
end;
end;
end.
DL SC : Click Here

Sunday, July 10, 2011

Time & Date

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Timer1: TTimer;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
procedure Timer1Timer(Sender: TObject);
private
{ By : Zephio }
public
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function GetCurrentDateTime: TDateTime;
var
SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
Result := SystemTimeToDateTime(SystemTime);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text := DateToStr(GetCurrentDateTime);
Edit2.Text := DateToStr(Now);
Edit3.Text := DateToStr(Date);
Edit4.Text := TimeToStr(Now);
Edit5.Text := TimeToStr(Time);
Edit6.Text := TimeToStr(GetCurrentDateTime);
Edit7.Text := FormatDateTime('dddd dd mmmmm YYYY', Now);
Edit8.Text := FormatDateTime('dddd', Now);
Edit9.Text := FormatDateTime('dd', Now);
Edit10.Text := FormatDateTime('mmmmm', Now);
Edit11.Text := FormatDateTime('YYYY', Now);
Edit12.Text := FormatDateTime('nn:ss.zzz', Now);
Edit13.Text := FormatDateTime('nn', Now);
Edit14.Text := FormatDateTime('ss', Now);
Edit15.Text := FormatDateTime('zzz', Now);

end;

end.

Language Config

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2, Buttons, Menus, IniFiles, xmldom, XMLIntf,
msxmldom, XMLDoc, ComCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
MainMenu1: TMainMenu;
File1: TMenuItem;
New1: TMenuItem;
Open1: TMenuItem;
SaveAs1: TMenuItem;
N1: TMenuItem;
Exit1: TMenuItem;
Language1: TMenuItem;
Indonesian1: TMenuItem;
English1: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Email1: TMenuItem;
Websit1: TMenuItem;
StatusBar1: TStatusBar;
Norge1: TMenuItem;
N2: TMenuItem;
procedure New1Click(Sender: TObject);
procedure English1Click(Sender: TObject);
procedure Indonesian1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Email1Click(Sender: TObject);
procedure Websit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Norge1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Ini : TIniFile;
Lang : String;
implementation

{$R *.dfm}

procedure TForm1.New1Click(Sender: TObject);
begin
Memo1.Clear;
end;

procedure TForm1.English1Click(Sender: TObject);
begin
Eng;
English1.Checked := true;
Indonesian1.Checked := false;
Norge1.Checked := false;
StatusBar1.Panels[1].Text := 'English';
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Ini.WriteString('Copyright © 2009, Zephio Soft.','Language','English');
finally
Ini.Free;
end;
end;

procedure TForm1.Indonesian1Click(Sender: TObject);
begin
Ind;
Indonesian1.Checked := true;
English1.Checked := false;
Norge1.Checked := false;
StatusBar1.Panels[1].Text := 'Bahasa Indonesia';
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Ini.WriteString('Copyright © 2009, Zephio Soft.','Language','Bahasa Indonesia') ;
finally
Ini.Free;
end;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.SaveAs1Click(Sender: TObject);
begin
if not SaveDialog1.Execute then
Exit;
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm1.Open1Click(Sender: TObject);
begin
if not OpenDialog1.Execute then
Exit;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Email1Click(Sender: TObject);
begin
Email;
end;

procedure TForm1.Websit1Click(Sender: TObject);
begin
Web;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Lang := Ini.ReadString('Copyright © 2009, Zephio Soft.','Language','') ;
StatusBar1.Panels[1].Text := Lang;
finally
Ini.Free;
if StatusBar1.Panels[1].Text = 'Bahasa Indonesia' then
begin
Ind;
Indonesian1.Checked := true;
English1.Checked := false;
Norge1.Checked := false;
end
else
if StatusBar1.Panels[1].Text = 'English' then
begin
Eng;
English1.Checked := true;
Indonesian1.Checked := false;
Norge1.Checked := false;
end
else
if StatusBar1.Panels[1].Text = 'Norge' then
begin
Nor;
Norge1.Checked := true;
Indonesian1.Checked := false;
English1.Checked := false
end
else
begin
StatusBar1.Panels[1].Text := 'English';
Eng;
English1.Checked := true;
Indonesian1.Checked := false;
Norge1.Checked := false;
end;

end;

end;

procedure TForm1.Norge1Click(Sender: TObject);
begin
Nor;
Norge1.Checked := true;
English1.Checked := false;
Indonesian1.Checked := false;
StatusBar1.Panels[1].Text := 'Norge';
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Ini.WriteString('Copyright © 2009, Zephio Soft.','Language','Norge') ;
finally
Ini.Free;
end;
end;

end.

//-------------------------------------------------->

unit Unit2;

interface

procedure Ind;
procedure Eng;
procedure Nor;
procedure Web;
procedure Email;

implementation

Uses
Unit1, ShellApi, Windows, SysUtils;

procedure Ind;
begin
Form1.File1.Caption := 'Berkas';
Form1.New1.Caption := 'Baru';
Form1.Open1.Caption := 'Buka';
Form1.SaveAs1.Caption := 'Simpan Sebagai';
Form1.Exit1.Caption := 'Keluar';
Form1.Language1.Caption := 'Bahasa';
Form1.English1.Caption := 'Inggris';
Form1.Indonesian1.Caption := 'Indonesia';
Form1.Norge1.Caption := 'Norwegia';
end;

procedure Eng;
begin
Form1.File1.Caption := 'File';
Form1.New1.Caption := 'New File';
Form1.Open1.Caption := 'Open';
Form1.SaveAs1.Caption := 'Save As';
Form1.Exit1.Caption := 'Exit';
Form1.Language1.Caption := 'Language';
Form1.English1.Caption := 'English';
Form1.Indonesian1.Caption := 'Indonesian';
Form1.Norge1.Caption := 'Norsk';
end;

procedure Nor;
begin
Form1.File1.Caption := 'fil...';
Form1.New1.Caption := 'Ny fil...';
Form1.Open1.Caption := 'Åpne...';
Form1.SaveAs1.Caption := 'Lagre som...';
Form1.Exit1.Caption := 'Avslutt';
Form1.Language1.Caption := 'Språk';
Form1.English1.Caption := 'Engelsk';
Form1.Indonesian1.Caption := 'Indonesisk';
Form1.Norge1.Caption := 'Norge';
end;

procedure Web;
var
St : Array [0..255] of char;
begin
ShellExecute(0,'open',StrPCopy(St,'http://myspace.com/zephio'),nil,nil,SW_SHOW);
end;

procedure Email;
begin
ShellExecute(0,'open','mailto:zephio@myspace.com?subject=Hi, Zephio...','','',SW_SHOW);
end;
end.

DL SChttp://www.mediafire.com/?za6ql1x1bj1b540

Ini Config

unit Unit1;

interface

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

type
TForm1 = class(TForm)
EL: TEdit;
BO: TSpeedButton;
BS: TSpeedButton;
OD: TOpenDialog;
SD: TSaveDialog;
procedure BOClick(Sender: TObject);
procedure BSClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Ini : TIniFile;

implementation

{$R *.dfm}

procedure TForm1.BOClick(Sender: TObject);
begin
if not OD.Execute then
Exit
else
Ini := TIniFile.Create(OD.FileName);
EL.Text := Ini.ReadString('ZS-2009','1','') ;
Ini.Free;
end;

procedure TForm1.BSClick(Sender: TObject);
begin
if not SD.Execute then
Exit;
Ini := TIniFile.Create(SD.FileName);
Ini.WriteString('ZS-2009','1',EL.Text);
Ini.Free;
end;

end.

DL SC

Pilih Nomor Genap

program zs;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
I : Integer;
begin
for I := 1 to 10 do
if (I mod 2) > 0 then
WriteLn(I);
ReadLn;
end.

Friday, May 13, 2011

Membuat Chiptunes

Aku bikin Tutorial ini bukan Mengulas tentang, apa itu Chiptune, Extended Module atau Amiga/Atari Music yg sekarang sering dijumpa'i di Keygen, Key Maker, Patch, Crack2 Software.
Apa itu : *.xm = Fast Tracker 2 Module
          *.mod = Pro Tracker Module
          *.it = Impulse Tracker Module
          *.S3M = Scream Tracker Module
          *.sap, *.mtm,*.ay, *.v2m, *.okt, *.stm, *.sunvox, *.fc3, *.fc4 etc w pokok'e ada ratusan Jenis,
keterangan tsb isa dicari di Wiki/Google.

Banyak Pilihan Software Composser.
Misal :
       Open MPT, Mod Tracker, Schism Tracker, Fami Tracker, Renoise, Mad Tracker, Sun Vox, Milky Tracker, Nitro Trcker etc. Mulai gratis Sampai Berbayar isa dicari d google.
tapi aku Pakai Open MPT. ini link'e http://www.sourceforge.net/projects/modplug

Klau kamu terbiasa bikin Midi pakai pakai Electone Keyboard, tinggal Import midi Files Konversi ke Format yg diinginkan beres.
Aku punya Electone Keyboard tp g ada USB, Disket jd biasa ketik Pakai Keyboard PC. sampai Capek jari'e (,'') he...(3x).

Syarat Utama Harus Mengerti Not.
kalau g ngerti Not pakai Gitar bikin lagu pakai gitar petik dawai 1/1 catat di kertas.
coz aku jg g isa Not, tapi aku pakai Feeling klau kurasa Fals ditelinga isa dibeda'no.
Untuk Masalah Mengarang Lagu Cuma Inspirasi Masing2, tergantung keinginan.

A. Utk bikin Samples kita butuh Wave Editor misal Gold Wave atau Editor gratisan jg banyak.
B. atau Ambil Samples dari Keygen2, atau DL d : keygenmusic.net, http://modarchive.org/, aku punya puluhan ribu Chiptunes berbagai Extensi, tapi mau upload males.
C. Ketik Chiptunes Samples atau Sample.wav di google banyak kok.

ok mulai!.
1. Klik File -> New ->Pilih Salah Satu.
2. Samples -> Import Sample
3. lihat gambar 1

4. Klik Patterns
Lihat gambar Berikut'e.

download bikinanku d: http://www.mediafire.com/?rjjbc447bapg8xc

done!...

jika masih bingung tanya sj.

Membuat Internet Browser

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, Unit2, Unit3, ExtCtrls, ComCtrls, Sockets;

type
TForm1 = class(TForm)
    MM: TMainMenu;
    File1: TMenuItem;
    NewTab1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    SB: TStatusBar;
    Timer1: TTimer;
    TC: TTcpClient;
    procedure NewTab1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.NewTab1Click(Sender: TObject);
begin
   TForm2.Create(Self);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.Title := 'ZS Browser';
if not DirectoryExists(ExtractFilePath(Application.ExeName)+'Bookmarks') then
   CreateDir(ExtractFilePath(Application.ExeName)+'Bookmarks');
   EB;
   EM;
   EF;
   ET;
   SB.Panels[2].Text := TC.LocalHostAddr;
   SB.Panels[3].Text := TC.LocalHostName;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   SB.Panels[0].Text := DateToStr(Date);
   SB.Panels[1].Text := TimeToStr(Time);
end;

end.

//---------------------------------------------------------------------->

{ Created By : Zephio
URL :    http://amateur-guide.blogspot.com}
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, OleCtrls, SHDocVw, StdActns, ActnList, ExtCtrls, StdCtrls,
ComCtrls, Buttons, FileCtrl, ShellApi;

type
TForm2 = class(TForm)
    WB: TWebBrowser;
    MM: TMainMenu;
    File1: TMenuItem;
    NewTab1: TMenuItem;
    Close1: TMenuItem;
    Exit1: TMenuItem;
    N1: TMenuItem;
    AL: TActionList;
    WindowClose1: TWindowClose;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowArrange1: TWindowArrange;
    Windows1: TMenuItem;
    ile1: TMenuItem;
    Cascade1: TMenuItem;
    Arrange1: TMenuItem;
    MinimizeAll1: TMenuItem;
    ile21: TMenuItem;
    PIU: TPanel;
    CB: TComboBox;
    OnEnterUrl1: TAction;
    PBM: TPanel;
    SpeedButton1: TSpeedButton;
    PHBM: TPanel;
    PHBC: TPanel;
    Bookmarks1: TMenuItem;
    N2: TMenuItem;
    PAB: TPanel;
    FLB: TFileListBox;
    EAT: TEdit;
    EAU: TEdit;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Panel1: TPanel;
    Panel2: TPanel;
    LH: TListBox;
    Panel4: TPanel;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Panel3: TPanel;
    Panel5: TPanel;
    EGS: TEdit;
    SpeedButton7: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    View1: TMenuItem;
    Back1: TMenuItem;
    Forward1: TMenuItem;
    Reload1: TMenuItem;
    N3: TMenuItem;
    Stop1: TMenuItem;
    Info1: TMenuItem;
    Contact1: TMenuItem;
    Web1: TMenuItem;
    About1: TMenuItem;
    N4: TMenuItem;
    Open1: TMenuItem;
    OD: TOpenDialog;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure NewTab1Click(Sender: TObject);
    procedure OnEnterUrl1Execute(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure PHBMMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PIUMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LBMMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PHBCMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Bookmarks1Click(Sender: TObject);
    procedure PHBCClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FLBDblClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FLBClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure EATClick(Sender: TObject);
    procedure EAUClick(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure LHDblClick(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure EGSClick(Sender: TObject);
    procedure WBStatusTextChange(Sender: TObject; const Text: WideString);
    procedure WBTitleChange(Sender: TObject; const Text: WideString);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure LHClick(Sender: TObject);
    procedure Back1Click(Sender: TObject);
    procedure Forward1Click(Sender: TObject);
    procedure Reload1Click(Sender: TObject);
    procedure Stop1Click(Sender: TObject);
    procedure Contact1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure Web1Click(Sender: TObject);
    procedure Open1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
    procedure EUS(Sender: TObject);
    procedure EHS(Sender: TObject);
end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.EHS(Sender: TObject);
var
   SL : TStringList;
begin
   SL := TStringList.Create;
   SL.Add('http://amateur-guide.blogspot.com');
   SL.Add('http://myspace.com/zephio');
   SL.Add('http://facebook.com/zephio85');
   SL.Add('http://twitter.com/zephio');
   FLB.Directory := ExtractFilePath(Application.ExeName)+'BookMarks';
if not DirectoryExists(ExtractFilePath(Application.ExeName)+'History') then
   CreateDir(ExtractFilePath(Application.ExeName)+'History');
if not FileExists(ExtractFilePath(Application.ExeName)+'History\Log.his') then
   SL.SaveToFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
   SL.Free;
end;

procedure TForm2.EUS(Sender: TObject);
begin
if CB.Text = '' then
   Exit
else
   WB.Navigate(CB.Text);
   EHS(Self);
   CB.Items.Add(CB.Text);
   CB.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
   LH.Clear;
   LH.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action := CaFree;
end;

procedure TForm2.NewTab1Click(Sender: TObject);
begin
   Form1.NewTab1Click(Self);
end;

procedure TForm2.OnEnterUrl1Execute(Sender: TObject);
begin
   EUS(Self);
end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
   EUS(Self);
end;

procedure TForm2.PHBMMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
   PHBC.Font.Color := ClBlack;
end;

procedure TForm2.PIUMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
   PAB.Font.Color := ClBlack;
end;

procedure TForm2.LBMMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
   PIU.Font.Color := ClBlack;
end;

procedure TForm2.PHBCMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
   PHBC.Font.Color := ClRed;
end;

procedure TForm2.Bookmarks1Click(Sender: TObject);
begin
   PBM.Visible := not PBM.Visible;
   Bookmarks1.Checked := not Bookmarks1.Checked;
end;

procedure TForm2.PHBCClick(Sender: TObject);
begin
   Bookmarks1Click(Self);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
   EHS(Self);
   CB.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
   LH.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
end;

procedure TForm2.FLBDblClick(Sender: TObject);
var
   SL : TStringList;
begin
   SL := TStringList.Create;
if not FileExists(ExtractFilePath(Application.ExeName)+'Bookmarks\'+FLB.Items[FLB.ItemIndex]) then
   Exit;
   SL.LoadFromFile(FLB.Items[FLB.ItemIndex]);
   CB.Text := Copy(SL.Strings[1], 5, Length(SL.Strings[1]));
   EUS(Self);
   SL.Free;
end;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   LH.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
end;

procedure TForm2.FLBClick(Sender: TObject);
begin
   FLB.Hint := 'Visit '+ChangeFileExt(FLB.Items[FLB.ItemIndex],'');
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
var
   SL : TStringList;
begin
   SL := TStringList.Create;
if (EAU.Text = '') or
   (EAU.Text = 'Enter URL Here') then
   Exit
else
   SL.Add('[InternetShortcut]');
   SL.Add('URL='+EAU.Text);
   SL.SaveToFile(ExtractFilePath(Application.ExeName)+'Bookmarks\'+EAT.Text+'.url');
   SL.Free;
   EAT.Text := 'Untitled';
   EAT.Font.Color := ClGray;
   EAU.Text := 'Enter URL Here';
   EAU.Font.Color := ClGray;
   FLB.Directory := ExtractFilePath(Application.ExeName)+'BookMarks';
end;

procedure TForm2.EATClick(Sender: TObject);
begin
if EAT.Text <> 'Untitled' then
   Exit
else
   EAT.Clear;
   EAT.Font.Color := CLBlack;
end;

procedure TForm2.EAUClick(Sender: TObject);
begin
if EAU.Text <> 'Enter URL Here' then
   Exit
else
   EAU.Clear;
   EAU.Font.Color := CLBlack;
end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
if {(FLB.Selected[FLB.ItemIndex] = false) or }
   (FLB.Count = 0) then
   Exit
else
   DeleteFile(ExtractFilePath(Application.ExeName)+'BookMarks\'+FLB.Items[FLB.ItemIndex]);
if FLB.ItemIndex >= 0 then
   FLB.Items.Delete(FLB.ItemIndex);
   FLB.Directory := ExtractFilePath(Application.ExeName)+'BookMarks';
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
if LH.ItemIndex >= 0 then
   LH.Items.Delete(LH.ItemIndex);
   LH.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
end;

procedure TForm2.SpeedButton5Click(Sender: TObject);
var
   S : String;
begin
   S := Copy(CB.Text, 0, Length(CB.Text));
   LH.Clear;
   CB.Clear;
   DeleteFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
   LH.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
   CB.Text := S;
end;

procedure TForm2.LHDblClick(Sender: TObject);
begin
if LH.Count = 0 then
   Exit
else
   CB.Text := LH.Items[LH.ItemIndex];
   EUS(Self);
end;

procedure TForm2.SpeedButton7Click(Sender: TObject);
begin
if (EGS.Text = '') or
   (EGS.Text = 'Google Search Engine') then
   Exit
else
   CB.Text := 'http://www.google.com/search?q='+EGS.Text+'&num=10&ie=utf-8';
   EUS(Self);
end;

procedure TForm2.EGSClick(Sender: TObject);
begin
if EGS.Text <> 'Google Search Engine' then
   Exit
else
   EGS.Clear;
   EGS.Font.Color := CLBlack;
end;

procedure TForm2.WBStatusTextChange(Sender: TObject;
const Text: WideString);
begin
   Form1.SB.Panels[4].Text := WB.LocationURL;
end;

procedure TForm2.WBTitleChange(Sender: TObject; const Text: WideString);
begin
   Caption := WB.LocationName;
end;

procedure TForm2.SpeedButton6Click(Sender: TObject);
begin
    WB.GoBack;
end;

procedure TForm2.SpeedButton8Click(Sender: TObject);
begin
   WB.GoForward;
end;

procedure TForm2.SpeedButton9Click(Sender: TObject);
begin
   EUS(Self);
end;

procedure TForm2.SpeedButton10Click(Sender: TObject);
begin
   WB.Stop;
end;

procedure TForm2.LHClick(Sender: TObject);
begin
   LH.Hint := LH.Items[LH.ItemIndex];
end;

procedure TForm2.Back1Click(Sender: TObject);
begin
   WB.GoBack;
end;

procedure TForm2.Forward1Click(Sender: TObject);
begin
   WB.GoForward;
end;

procedure TForm2.Reload1Click(Sender: TObject);
begin
   EUS(Self);
end;

procedure TForm2.Stop1Click(Sender: TObject);
begin
   WB.Stop;
end;

procedure TForm2.Contact1Click(Sender: TObject);
begin
   ShellExecute(0,'open','mailto:zephio@myspace.com?subject=Hi, Zephio...','','',SW_SHOW);
end;

procedure TForm2.About1Click(Sender: TObject);
begin
   ShowMessage('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'+#13+
               'Apps Name : ZS Browser'+#13+
               'Apps Type : Internet Browser'+#13+
               'Platform : Win XP'+#13+
               'Created By : Zephio'+#13+
               'URL : http://amateur-guide.blogspot.com'+#13+
               '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;

procedure TForm2.Web1Click(Sender: TObject);
begin
   WB.Navigate('http://amateur-guide.blogspot.com');
end;

procedure TForm2.Open1Click(Sender: TObject);
begin
if not OD.Execute then
   Exit;
   CB.Text := OD.FileName;
   EUS(Self);
end;

procedure TForm2.Exit1Click(Sender: TObject);
begin
   Application.Terminate;
end;

end.

//---------------------------------------------------------------------->

unit Unit3;

interface

uses
   Forms, SysUtils, Classes;

procedure EB;
procedure EM;
procedure EF;
procedure ET;

implementation

procedure EB;
var
   SL : TStringList;
begin
   SL := TStringList.Create;
   SL.Add('[InternetShortcut]');
   SL.Add('URL=http://amateur-guide.blogspot.com');
   SL.SaveToFile(ExtractFilePath(Application.ExeName)+'Bookmarks\Blog Spot.url');
   SL.Free;
end;

procedure EM;
var
   SL : TStringList;
begin
   SL := TStringList.Create;
   SL.Add('[InternetShortcut]');
   SL.Add('URL=http://myspace.com/zephio');
   SL.SaveToFile(ExtractFilePath(Application.ExeName)+'Bookmarks\My Space.url');
   SL.Free;
end;

procedure EF;
var
   SL : TStringList;
begin
   SL := TStringList.Create;
   SL.Add('[InternetShortcut]');
   SL.Add('URL=http://facebook.com/zephio85');
   SL.SaveToFile(ExtractFilePath(Application.ExeName)+'Bookmarks\Face Book.url');
   SL.Free;
end;

procedure ET;
var
   SL : TStringList;
begin
   SL := TStringList.Create;
   SL.Add('[InternetShortcut]');
   SL.Add('URL=http://twitter.com/zephio');
   SL.SaveToFile(ExtractFilePath(Application.ExeName)+'Bookmarks\Twitter.url');
   SL.Free;
end;

end.
DL SC : http://www.mediafire.com/?c859v61ajfksj5e

Membuat Shortcut Internet

unit Unit1;

interface

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

type
TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    SD: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
    procedure ESF(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ESF(Sender: TObject);
var
   SL : TStringList;
begin
   SD.DefaultExt := '*.url';
   SD.Filter := 'Internet Shorcut|*.url';
if not SD.Execute then
   exit;
   SL := TStringList.Create;
   SL.Add('[InternetShortcut]');
   SL.Add('URL='+Edit1.Text);
   SL.SaveToFile(SD.FileName);
   SL.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Edit1.Text := 'http://amateur-guide.blogspot.com';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ESF(Self);
end;

end.

Saturday, May 7, 2011

Membuat Kamus/Dictionary

By : Zephio
//Bagian Data
unit Data;

interface

Uses
   IniFiles, SysUtils, Forms;

procedure Translate;

var
   Ini : TIniFile;

implementation

procedure Translate;
begin
try
   Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.zsd'));
// Jawa - Indonesia
   Ini.WriteString('Zephio Soft - 2010', 'Koen', 'Kamu, Anda');
   Ini.WriteString('Zephio Soft - 2010', 'Aku', 'Saya, Aku');
// Indonesia - Jawa
   Ini.WriteString('Zephio Soft - 2010', 'Saya', 'Aku, Awakku');
   Ini.WriteString('Zephio Soft - 2010', 'Kamu', 'Koen, Kowe, Awakmu, Sampeyan');
finally
   Ini.Free;
end;
end;

end.

//Engine
unit Engine;

interface

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

type
TForm1 = class(TForm)
    E1: TEdit;
    M1: TMemo;
    B1: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    E3: TEdit;
    E4: TEdit;
    Label3: TLabel;
    B2: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure B1Click(Sender: TObject);
    procedure B2Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
Ini : TIniFile;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
if not FileExists(ChangeFileExt(ExtractFileName(Application.ExeName),'.zsd')) then
   Translate;
end;

procedure TForm1.B1Click(Sender: TObject);
begin
if (E1.Text = '') then
   ShowMessage('Input Masih Kosong'+#13#10+'Silahkan Isi Kata yang hendak ditranslate!....')
else
try
   Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.zsd'));
   M1.Lines.Text := Ini.ReadString('Zephio Soft - 2010', E1.Text, '');
finally
   Ini.Free;
end;
end;

procedure TForm1.B2Click(Sender: TObject);
begin
if (E3.Text = '') or
   (E4.Text = '') then
begin
   ShowMessage('Input Masih Kosong'+#13#10+'Silahkan Isi Kata yang hendak ditambahkan');
   Exit
end
else
   Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.zsd'));
   Ini.WriteString('Zephio Soft - 2010', E3.Text, E4.Text);
   Ini.Free;
end;

end.
DL SC : http://www.mediafire.com/?b1r6ggpp77pba2p

Extract File Name

//Extract File Name
//By : Zephio
unit Unit1;

interface

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

type
TForm1 = class(TForm)
    E1: TEdit;
    E2: TEdit;
    E3: TEdit;
    E4: TEdit;
    B1: TSpeedButton;
    OD: TOpenDialog;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    E5: TEdit;
    Label5: TLabel;
    E6: TEdit;
    Label6: TLabel;
    E7: TEdit;
    Label7: TLabel;
    E8: TEdit;
    E9: TEdit;
    E10: TEdit;
    E11: TEdit;
    procedure B1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.B1Click(Sender: TObject);
begin
if OD.Execute then
begin
   E1.Text := OD.FileName;
   E2.Text := ExtractFileName(E1.Text);
   E3.Text := ExpandFileName(E2.Text);
//------------------------------------------------------------------------------>
   E4.Text := ExtractFileName(ExtractFileExt(E1.Text));
//or
   E11.Text := LowerCase(ExtractFileExt(OD.FileName));
//------------------------------------------------------------------------------>
   E5.Text := ChangeFileExt(ExtractFileName(OD.FileName),'');
   E6.Text := ExtractFileDrive(OD.FileName);
   E7.Text := ExtractFilePath(OD.FileName);
   E8.Text := ExtractFileDir(OD.FileName);
   E9.Text := ExtractFileDir(ExtractFileDir(OD.FileName));
   E10.Text := ExtractShortPathName(OD.FileName);
end;
end;
end.

Windows System Menu

//Windows System menu
//By : Zephio
unit Unit1;

interface

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

type
TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

//Minimize 1
procedure TForm1.Button1Click(Sender: TObject);
begin
   Form1.Perform(WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;

//Minimize 2
procedure TForm1.Button2Click(Sender: TObject);
begin
   SendMessage(Application.Handle, WM_SYSCOMMAND, SC_Minimize, 1);
end;

//Minimize 3
procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Minimize;
end;

//Restore 1
procedure TForm1.Button4Click(Sender: TObject);
begin
   Application.Restore;
end;

//Restore 2
procedure TForm1.Button5Click(Sender: TObject);
begin
   Form1.Perform(WM_SYSCOMMAND, SC_RESTORE, 0);
end;

//Restore 3
procedure TForm1.Button6Click(Sender: TObject);
begin
   SendMessage(Application.Handle, WM_SYSCOMMAND, SC_RESTORE, 1);
end;

//Maximize 1
procedure TForm1.Button7Click(Sender: TObject);
begin
Form1.Perform(WM_SYSCOMMAND, SC_ZOOM, 0);
end;

//Maximize 2
procedure TForm1.Button8Click(Sender: TObject);
begin
   SendMessage(Application.Handle, WM_SYSCOMMAND, SC_ZOOM, 1);
end;

//Maximize 3
procedure TForm1.Button9Click(Sender: TObject);
begin
   Form1.Perform(WM_SYSCOMMAND, SC_MAXIMIZE, 0);
//or: SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 1);
end;

//Close 1
procedure TForm1.Button10Click(Sender: TObject);
begin
Close;
//Atau gaya BCB: Close();
end;

//Close 2
procedure TForm1.Button11Click(Sender: TObject);
begin
   Application.Terminate;
end;

//Close 3
procedure TForm1.Button12Click(Sender: TObject);
begin
   Form1.Perform(WM_SYSCOMMAND, SC_CLOSE, 0);
end;

//Close 4
procedure TForm1.Button13Click(Sender: TObject);
begin
   SendMessage(Application.Handle, WM_SYSCOMMAND, SC_CLOSE, 1);
end;

//Klik Start menu
procedure TForm1.Button14Click(Sender: TObject);
begin
   SendMessage(Application.Handle, WM_SYSCOMMAND, SC_TASKLIST, 1);
end;

//Sembunyikan Apps pada Task Bar
procedure TForm1.Button15Click(Sender: TObject);
begin
   ShowWindow(Application.Handle, SW_HIDE);
end;

//Tampilkan Apps pada Task Bar
procedure TForm1.Button16Click(Sender: TObject);
begin
   ShowWindow(Application.Handle, SW_SHOWNORMAL);
end;

//ScreenSaver Mode
procedure TForm1.Button17Click(Sender: TObject);
begin
   SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
end;

end.

Executed DLL

//Bagian Executed DLL
// By : Zephio
// Untuk Membuat DLL, Klik Main Menu : File -> New -> Other...-> DLL Wizard.

library ZS;

uses
SysUtils,
Windows,
ShellApi;

{$R *.res}

procedure EA;
var
   MsgText, MsgCaption : String;
   MsgType, UserResp : integer;
begin
   MsgCaption := '.About :.';
   MsgText := MsgText + 'Created By : Zephio' +#13#10;
   MsgText := MsgText + 'URL :http://amateur-guide.blogspot.com';
   MsgType := MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON1 + MB_APPLMODAL;
   UserResp := MessageBox( 0, PChar(MsgText), PChar(MsgCaption), MsgType);
end;

procedure EE;
begin
   ShellExecute(0,'open','mailto:zephio@myspace.com?subject=Hi, Zephio...','','',SW_SHOW);
end;

procedure EF;
begin
   ShellExecute(0,'open','C:\WINDOWS\system32\cmd.exe',nil,nil,SW_SHOW);
end;

procedure EU;
begin
   ShellExecute(0,'open','http://amateur-guide.blogspot.com',nil,nil,SW_SHOW);
end;

exports EF, EE, EU, EA;
begin
end.

//Bagian Form

unit Unit1;

interface

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

type
TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
procedure EF; external 'ZS.dll';
procedure EA; external 'ZS.dll';
procedure EE; external 'ZS.dll';
procedure EU; external 'ZS.dll';
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Button1.Caption := 'Contact';
   Button2.Caption := 'URL';
   Button3.Caption := 'Open CMD';
   Button4.Caption := 'About';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EE;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   EU;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   EF;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
   EA;
end;

end.