SEMINAR KEROYOKAN HACKING & VIRUS dlm rangka Hari Kesadaran Keamanan Informasi

Dalam Rangka memperingati Hari Kesadaran Keamanan Informasi (HKKI), Ilmu Komputer UGM berkerja sama dengan Komunitas Keamanan Indonesia(KKI), ID-SIRTII, Lembaga Sandi Negara (Lemsaneg) akan menyelenggaran SEMINAR DAN LOKAKARYA NASIONAL dengan tema:

Menyambut (dengan SEDIH atau GEMBIRA) Undang-Undang Informasi dan Transaksi Elektronik
PEMBICARA:

- Lemsaneg (lembaga sandi negara)
- Depkominfo
- BIN (Badan Intelejen Nasional)
- ID_SIRTII
- Bp. Subardo
- Richardus Eko Indrajit (ID SIRTII)
- Gildas Deograt (KKI)
- Toto Atmojo (JASAKOM)
- Jazi Eko Istianto
- Bambang Prastowo (UGM)
- Aat Shadewa (Virologi.info)
Yang akan dilaksanakan pada :
Hari : Kamis – Jum’at
Tanggal : 24 – 25 April 2008
Waktu : 08.00 – 16.00
Tempat : Ruang Auditorium A1.06-A1.07, Fakultas MIPA Universitas Gadjah Mada
Menghadirkan Menkominfo*) Sebagai Keynote Speaker.
*) dalam tahap konfirmasi
Rangkaian Acara :

1. Pameran dari para pemerhati keamanan informasi : Lembaga Sandi Negara, APJII, Cisco, Microsoft, DNET, Sigma, Datamation, ICT, ID-SIRTII

2. Hari Pertama
Seminar dan Talkshow tentang Ketahanan Publik dan Keamanan Negara, Perlindungan Obyek Vital Industri dan Pemerintah, Kejahatan Dunia Maya.
Nara Sumber : Lemsaneg (lembaga sandi negara), Depkominfo , BIN, ID_SIRTII, dan masih banyak lainnya.

3. Hari Kedua
Lokakarya tentang Terorisme dan Perang Informasi di Dunia Maya, Spionase Bisnis Dalam Konteks Persaigan Usaha, Intrusion Prevention.
Nara Sumber : Bp. Subardo, Gildas Deograt, Toto Atmojo, Jazi Eko Istianto, Bambang Prastowo, Aat Shadewa.

Fasilitas :

* Materi Seminar dan Lokakarya
* Sertifikat
* Makan Siang dan coffe break selama 2 hari
* Seminar Kit

Kapasitas : Tersedia 250 tempat

Kontribusi :

* Pelajar dan Mahasiswa : Rp. 30.000
* Umum : Rp. 60.000

Registrasi dan Pembayaran :
Registrasi dan pembayaran dapat dilayani selambat-lambatnya tanggal 23 April 2008 jam 14.00 atau sampai kapasitas terpenuhi

1. Transfer rekening
BCA 8610021256 atas nama Landhes Bregas Manuhara
Mandiri 1360004196769 atas nama Landhes Bregas Manuhara
Dikonfirmasi kepada contact person dengan menyertakan nama lengkap, tanggal transfer, nomor HP

2. Atau Registrasi dan Pembayaran Secara langsung di sekretariat Ilmu Komputer UGM Sekip Unit III FMIPA Gedung Selatan – Sleman, Jogjakarta, pada Jam kerja

Harap bukti transfer ataupun bukti pembayaran dibawa saat registrasi ulang pada hari H acara

Contact Person :
Landhes B.M (081-392-53-53-22)
Jadual Tentative :
http://ikomp.ugm.ac.id/downloads/hkki.pdf

Memproteksi Flashdisk dari Virus

Kadang ketika saya dari warnet untuk mengupload file, setibanya di rumah flashdisk terdapat tamu tak diundang, klo ga virus sality ya virus alman. Padahal antivirus di warnet sudah pake salah satu antivirus lokal yang suka mengeluarkan updatean, kok ga terdeteksi ya . Akhirnya capek lagi untuk mengcopy file2 program yang saya wajibkan di flashdisk Pikir2, cuma warnet itu yang dekat rumah saya . Masak cuma upload file mesti jauh2 sih

Akhirnya terpikir untuk membuat flashdisk menjadi read-only. Tapi flashdisk saya murahan jadi ga ada switch buat hal tersebut . Terpikir untuk manipulasi registry, mengingat registry buat protek drive aja ada, masak buat flashdisk ga ada ?!

Loading…

Loading…

Ketemu juga di registry :
“HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies”,
dengan dword valuenya “WriteProtect”

Cukup ubah saja nilai dari “WriteProtect” menjadi 1 maka flashdisk tidak dapat “digerayangi”

Sudah ketemu caranya maka tinggal ubah aja registrnya abis itu ntar dinormlin lagi ya.. Tapi klo regeditnya diprotect, ya kita buat aja programnya, upload programmnya, pas di warnet download kemudian buka tuh program, jadi klo ke warnet buat upload data ga perlu bawa oleh2 lagi. Terutama buat cewek2 yang kerjaannya upload foto di FS mulu

Disini saya membuatnya menggunakan Delphi 7, berikut source codenya :

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
Label3: TLabel;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure showCurrentStatus;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

const
regKey = ‘\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies’;
regValue = ‘WriteProtect’;
var
Form1: TForm1;
currentVal: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
try
with TRegistry.Create do
begin
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey(regKey, true) then
begin
if currentVal = 0 then
WriteInteger(regValue, 1)
else
WriteInteger(regValue, 0);
end;
finally
free;
end;
end;
except
on E:Exception do
begin
showmessage(‘Error updating registry’);
end;
end;
showCurrentStatus;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
showCurrentStatus;
end;

procedure TForm1.showCurrentStatus;
begin
try
with TRegistry.Create do
begin
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey(regKey, false) then
begin
currentVal := ReadInteger(regValue);
if currentVal = 0 then
label1.caption := ‘Current status: Your USB disk is now WRITEABLE’
else
label1.caption := ‘Current status: Your USB disk is now READ ONLY’;
end
else
begin
label1.caption := ‘There is no current setting for your USB disk.’;
currentVal := 0;
end;
finally
free;
end;
end;
except
on E:Exception do
begin
showmessage(‘Error reading current status from registry’);
label1.caption := ‘There is no current setting for your USB disk.’;
currentVal := 0;
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WinExec(‘explorer.exe http://anggiawan.web.id’,SW_NORMAL);
end;

end.

Yup source code sederhana untuk manipulasi registry, jika kamu rajin bisa dikembangkan untuk membuat program sejenis tweak xp atau di indonesia lebih ngetop pake tuneup utilities

Untuk file yang sudah jadi silahkan download di http://putih.0fees.net/dl/USBWriteableAdjuster.zip

Segitu aja, mudah2an ada manfaat programnya dan berguna bagi yang baru belajar coding. Saya juga masih pemula

Youtube & … Rules !!

Dalam kasus penutupan akses ke youtube , beberapa teman di millis maupun forum
hangat membicarakanya. ini wajar krn youtube sudah bertahun tahun akrab dan
menjadi akses legal bagi user di indonesia.
ujung ujungnya .. byk di bicarakan bagaimana mengakses youtube ??
tentu model koneksi proxy menjadi jawabanya !!
lalu koneksi proxy yg bagaimana ?? bukankah koneksi proxy itu lama ??
ya tapi tidak semua dan di sini saya akan bicara ttg itu …

ada sebuah celah dari peraturan pemerintah ini. saya tidak tahu apakah ini
hal yg terlupa dari pak mentri .. atau apa ?? .
sperti kita tahu bahwa akses ke youtube atau tempat lain yg di larang pemerintah
di dasarkan atas surat mentri kepada para provider internet untuk menutup jalur.
model menutup jalur di level provider internet walaupun di lakukan serempak ,
tetapi ini sesungguhnya di lakukan secara lokal di lingkungan provider tsb.
artinya .. tidak secara terpusat di tutup!!
artinya lagi .. kalo ada provider yg tidak menutup akses , maka youtube menjadi
accessable.

untuk itu mari kita tes hal ini !!
kita akan bikin sebuah proxy sendiri !! dimana fungsi proxy ini , mengalihkan jalur
akses normal !! contoh ketika ingin mengakses youtube !!

akses normal : anda –> ISP –>youtube
akses diblok : anda –> ISP | bloking | — youtube
akses proxy : anda –> ISP –> proxy –> yotube

Proxy dlm tes ini adalah web proxy !!
Krn untuk keperluan tes , web proxy ini harus masih dlm lingkungan indonesia.
untuk itu saya pilih hosting server lokal yg mengarah ke IIX (Indonesia Internet eXchange)
kalo server luar ya ngapain pake tes .. sudah tentu pasti bisa !!
so we go ..

1. Membangun proxy dgn bantuan CGI script dari situs jmarshall
http://www.jmarshall.com/tools/cgiproxy/

2. Melakukan installasi , supaya cepat saya lakukan installasi otomatis.
yg perlu di perhatikan adalah script install otomatis ini meminta
memasukan FTP username dan password , wajar untuk proses instalasi.
prosses instalasi otomatis lakukan disini : http://install.xav.com/?p=cgiproxy
Anda tinggal klik start dan ikuti petunjuk selanjutnya.

3. Setelah selesai mari kita tes proxy kita .
tentu pertama adalah tes IP .
gambar ini menunjukan IP dari hosting saya yg masih lingkungan indonesia.

4. Gambar dibwah ini interface proxy ( defult ) dari script yg kita install

5. lihat hasil tes
menunjukkan fine fine aja , saya bisa login dgn account jasakomforum .
saya bisa browse & play Movie ..

Lalu pelajaran apa yg bisa di petik dari tes ini ??

1. Pemblokiran youtube hanya di lakukan secara lokal ISP walaupun terlihat terpadu.
2. jalur ke IIX tidak di tutup . ( at least .. dari percobaan saya ini )
3. lebih aman menggunakan proxy sendiri untuk tujuan apapun .
( script ini juga memungkinkan browse https , see the manual )
4. hacking content : anda yg terinspirasi ingin merampok account youtube dari teman
anda dg mempersilahkan akses ke youtube menggunakan web proxy anda setelah baca ini,
anda harus harus memodifikasi script yg di jalankan , saya sudah tes menunjukan hal itu bisa
di lakukan , parsing data to log.txt!! ( jgn kuatir , saya tidak lakukan di script demo ini )

Networking Dengan Delphi

Tools dan Perlengkapan

- Delphi + Indy 9 (google it !)

– Komputer dalam jaringan (pake VMware juga bisa)

– Seperti biasa, Dream Theater dengan lagunya Octavarium

Langkah Kerja

-Berhubung kita membuat dua program, sekarang kita buat program client dulu yach

- Jalanin Delphi, buat project baru

– Di form1, tambahkan item:

– 1 Indy TCPClient

– 1 Button

– 1 Edit box

– Di event Form1-onCreate, masukkin code berikut:

IdTCPClient1.Host := ‘192.168.1.2′; //Ganti sesuai kebutuhan

IdTCPClient1.Port := 123; //Ganti sesuai kebutuhan

idTCPClient1.Connect;

idTCPClient1.WriteLn(‘Connected !’);

Penjelasan:

Code di atas gunanya untuk ngasih tau idTCPClient1 bahwa hostnya 192.168.1.2 dan port 123. Perintah connect gunanya ya untuk connect ke server. Sedangkan perintah WriteLn gunanya untuk ngirim string berisi ‘Connected !’ ke server

- Pada event Button1-onClick, masukkin code berikut:

idTCPClient.WriteLn(Edit1.Text);

Penjelasan:

Dengan perintah WriteLn, idTCPClient1 ngirim string ke server yang isinya sama dengan text pada Edit1

OK, untuk sementara cukup dengan client.

Sekarang saatnya berpindah ke komputer server.

– Jalanin Delphi, buat project baru

– di form1, tambahkan item:

– 1 Indy TCPServer

– Di event Form1-onCreate, ketikkan code berikut:

idTCPServer1.DefaultPort := 123;

idTCPServer1.Active := True;

Penjelasan:

Property DefaultPort gunanya untuk ngasih tau idTCPServer1 bahwa default port-nya 123. Perintah Active gunanya ya untuk ngaktifin idTCPServer1

- Di event idTCPServer1-onExecute, ketikkan code berikut:

ShowMessage(AThread.Connection.ReadLn);

Penjelasan:

Perintah ShowMessage gunanya untuk menampilkan pesan dalam bentuk messagebox, isinya string yang dikirimkan dari client

Yap, that’s it ! Program kita udah jadi, sekarang saatnya untuk ngeliat hasilnya.

Jalankan program server di komputer A, trus program client di komputer B. Ingat, ganti host dari idTCPClient1 dengan IP address-nya komputer A. Kalo udah, tinggal ketikkin pesan di edit box dalam program client, klik Button1. Dan kalo Anda melakukan dengan benar, seharusnya apa yang diketikkin di komputer client bakal muncul di komputer server. OK, untuk saat ini sekian dulu. Silakan kembangkan artikel ini untuk membuat program jaringan yang berguna. Happy coding !

Mengolah String Pada Delphi

AnsiContainStr
Return true kalo string mengandung suatu substring

var
S : AnsiString;
begin
S := ‘Hadoitz itu keren’; //hehehe…
if AnsiContainsStr(S, ‘Hadoitz’) then ShowMessage(‘Return true’);
end;

AnsiLeftStr dan AnsiRightStr
Return string dari suatu substring

var
a, b, c: AnsiString;
begin
a := ‘Hadoitz itu keren’;
b := AnsiLeftStr(a, 5); //Ambil 5 karakter dari kiri
c := AnsiRightStr(a, 5); //Ambil 5 karakter dari kanan
ShowMessage(b);
ShowMessage(c);
end;

AnsiPos
Return posisi dari substring

var
posisi : Integer;
begin
posisi := AnsiPos(‘keren’, ‘Hadoitz itu keren’);
ShowMessage(‘Kata keren ditemukan di posisi: ‘ + IntToStr(posisi))
end;

StringReplace
Mengganti karakter tertentu dengan karakter yang kita inginkan

var
before, after : string;
begin
before := ‘Hadoitz itu keren’;
after := StringReplace(before, ‘ ‘, ‘_’, [rfReplaceAll, rfIgnoreCase]);
ShowMessage(‘Sebelum: ‘+ before);
ShowMessage(‘Sesudah:’ + after);
end;

StrScan
Men-scan karakter yang ada di string

var
s, hasil : string;
begin
s := ‘Hadoitz itu keren’;
hasil := StrScan(PChar(s), ‘i’);
ShowMessage(hasil);
end;

Trim
Menghilangkan spasi pada suatu string

const
S = ‘ Hadoitz ‘;
begin
ShowMessage(‘[' + TrimLeft(S) + ']‘);
ShowMessage(‘[' + TrimRight(S) + ']‘);
ShowMessage(‘[' + Trim(S) + ']‘);
end;

Semoga bermanfaat ^_^