HIMAKOM STMIK HANDAYANI

Blog Mahasiswa STMIK Handayani Makassar Jurusan Teknik Komputer HIMAKOM

Thursday, January 13, 2005

Password Default BIOS Lagi-lagi

Kalau sampai Anda suatu saat melupakan password bios Anda
dan malas untuk clear jumper, berikut ada daftar default password
cuman ini hanya buat Award BIOS dan AMI.

Password Default AMI BIOS

AMI PC BIOS Console n/a AM Admin
AMI PC BIOS Console n/a AMI Admin
AMI PC BIOS Console n/a A.M.I Admin
AMI PC BIOS Console n/a AMI_SW Admin
AMI PC BIOS Console n/a AMI?SW Admin
AMI PC BIOS Console n/a aammii Admin
AMI PC BIOS Console n/a AMI!SW Admin
AMI PC BIOS Console n/a AMI.KEY Admin
AMI PC BIOS Console n/a AMI.KEZ Admin
AMI PC BIOS Console n/a AMI~ Admin
AMI PC BIOS Console n/a AMIAMI Admin
AMI PC BIOS Console n/a AMIDECOD Admin
AMI PC BIOS Console n/a AMIPSWD Admin
AMI PC BIOS Console n/a amipswd Admin
AMI PC BIOS Console n/a AMISETUP Admin
AMI PC BIOS Console n/a BIOSPASS Admin
AMI PC BIOS Console n/a CMOSPWD Admin
AMI PC BIOS Console n/a HEWITT RAND Admin


Password Default AWARD BIOS

AWARD PC BIOS Console n/a Award Admin
AWARD PC BIOS Console n/a AWARD_SW Admin
AWARD PC BIOS Console n/a SW_AWARD Admin
AWARD PC BIOS Console n/a AWARD?SW Admin
AWARD PC BIOS Console n/a lkwpeter Admin
AWARD PC BIOS Console n/a LKWPETER Admin
AWARD PC BIOS Console n/a j262 Admin
AWARD PC BIOS Console n/a j256 Admin
AWARD PC BIOS Console n/a ?award Admin
AWARD PC BIOS Console n/a 01322222 Admin
AWARD PC BIOS Console n/a 256256 Admin
AWARD PC BIOS Console n/a 589589 Admin
AWARD PC BIOS Console n/a 589721 Admin
AWARD PC BIOS Console n/a admin Admin
AWARD PC BIOS Console n/a alfarome Admin
AWARD PC BIOS Console n/a aLLy Admin
AWARD PC BIOS Console n/a aPAf Admin
AWARD PC BIOS Console n/a award Admin
AWARD PC BIOS Console n/a AWARD SW Admin
AWARD PC BIOS Console n/a award.sw Admin
AWARD PC BIOS Console n/a award_? Admin
AWARD PC BIOS Console n/a award_ps Admin
AWARD PC BIOS Console n/a AWARD_PW Admin
AWARD PC BIOS Console n/a awkward Admin
AWARD PC BIOS Console n/a BIOS Admin
AWARD PC BIOS Console n/a biosstar Admin
AWARD PC BIOS Console n/a biostar Admin
AWARD PC BIOS Console n/a CONCAT Admin
AWARD PC BIOS Console n/a condo Admin
AWARD PC BIOS Console n/a CONDO Admin
AWARD PC BIOS Console n/a CONDO, Admin
AWARD PC BIOS Console n/a djonet Admin
AWARD PC BIOS Console n/a efmukl Admin
AWARD PC BIOS Console n/a g6PJ Admin
AWARD PC BIOS Console n/a h6BB Admin
AWARD PC BIOS Console n/a HELGA-S Admin
AWARD PC BIOS Console n/a HEWITT RAND Admin
AWARD PC BIOS Console n/a HLT Admin
AWARD PC BIOS Console n/a j09F Admin
AWARD PC BIOS Console n/a j322 Admin
AWARD PC BIOS Console n/a j64 Admin
AWARD PC BIOS Console n/a lkw peter Admin
AWARD PC BIOS Console n/a lkwpeter Admin
AWARD PC BIOS Console n/a PASSWORD Admin
AWARD PC BIOS Console n/a SER Admin
AWARD PC BIOS Console n/a setup Admin
AWARD PC BIOS Console n/a SKY_FOX Admin
AWARD PC BIOS Console n/a SWITCHES_SW Admin
AWARD PC BIOS Console n/a Sxyz Admin
AWARD PC BIOS Console n/a SZYX Admin
AWARD PC BIOS Console n/a t0ch20x Admin
AWARD PC BIOS Console n/a t0ch88 Admin
AWARD PC BIOS Console n/a TTPTHA Admin
AWARD PC BIOS Console n/a TzqF Admin
AWARD PC BIOS Console n/a wodj Admin
AWARD PC BIOS Console n/a ZAAADA Admin
AWARD PC BIOS Console n/a zbaaaca Admin
AWARD PC BIOS Console n/a zjaaadc Admin
----------------------------------------------

Selain itu bisa melalui perintah DEBUG. Bagusnya jalankan melalui DOS environment.

Untuk AMI/AWARD BIOS


O 70 17
O 71 17
Q


Untuk PHOENIX BIOS


O 70 FF
O 71 17
Q


Bios Lainnya/Standar


O 70 2E
O 71 FF
Q


Ingat..O (karakter O) bukan 0 (angka nol)..!!
Saya tidak bertanggungjawab, kalau kalau Anda salah memberikan perintah DEBUG.
DEBUG adalah perintah langsung ke hardware Anda...!!



USER & PASSWORD DEFAULT UNTUK ROUTER SWITCH HUB

Nah ..klo Anda seorang admin dan suatu saat lupa password Admin untuk
Routers/Switches/Hubs Anda, berikut ada daftar default passwordnya



Type/vendor/notes/etc---------------- Username Password

3Com admin synnet
3Com read synnet
3Com write synnet
3Com monitor monitor
3Com manager manager
3Com security security
3Com_Office_Connect_5x0_ISDN_Routers n/a PASSWORD
3comCellPlex7000 tech tech
3comCoreBuilder7000/6000/3500/2500 debug synnet
3comCoreBuilder7000/6000/3500/2500 tech tech
3comHiPerARCv4.1.x adm
3ComLANplex2500 debug synnet
3ComLANplex2500 tech tech
3comLinkSwitch2000/2700 tech tech
3comSuperStackIISwitch 2200 debug
3comSuperStackIISwitch 2700 tech
ACC(Ericsson) netman netman
ADC_Kentrox_Pacesetter_Router n/a secret
All_Zyxel_equipment n/a 1234
AT&T_3B2_firmware n/a mcp
AXIS200/240[netcam] root pass
Bay_routers Manager
Bay_routers User
Bay350T_Switch n/a NetICs
BaySuperstackII security security
BRASX/I01_(DataCom) n/a letmein
BreezeCOM_adapters2.x(console_only) n/a laflaf
BreezeCOM_adapters3.x(console_only) n/a Master
BreezeCOM_adapters4.x(console_only) n/a Super
Cayman_DSL n/a
Crystalview_outsideview32 n/a crystal
digiCorp_(viper?) n/a BRIDGE
digiCorp_(viper?) n/a password
DLink_hub/switches D-Link D-Link
Flowpoint_DSL_installed_by_Covad n/a password
Flowpoint_DSL2000 admin admin
Jetform_design Jetform n/a
Lantronics_Terminal_server_port 7000 n/a
Lantronics_Terminal_server_port 7000 n/a
Linksys_DSL n/a admin
Livingston_IRX_router !root
Livingston_officerouter !root
Livingston_portmaster2/3 !root
Microplex_print_server root root
Motorola-Cablerouter cablecom router
Netopia_7100
Netopia_9500 netopia netopia
Orbitor_console n/a password
Orbitor_console n/a BRIDGE
Osicom(Datacom) sysadm sysadm
Shiva root
Shiva Guest
SpeedstreamDSL(Efficient) n/a admin
UClinux_for_UCsimm root uClinux
Webramp

-------------------------------------------------------
Salam
R.A.D




DB,DBF ke Excel With Delphi

Saya ada sedikit kode untuk "melemparkan" isi tabel Anda baik itu Paradox
atau DBF file ke sebuah worksheet di Ms.Excel. Ini berguna kala kita ingin
sebuah efisiensi pencetakan dan pengaturan layout tampilan data kita.

Kode snippet ini saya dapatkan dari internet dan sudah saya lupa sumbernya.
Benar-benar lupa..!!
Tetapi yang saya tuliskan disini sudah saya modifikasi, karena kode aslinya
tidak memuaskan. Akhirnya saya tulis sendiri dengan meminjam Variabel yang
sudah ditulis si empunya dulu.

Disini saya menggunakan trigger sebuah tombol (Button1) dan mengisikan kode
berikut di Event OnClick-nya :


procedure TForm1.Button1Click(Sender: TObject);
var
sheet,xls:variant;
baris:integer;
begin
x:=0;
xls:=CreateOleObject('Excel.Application');
xls.visible:=true;

xls.Caption:='Report Dari Tabel '+Table1.TableName;;
xls.Workbooks.Add;
xls.Workbooks[1].sheets.Add;
xls.Workbooks[1].Worksheets[1].Name:='Percobaan'; {--> Nama Sheetnya}
sheet:=xls.Workbooks[1].Worksheets['Percobaan'];

for x:= 1 to table1.FieldCount do
begin
sheet.Cells[3,x]:=Table1.FieldDefs[x-1].Name;
table1.next;
end;

table1.first;
for baris:= 1 to table1.recordcount do
begin
for x:= 1 to table1.FieldCount do
sheet.Cells[3+baris,x]:=Table1.Fields[x-1].AsString;

Table1.next;
end;
end;


Penjelasan Kode

Beberapa hal perlu saya jelaskan disini berkaitan dengan kode diatas..

x= 0;

Hanyalah pengosongan variabel loop,kali aja saat mengulang isinya masih dari proses loop
sebelumnya.

Variabel "xls" adalah variant.Coba baca help Delphi tentang variant.
Pada Kode :

xls:=CreateOleObject('Excel.Aplication');

memerintahkan kompiler untuk membuat sebuah Object Ole yang diasosiasikan dengan
Excel.exe di path windows Anda, yang merupakan sebuah aplikasi yang executable.
Selanjutnya :


xls.visible:=true;

xls.Caption:='Report Dari Tabel '+Table1.TableName;;
xls.Workbooks.Add;
xls.Workbooks[1].sheets.Add;
xls.Workbooks[1].Worksheets[1].Name:='Percobaan'; {--> Nama Sheetnya}
sheet:=xls.Workbooks[1].Worksheets['Percobaan'];


berturut turut menurut baris bertujuan untuk :
- Mengaktifkan Onject xls
- Memberikan Judul pada jendela Excel yang dibuat berupa "Report Dari Tabel" ditambah dengan
nama tabel bersangkutan.
- Membuat sebuah Workbooks di Excel.
- Menambah sebuah sheets pada workbooks pertama.
- Memberikan nama pada Sheet pertama di Workbooks pertama dengan nama 'Percobaan'.
- Meng-assign Worksheet aktif ke variabel sheet.

Selanjutnya :

for x:= 1 to table1.FieldCount do
begin
sheet.Cells[3,x]:=Table1.FieldDefs[x-1].Name;
table1.next;
end;


- Akan melakukan pengulangan sebanyak x yang mana x mewakili jumlah field dari table1.
- Kode
sheet.Cells[3,x]:=Table1.FieldDefs[x-1].Name;
berarti menuliskan pada baris ke 3, kolom ke x (ingat x bertambah 1 terus) judul field
atau nama field dari table1. Dimulai dari field yang ke x-1 berarti field[0]. Di Delphi
0 berarti record pertama. Dan proses ini akan berulang terus sampai field terakhir.
- Kode :

table1.first;
for baris:= 1 to table1.recordcount do
begin
for x:= 1 to table1.FieldCount do
sheet.Cells[3+baris,x]:=Table1.Fields[x-1].AsString;

Table1.next;
end;


berarti :
- Memindahkan kursor record ke record pertama dari table1.
- Melakukan loop sebanyak record yang ada di table1, diwakili oleh baris.
- Melakukan proses loop sebanyak banyaknya Field di table1, diwakili oleh x.
- Proses yang di loop adalah mengisikan value dari table1 field ke x-1 sebagai string ke
baris ke 3+baris, kolom x.
Ingat baris dan x bertambah .
- Setiap proses terakhir tadi berakhir maka kursor record digeser ke record selanjutnya.
- Di ulangi sampai record selesai.

Bagusnya Anda menambahkan komponen dan proses yang menampilkan dialog pemilihan tabel.
Sehingga lebih flexibel.

Hasil
Seluruh isi tabel akan tampil sempurna. Kekurangannya Anda masih harus menggeser besar kolom
manual. Saya belum tau untuk geser dari kode.Silahkan menambahkan yang bisa.

Kompatibilitas

- Delphi 5
- Office 2000

Selain itu belum dicoba...coba sendiri Ok.
Itu saja sekarang..nanti disambung lagi.

R.A.D

Kisah Tentang Free Pascal

Mau tau tentang kompiler Pascal gratis...
Klik Mengenal Kompiler Pascal Gratis:Free Pascal

Password Default Untuk Paradox

Arman


//" thanx to Arman atas "ketersediaan" ilmunya untuk kita
Mudah-mudahan tambah mantap !!! "



Kalau kamu punya database paradox dan terpassword tapi lupa mungkin ini bisa sedikit membantu.

Paradox 7 dan 5
Untuk paradox 7 dan 5 password defaultnya adalah : jIGGAe atau/dan cupcdvum
Paradox 4
Untuk paradox 4.0 (DOS) : nx66ppx

Saya sudah coba yang versi paradox 7 keduanya bisa digunakan dan ... buuummm ... saya dapat melihat isi dari database transtool ... (maaf om cuma mo coba :))

//Editor telah minta izin untuk merubah sedikit tampang tulisan ini

Monday, December 27, 2004

Perdebatan Tentang Hack Dan Security

Ini juga dari Rusdi...
Thx yah :-)

Ini adalah dialog anggota milis di Jasakom..tempat hacker indonesia tukar pendapat..


Sekarang tuh era keterbukaan informasi. cuma orang bodoh aja yang
merasa informasi harus ditutupi. Ga dapet dari bukunya S'to pun orang
tetep akan tau, mengingat begitu globalnya arus informasi sekarang.
Bukunya S'to justru bisa jadi alat untuk meningkatkan awareness orang
indonesia kebanyakan (yang kebetulan ga punya kesempatan luas untuk
mengakses
informasi) akan security. Dengan ini ilmu security tidak akan menjadi
eksklusif milik kalangan tertentu yang justru bisa jadi berbahaya.

Jadi inget waktu dulu orang ribut tentang pelarangan penyebaran
pengetahuan akan
marxisme leninisme, atau buku2 pram, atau bukunya sukarno di bawah
bendera revolusi.. bahkan di negara2 yang paling anti komunisme pun,
buku2 ini beredar dengan bebas dan dihargai..

ahh.. kita memang masih terbelakang..


Monday, December 13, 2004, 5:17:16 PM, you wrote:


> Setuju ama Sto,

> karena sejauh ini cara2 hack dll semua ditutup-tutupi,
> sama halnya seseorang bersembunyi dari musuhnya hanya
> dengan sehelai daun ilalang, atau seseorang yang mau
> mencuri sebuah lonceng besar (dari keramik) memecahkan
> lonceng itu menjadi berkeping2 untuk dibawah pulang,
> pada saat memecahkan lonceng itu suara dengung
> berbunyi maka diapun menutup telinganya dan menganggap
> bahwa semua orang juga sama tidak mendengar bunyi itu
> sehingga dia tidak ketahuan sedang mencuri lonceng
> tersebut (sebuah pribahasa hehehe). begitu juga dengan
> hacking, para hacker2 di luar negeri bahkan menganggap
> bahwa komputer hanya seperti mainan dimana tidak
> terletak ketertarikannya dan mudah dieksploitasi, yang
> ada pada komputer hanya logika dan matematika pada
> umumnya. Tidak seperti bidang2 lain yang jauh
> membutuhkan keahlian lebih.

> ngomong2 kepada kakak2 disini saya memperkenalkan diri
> saya innosia dari jakarta. Saya sebenarnya sudah bisa
> bahasa assembly (tasm 16 bit) tetapi mendapat masalah
> saat membaca site phrack.org yg membahas assembler jg.
> Yang menjadi masalah bukanlah syntax melainkan mereka
> membahasnya dengan mengikutsertakan operating system
> dimana tidak pernah ada buku assembler yang
> mengajarkan keterkaitan syntax tasm/nasm/masm/goasm
> dengan assembly. Kakak2 disini apa ada yang tahu
> bagaimana suatu Call di assembler bisa memanggil
> fungsi Windows API ? dari mana address tersebut di
> dapat, bagaimana kernel memanajemen multi thread,
> apakah koding kita dipecah2 menjadi segmen yang di
> awal di panggil code OS dan akhir di balikkan ke OS
> lagi (jadi bisa multi thread??)

> inno sudah search web kemana2, tetapi proyek seperti
> nasm/tasm sepertinya sudah tidak berkembang lagi, yang
> berkembang adalah HLA yang syntaxnya berbeda total
> dengan assembly biasa, dan inno jagi bingung bagaimana
> bisa membaca HLA dengan pemikiran assembler.

> Kemudian untuk OS sekarang apa masih menggunakan
> vector interrupt table? dan bagaimana membuat program
> assembler yang TSR (terminate but stay resident) ?

> sekian terima kasih
> Hidup Jasakom

> --- Sto wrote:

>>
>>
>> Yth Bpk Xxxxx
>>
>> Terima kasih atas keprihatinan dan perhatian bapak
>> terhadap penerbitan
>> yang kami lakukan. Informasi seputar keamanan atau
>> istilah bapak,
>> Hacking adalah atas dasar untuk menyebarkan
>> pengetahuan akan masalah
>> keamanan itu sendiri. Masalah apakah pengetahuan
>> akan digunakan untuk
>> kejahatan atau kebaikan itu sudah masalah yang
>> berbeda. Pengetahuan
>> itu sendiri tidaklah dapat dicegah karena memang
>> sifat informasi yang
>> terbuka dan bukan oleh Jasakom saja tapi juga oleh
>> komunitas internet
>> secara internasional. Matematika, fisika, dlsb
>> semuanya bisa digunakan
>> untuk kejahatan dan apakah artinya semua ilmu
>> pengetahuan tersebut
>> harus dihilangkan ? apakah dengan menghilangkan ilmu
>> tersebut dari
>> muka bumi Indonesia lantas di indonesia akan tentram
>> ? bukannya malah
>> kita yang akan menjadi korban dari orang-orang luar
>> yang justru jauh
>> lebih pintar ?
>>
>> Andaikan kami tidak mengatakan bahwa "Password MS
>> Word bisa di cari
>> dengan cara xxxx", bukan berarti tidak ada yang
>> mengetahuinya. Justru
>> dengan ketertutupan akan membuat orang merasa "aman"
>> padahal mereka
>> sebenarnya tidak aman. Orang-orang yang
>> mengetahuinya akan
>> memanfaatkan itu untuk tujuannya sendiri sedangkan
>> yang tidak
>> mengetahuinya akan menjadi korban. Keterbukaan ilmu
>> pengetahuan kepada
>> segenap pemakai komputer akan otomatis menghilangkan
>> ancaman semacam
>> ini karena semuanya akan mengetahui dimana letak
>> ketidak amanan yang
>> terjadi.
>>
>> Masalah buku Elex Media yang kami berikan secara
>> gratis dengan
>> mendownloadnya adalah agar ilmu pengetahuan bisa
>> terus hidup untuk
>> orang-orang yang membutuhkan. Buku Assembly yang
>> kami sediakan ditulis
>> oleh saya sendiri sekitar 10 tahun yang lalu dan
>> sudah tidak
>> diterbitkan kembali oleh Elex Media. Beberapa
>> sekolah termasuk dosen
>> ternyata masih membutuhkan buku ini untuk pengajaran
>> mahasiswa dan
>> tentu akan sayang sekali jika buku tersebut harus
>> mati bersama ilmu
>> yang dibutuhkan oleh kalangan akademis. Atas alasan
>> seperti inilah,
>> saya telah memutuskan untuk memberikannya kepada
>> publik secara gratis.
>> Dalam hal ini Elex Media tidaklah dirugikan dan buku
>> yang tidak di
>> terbitkan ulang lagi oleh Elex Media akan otomatis
>> kembali ke
>> penulisnya, yang dalam hal ini adalah saya. Jadi
>> saya bersama
>> penerbitan yang dilakukan atas nama Jasakom tidak
>> pernah dan tidak
>> akan melanggar hak cipta dari seseorang.
>>
>> Saya sangat berharap bahwa Jasakom jangan dianggap
>> sebagai ancaman
>> tapi sebagai tempat untuk berbagi ilmu pengetahuan
>> yang tidak berbatas
>> dan tidak bertepi. Mohon maaf yang sebesarnya jika
>> ada kata-kata yang
>> salah dan saya sangat terbuka untuk melakukan
>> diskusi agar tidak
>> merugikan pihak-pihak yang merasa dirugikan.
>>
>>
>> Salam
>>
>>
>>
>>
>> S'to
>>
>>
>> --- In jasakom-perjuangan@yahoogroups.com, "Sto"
>> wrote:
>> >
>> >
>> > (........email sumber sengaja telah
>> dihilangkan........)
>> >
>> >
>> > Yth. Pemimpin Redaksi Komputer PT. Elex Media,
>> >
>> > Saya selaku pemimpin sebuah perusahaan yang
>> bergerak di bidang
>> > keuangan merasa resah akhir-akhir ini dengan
>> menyebarnya buku tentang
>> > hacking yang diedarkan oleh Jasakom
>> >
>> > (http://www.jasakom.com/penerbitan/index.asp).
>> Saya sangat kuatir jika
>> > informasi mengenai cara hacking disebarluaskan
>> kepada umum, maka
>> > kondisi keamanan jaringan dari perusahaan yang
>> saya pimpin dan
>> > perusahaan-perusahaan lain yang sejenis akan
>> menjadi terancam. Karena
>> > itu harap Bapak menindaklanjuti hal ini agar
>> kegiatan penerbitan yang
>> > tidak bertanggung jawab ini bisa segera
>> dihentikan. Beberapa rekan
>> > saya juga berpendapat sama.
>> >
>> > Selain itu, situs jasakom juga menyediakan
>> download buku-buku terbitan
>> > Elex Media. Apakah ini bukan pelanggaran hak
>> cipta?
>> >
>> > Bapak harus segera menindaklanjuti issue-issue ini
>> dengan secepat
>> > mungkin. Apalagi
>> >
>> > jasakom sudah akan menerbitkan buku kedua yang
>> saya lihat daftar
>> > isinya lebih seram lagi. (daftar isinya bisa Bapak
>> lihat di alamat
>> > yang saya tunjukkan tersebut). Jika buku kedua ini
>> sampai beredar,
>> > saya pikir kondisi keamanan jaringan di seluruh
>> indonesia akan menjadi
>> > semakin runyam. Dan akan lebih banyak lagi
>> hacker-hacker yang tidak
>> > bertanggung jawab yang akan menjebol bank, mencuri
>> informasi kartu
>> > kredit orang lain, dll. Memberantas bibitnya lebih
>> baik daripada
>> > memotong rumput di kemudian hari...
>> >
>> > Terima kasih...
>> >
>> >
>> > Salam,
>> >
>> > A Concern Citizen
>> > harap tidak mengungkapkan identitas diri saya,
>> jika di kemudian hari
>> > timbul kasus hukum. thanks)
>>
>>
>>

Satu Dari Kanda Rusdi Di Tarakan

Halo semua ..

Sorry baru ada nambah tulisan nih...
Ini dari Sdr. Rusdi Ansyah ..salah satu lulusan terbaik kita..
Beliau mau membagi pengetahuan sekaligus melepas rindu...


Pertanyaan yang paling sering dilontarkan kepada penulis selama ini salah satunya adalah mengenai fungsi terbilang pada Borland Delphi. Fungsi terbilang adalah suatu fungsi sederhana yang berguna untuk mengkonversikan dari angka ke dalam format huruf (terbilang) seperti halnya yang sering Anda lihat pada kuitansi. Sebenarnya pada situs www.sony-ak.com ini sudah ada tulisan yang membahas mengenai pembuatan komponen Delphi untuk solusi terbilang ini dan bisa Anda lihat pada tulisan yang berjudul "Komponen Terbilang Dengan Borland Delphi". Namun demikian penulis kemudian sempatkan untuk surfing di internet siapa tahu saja menemukan fungsi terbilang yang lain.
Penulis akhirnya menemukan ada fungsi terbilang yang lain di internet dan setelah penulis coba hasilnya sangat memuaskan. Fungsi terbilang ini maksimal bisa sampai satuan 'juta'. Fungsi ini dikirimkan oleh Y Suyanto dan sudah penulis konfirmasikan kepada beliau untuk dipublish disini. Berikut ini adalah fungsi terbilang-nya.

( Posted By Rusdiansyah.."Tarakan Man" =================================================)

function Terbilang(x:integer):string;
const
abil : array[0..11] of string[10]=('','satu','dua','tiga',
'empat','lima','enam','tujuh','delapan','sembilan',
'sepuluh','sebelas');

begin
if (x < 12) then
Result := ' ' + abil[x]
else
if (x < 20) then
Result := Terbilang(x-10) + ' belas'
else
if (x < 100) then
Result := Terbilang(x div 10) + ' puluh' + Terbilang(x mod 10)
else
if (x < 200) then
Result := ' seratus' + Terbilang(x-100)
else
if (x < 1000) then
Result := Terbilang(x div 100) + ' ratus' + Terbilang(x mod 100)
else
if (x < 2000) then
Result := ' seribu' + Terbilang(x-1000)
else
if (x < 1000000) then
Result := Terbilang(x div 1000) + ' ribu' + Terbilang(x mod 1000)
else
if (x < 1000000000) then
Result := Terbilang(x div 1000000) + ' juta' + Terbilang(x mod 1000000);
end;

Kalau kita lihat fungsi terbilang di atas sangat sederhana karena memanfaatkan rekursi. Silakan saja Anda coba fungsi di atas pada Borland Delphi. Penulis sudah mencobanya pada Delphi 6.0

( Posted By Rusdiansyah.."Tarakan Man" ================================================)

Nah ini sedikit tambahan dari saya...

== Modifikasi terakhir tgl 28/12/2004
== Modify By : Razmal Djamal
== Added Features : - Bisa nyebut sampai milyar (optimalkan type Integer)
== - Bikin GUI sederhananya
== Sambil testing di Delphi 5,and run smoothly !!!

function Terbilang(x:integer):string;
const
abil : array[0..11] of string[10]=('','satu','dua','tiga',
'empat','lima','enam','tujuh','delapan','sembilan',
'sepuluh','sebelas');

begin
if (x < 12) then
Result := ' ' + abil[x]
else
if (x < 20) then
Result := Terbilang(x-10) + ' belas'
else
if (x < 100) then
Result := Terbilang(x div 10) + ' puluh' + Terbilang(x mod 10)
else
if (x < 200) then
Result := ' seratus' + Terbilang(x-100)
else
if (x < 1000) then
Result := Terbilang(x div 100) + ' ratus' + Terbilang(x mod 100)
else
if (x < 2000) then
Result := ' seribu' + Terbilang(x-1000)
else
if (x < 1000000) then
Result := Terbilang(x div 1000) + ' ribu' + Terbilang(x mod 1000)
else
if (x < 1000000000) then
Result := Terbilang(x div 1000000) + ' juta' + Terbilang(x mod 1000000)

{--razmal modify disini--}
else
if (x < 1000000000000) then
Result := Terbilang(x div 1000000000) + ' milyar' + Terbilang(x mod 1000000000);
{-- Sampai disini -------}

end;


Ini fungsi modify-nya.. terus untuk GUI-nya....

Rangkai komponen berikut :

1. Satu Edit box..namanya pasti Edit1
2. Satu Memo, namanya pasti Memo1.

Terus di Event OnKeyDown pada Edit1 isikan kode berikut :

{=========================================================================}
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=vk_return then
begin
Memo1.Lines.Add(Terbilang(StrToInt(edit1.text)));
end;
end;
{=======================================}

Intinya, saat Anda menekan tombol Enter maka apa saja yang Anda tuliskan pada edit1, akan dibaca sebagai
Integer..makanya jangan masukkan karakter Alphabetical (..ini PR buat yg lain untuk melakukan
filter dan menampilkan pesan kesalahan saat memasukkan selain Numerik/Integer..OK!!)
Jika benar maka Memo1 akan berisi "sebutan" terhadap nilai yang Anda masukkan...



Salam
Razmal
========Human Knowledges..Belong to the world==========

Wednesday, November 10, 2004

First Impress

Tepatnya hari rabu sore 27 oktober 2004, saya dan beberapa teman sedang meeting untuk persiapan Buka Puasa STMIK esok harinya, suddenly... seorang teman menghampiri saya dan mengatakan sesuatu tentang mading yang kami buat, sebenarnya pada saat itu saya agak kurang dengar yang ia katakan (soalnya lagi serius nyimak penjelasan dari kanda amier…), ucapan yang samar-samar saya dengar katanya kanda Razmal ngritik mading kami!! Honestly, saya kaget dan bertanya-tanya (dalam hati sih…) wah! Kalau udah kanda Razmal yang ngritik, pasti bener-bener ada yang ngga bener, kira-kira apanya ya yang di kritik?? Sampai meeting selesai, rasa penasaran ingin tahu bagian mana yang dikritik terus membayangi sampai saya tiba di rumah…

Esoknya,
Saya menghampiri seorang teman (Wiwin, The HIMAKOM leader) untuk minta penjelasan tentang kritikan tersebut, surprisingly… katanya mading kami bukannya di kritik malahan udah bagus, tetapi perlu ditingkatkan lagi (wow!! seneng banget plus nggak nyangka lho, padahal saya udah h2c nunggu kritik apakah gerangan…), walaupun sebenarnya kami dengan tangan terbuka akan menerima segala bentuk saran dan kritikan (kritik membangun? Why not!) karena tentu itu akan menjadi sebuah motivator untuk kami agar lebih kreatif dan inovatif dalam upaya meningkatkan kualitas mading kami selanjutnya. (alias majalah dinding red. Kali-kali aja ada yang belum tahu, mading itu apa??;-)) tetapi tetap saja mendapat kritikan membuat jantung berdetak tidak karuan. Kemudian teman saya berkata lagi malah kanda Razmal bersedia membuatkan kami sebuah WEBLOG! (Nah lho, apaan lagi nich?!) terus terang saja saya baru dengar dan tahu kata WEBLOG hari itu juga. What’s the mean of WEBLOG exactly??? Tanpa ba bi bu langsung saja saya menodong teman saya dengan beberapa pertanyaan seputar WEBLOG.
Setelah diberi penjelasan, Kedengarannya asyik dan pasti keren buanget kalau HIMAKOM memiliki sebuah WEBLOG (It’s gonna be the first one and ever in STMIK HANDAYANI isn’t?). It’s mean, dengan adanya WEBLOG HIMAKOM, siapapun yang ingin tahu HIMAKOM Latest News (from A to Z all ‘bout HIMAKOM), hal-hal baru seputar TI (Teknologi Informasi), perkembangan PC dan segala perangkatnya maupun tip n trik seputar komputer dapat segera meng-access nya (http://himakom.blogspot.com) dengan mudah. Hal ini tentu merupakan suatu terobosan baru dalam lingkup STMIK Handayani khususnya dan sekolah tinggi lain pada umumnya, serta merupakan media elektronik yang sangat efektif dan cerdas untuk memperkenalkan kepada publik bahwa di STMIK HANDAYANI Makassar pun berdiri satu dari beberapa organisasi himpunan yang ada, yakni Himpunan Mahasiswa Teknik Komputer atau familiar disebut HIMAKOM yang siap bersaing dalam kreativitas.
Personally… sekaligus mewakili seluruh keluarga besar HIMPUNAN MAHASISWA TEKNIK KOMPUTER STMIK HANDAYANI sangat bangga, kagum (and we’re so grateful) kepada Kanda Razmal Djamal S. Kom (one of the best senior we ever had) karena walaupun beliau sudah menyelesaikan studinya di STMIK HANDAYANI namun segala sumbangsihnya baik ilmu, pemikiran, waktu, tenaga dan materi kepada kami khususnya Mahasiswa TEKNIK KOMPUTER masih terus berlanjut dan tetap exist serta terjalin dengan baik (we appreciate it so much).
Juga tidak lupa saya ingin menyampaikan rasa terima kasih kepada Wiwin Heriadi AD selaku Ketua Umum Himakom karena telah memberikan kepercayaan kepada saya untuk menjadi salah satu dari tim penulis WEBLOG HIMAKOM, semoga kita dalam tim dapat saling membantu dan bekerja sama dengan baik.
Untuk itu besar harapan kami dengan terbentuknya WEBLOG HIMAKOM ini akan menjadi sebuah media yang betul-betul dapat dimanfaatkan sebagai sumber informasi yang dapat diandalkan apalagi kita sebagai mahasiswa Teknik Komputer yang tentunya haus akan informasi yang berbau teknologi yang kian hari semakin pesat perkembangannya dan menjadi pemicu bagi rekan-rekan mahasiswa (who have talent) untuk mengembangkan kreativitas dalam menulis yang dapat disalurkan ke WEBLOG HIMAKOM. So guys, Let’s make it true!

Written By:
Wahyuni, Student of Computer Engineering (5th Grade)
E-mail : why_milanesta83@yahoo.com

Monday, November 01, 2004

Mana Penulisnya ?

Ramadhan Hari 18

Mana nih para calon penulis dari Himakom...sudah hampir seminggu saya tunguu nama dan email-emailnya... Blog-nya kan sudah siap...



Kalau sudah ada kirim ke Razmal Djamal



Saya tunggu secepatnya...

Thursday, October 28, 2004

Selamat buat HIMAKOM

Alhamdulillah,..

Hari ini, telah berhasil muncul sebuah wadah On Line untuk Mahasiswa-Mahasiswa STMIK Handayani Makassar khususnya jurusan Teknik Komputer.
Selanjutnya Blog ini sedianya di jadikan ajang tukar pikiran, debat intelek, dan melatih mahasiswa menjadi Penulis dan IT profesional di masa mendatang..Amien..