menyimpan konfigurasi iptables di ubuntu

Menyimpan konfigurasi iptables di ubuntu
Ketika mulai mengenal linux Ubuntu sekitar pertengahan tahun 2006, waktu itu saya masih menggunakan ubuntu v5.04. Tadinya ubuntu ini hanya saya jadikan sebagai SO untuk desktop saja sehingga aplikasi-aplikasi yang saya install hanya seputar office, web server dan pemutar file mp3.
Setelah merasa sukses menginstall ubuntu desktop, mulailah muncul keinginan saya untuk mencoba menjadikan ubuntu desktop sebagai gateway dengan menerapkan aplikasi firewall menggunakan iptables. Beberapa perintah iptables yang biasa saya gunakan di redhat/fedora saya terapkan dalam ubuntu. Ternyata berhasil dan hampir tidak ada masalah. Namun setelah saya mencoba untuk menyimpan konfigurasi iptables menggunakan perintah iptables-save, hasil simpanan file konfigurasi tersebut tidak di load ketika komputer direstart. Artinya konfigurasi iptables yang berjalan setelah kokmputer direstart kembali seperti ketika iptables belum diutak-atik.
Akhirnya saya coba cari alternatif penyimpanan konfigurasi iptables dan menemukan link ini yang intinya iptables script dibawah ini diadopsi dari iptables script yang digunakan dalam gentoo-linux.
#!/bin/sh
#
#This is a ubuntu adapted iptables script from gentoo
#(http://www.gentoo.org) which was originally distributed
# under the terms of the GNU General Public License v2
#and was Copyrighted 1999-2004 by the Gentoo Foundation
#
#This adapted version was intended for and ad-hoc personal
#situation and as such no warranty is provided.
IPTABLES_SAVE=”/etc/default/iptables-rules”
SAVE_RESTORE_OPTIONS=”-c”
SAVE_ON_STOP=”yes”
checkrules() {
if [ ! -f ${IPTABLES_SAVE} ]
then
echo “Not starting iptables. First create some rules then run”
echo “\”/etc/init.d/iptables save\”"
return 1
fi
}
save() {
echo “Saving iptables state”
/sbin/iptables-save ${SAVE_RESTORE_OPTIONS} > ${IPTABLES_SAVE}
}
start(){
checkrules || return 1
echo “Loading iptables state and starting firewall”
echo -n “Restoring iptables ruleset”
start-stop-daemon –start –quiet –exec /sbin/iptables-restore — ${SAVE_RESTORE_OPTIONS} < ${IPTABLES_SAVE}
}
case “$1? in
save)
save
echo “.”
;;
start)
start
echo “.”
;;
stop)
if [ "${SAVE_ON_STOP}" = "yes" ]; then
save || exit 1
fi
echo -n “Stopping firewall”
for a in `cat /proc/net/ip_tables_names`; do
/sbin/iptables -F -t $a
/sbin/iptables -X -t $a
if [ $a == nat ]; then
/sbin/iptables -t nat -P PREROUTING ACCEPT
/sbin/iptables -t nat -P POSTROUTING ACCEPT
/sbin/iptables -t nat -P OUTPUT ACCEPT
elif [ $a == mangle ]; then
/sbin/iptables -t mangle -P PREROUTING ACCEPT
/sbin/iptables -t mangle -P INPUT ACCEPT
/sbin/iptables -t mangle -P FORWARD ACCEPT
/sbin/iptables -t mangle -P OUTPUT ACCEPT
/sbin/iptables -t mangle -P POSTROUTING ACCEPT
elif [ $a == filter ]; then
/sbin/iptables -t filter -P INPUT ACCEPT
/sbin/iptables -t filter -P FORWARD ACCEPT
/sbin/iptables -t filter -P OUTPUT ACCEPT
fi
done
start-stop-daemon –stop –quiet –pidfile /var/run/iptables.pid –exec /sbin/iptables
echo “.”
;;
restart)
echo -n “Flushing firewall”
for a in `cat /proc/net/ip_tables_names`; do
/sbin/iptables -F -t $a
/sbin/iptables -X -t $a
done;
start
echo “.”
;;
*)
echo “Usage: /etc/init.d/iptables {start|stop|restart|save}” >&2
exit 1
;;
esac
exit 0
Hanya dengan mengcopy script di atas kedalam file “/etc/init.d/iptables”, kemudian tambahkan kedalam boot run level sebelum aplikasi networking lainnya dijalankan dengan perintah:
sudo update-rc.d iptables start 37 S . stop 37 0 .
Cara menggunakannya:
1.    Masukkan aturan-aturan (rules) ke dalam iptables (“sudo iptables -A INPUT dst…”).
2.    Simpan dengan perintah “sudo /etc/init.d/iptables save”.
Catatan:
Jika menjalankan perintah “sudo /etc/init.d/iptables stop”, perintah ini akan menyimpan aturan iptables yang sedang berlaku ke dalam “/etc/default/iptables-rules” kemudian memperbolehkan semua akses (flushes iptables). Sehingga jika perintah “sudo /etc/init.d/iptables stop” dijalankan 2x akan menjadikan file “/etc/default/iptables-rules” menjadi kosong.
Semoga bermanfaat.

trouble shooting monitor

TROUBLE SHOOTING MONITOR

Dalam mengatasi setiap masalah yang ada pada layar monitor, sebaiknya dilakukan pada monitor itu sendiri. Perhatikan kondisi yang normal pada saat komputer hidup ataupun saat dimatikan. Untuk itu ada perlu mengetahui tanda – tanda yang biasa dikeluarkan oleh monitor :
Perhatikan lampu indkator pada layar monitor yang terletak di bagian bawah dari layar monitor, jenis lampu indikator ini bermacam – bermacam tergantung dari jenis monitor yang dipakai. Lampu indikator tersebut akan menyala saat komputer dinyatakan, tetapi ada juga lampu yang dapat berubah warna saat monitor dihidupkan
Pada saat komputer dinyalakan atau dihidupkan, akan terdapat kilatan pada layar monitor. Tetapi tidak semua monitor akan terjadi hal yang demikian tergantung dari jenis monitor yang dipakai.
Pada beberapa komputer jika diatur brightness dan contrast monitor secara maksimal maka layar monitor akan tampak putih terang.
Dari uraian diatas maka dapat menganalisa jenis kesalahan yang ada pada layar monitor Anda. Berikut ini jenis kerusakan atau kesalahan yang biasa terjadi dalam sebuah monitor :
Monitor tidak hidup saat komputer dinyalakan. Saat pertama kali anda ingin menghidupkan komputer ternyata tidak ada reaksi apapun dari layar tampilan monitor. Hal ini bisa terjadi karena beberapa kemungkinan :
· Kabel power tidak atau belum terpasang dengan baik, monitor tidak akan hidup bila kabel power belum terpasang dengan baik. Agar monitor dapat menyala dengan baik periksa kabel power tersebut dan pasanglah dengan baik. Kemudian nyalakan komputer Anda dan lihat reaksi yang ditimbulkan. Jika kesalahan terletak pada kabel power ini maka monitor akan menyala dengan baik.
· Monitor tidak dapat hidup dan terdapat kilatan pada saat monitor dimatikan. Biasanya kerusakan ini disebabkan karena kerusakan pada kabel main unitnya. Untuk itu periksalah kabel data monitor pada port video out dari display adapter pada main unit. Apabila dan pasang kembali dengan baik. Monitor akan menyala apabila memang kesalahan terdapat pada kabel data unit ini.
· Terdengar suara bip dengan satu kali panjang diikuti tiga kali pendek. Mka sudah dipastikan maka kerusakan terpada pada main unit terutama pada kartu display adapternya. Langkah yang perlu Anda ambil untuk memperbaikinya letak dari kartu display adapter tersebt. Jika memang kerusakan atau kesalahan terletak dari pemasangan yang kurang baik kartu display adapter berarti monitor tidak rusak. Apabila kesalahan tersebut sudah tidak dapat diperbaiki lagi, maka boleh dipastikan bahwa kerusakan terdapat pada monitor. Untuk memerperbaikinya bawalah monitor Anda pada tukang servis komputer. Karena memang tidak sembarang orang bisa memperbaiki monitor.

Monitor menyala tetapi warnanya tidak terang atau kabur. Kerusakan ini bisa disebabkan karena beberapa faktor atau sebab antara lain ;
· Kabel data pada port video out tidak terpasang dengan baik. Apabila kabel data tersebut tidak terpasang dengan baik atau kurang merekat maka jenis layar tampilan berwarna agak kabur dan kekuning – kuningan. Untuk memperbaikinya pasang kabel data tersebut dalam posisi benar – benar terpasang dengan baik. Dalam hal ini jangan sampai kabel tersebut terpasang longgar.
· Pengaturan contrast dan brightness yang kurang sesuai. Pengaturan kedua hal tersebut memang sangat mempengaruhi hasil dari tampilan layar monitor. Apabila terlalu terang maka tampilan yang dihasilkan akan terasa kabur. Tetapi apabila pengaturan kedua hal tersebut diposisikan minimm maka tampilan pada layar monitor hanya warna hitam. Untuk mengetahuinya, aturlah tampilan seenak mungkin dan dapat dilihat dengan nyaman
· Keadaan monitor memang menang sudah cukup lama dipakai. Monitor yang sering dipakai dalam jangka waktu yang sudah lama membuat layar tampilan semakin lama semakin kabur. Selain itu dapat juga monitor akan kehilangan salah satu unsur warnanya. Untuk kerusakan jenis ini maka sebaiknya monitor di bawa pada tukang servis komputer.
· Layar tampilan mengecil. Hal in terjadi mungkin karena pengaturan vertical size dan horizontal size yang yang kurang benar. Untuk memperbaikinya aturlah kedua hal tersebut pada posisi yang benar.
· Layar tampilan berjalan menggulung. Untuk menghentikannya aturalah pada tombol veritcal hold dan horizontal hold
Apabila memang kerusakan – kerusakan yang terdapat di atas tidak dapat diperbaiki lagi berarti kerusakan tersebut terdapat pada monitor.


serangan dos

Serangan DoS (bahasa Inggris: denial-of-service attacks') adalah jenis serangan terhadap sebuah komputer atau server di dalam jaringan internet dengan cara menghabiskan sumber (resource) yang dimiliki oleh komputer tersebut sampai komputer tersebut tidak dapat menjalankan fungsinya dengan benar sehingga secara tidak langsung mencegah pengguna lain untuk memperoleh akses layanan dari komputer yang diserang tersebut.

Dalam sebuah serangan Denial of Service, si penyerang akan mencoba untuk mencegah akses seorang pengguna terhadap sistem atau jaringan dengan menggunakan beberapa cara, yakni sebagai berikut:

    Membanjiri lalu lintas jaringan dengan banyak data sehingga lalu lintas jaringan yang datang dari pengguna yang terdaftar menjadi tidak dapat masuk ke dalam sistem jaringan. Teknik ini disebut sebagai traffic flooding.
    Membanjiri jaringan dengan banyak request terhadap sebuah layanan jaringan yang disedakan oleh sebuah host sehingga request yang datang dari pengguna terdaftar tidak dapat dilayani oleh layanan tersebut. Teknik ini disebut sebagai request flooding.
    Mengganggu komunikasi antara sebuah host dan kliennya yang terdaftar dengan menggunakan banyak cara, termasuk dengan mengubah informasi konfigurasi sistem atau bahkan perusakan fisik terhadap komponen dan server.

Beberapa contoh Serangan DoS lainnya adalah:

    Serangan Buffer Overflow, mengirimkan data yang melebihi kapasitas sistim, misalnya paket ICMP yang berukuran sangat besar.
    Serangan SYN, mengirimkan data TCP SYN dengan alamat palsu.
    Serangan Teardrop, mengirimkan paket IP dengan nilai offsetyang membingungkan.
    Serangan Smurf, mengirimkan paket ICMP bervolume besar dengan alamat host lain.
    ICMP Flooding

SYN flooding attack adalah istilah teknologi informasi dalam bahasa Inggris yang mengacu kepada salah satu jenis serangan Denial-of-service yang menggunakan paket-paket SYN.

·         Paket-paket SYN adalah salah satu jenis paket dalam protokol Transmission Control Protocol yang dapat digunakan untuk membuat koneksi antara dua host dan dikirimkan oleh host yang hendak membuat koneksi, sebagai langkah pertama pembuatan koneksi dalam proses "TCP Three-way Handshake". Dalam sebuah serangan SYN Flooding, si penyerang akan mengirimkan paket-paket SYN ke dalam port-port yang sedang berada dalam keadaan "Listening" yang berada dalam host target. Normalnya, paket-paket SYN yang dikirimkan berisi alamat sumber yang menunjukkan sistem aktual, tetapi paket-paket SYN dalam serangan ini didesain sedemikian rupa, sehingga paket-paket tersebut memiliki alamat sumber yang tidak menunjukkan sistem aktual. Ketika target menerima paket SYN yang telah dimodifikasi tersebut, target akan merespons dengan sebuah paket SYN/ACK yang ditujukan kepada alamat yang tercantum di dalam SYN Packet yang ia terima (yang berarti sistem tersebut tidak ada secara aktual), dan kemudian akan menunggu paket Acknowledgment (ACK) sebagai balasan untuk melengkapi proses pembuatan koneksi. Tetapi, karena alamat sumber dalam paket SYN yang dikirimkan oleh penyerang tidaklah valid, paket ACK tidak akan pernah datang ke target, dan port yang menjadi target serangan akan menunggu hingga waktu pembuatan koneksi "kadaluwarsa" atau timed-out. Jika sebuah port yang listening tersebut menerima banyak paket-paket SYN, maka port tersebut akan meresponsnya dengan paket SYN/ACK sesuai dengan jumlah paket SYN yang ia dapat menampungnya di dalam buffer yang dialokasikan oleh sistem operasi.

·         Sniffer

Suatu serangan keamanan jaringan dalam bentuk Sniffer (atau dikenal sebagai snooping attack) merupakan kegiatan user perusak yang ingin mendapatkan informasi tentang jaringan atau traffic lewat jaringan tersebut. suatu Sniffer sering merupakan program penangkap paket yang bisa menduplikasikan isi paket yang lewat media jaringan kedalam file. Serangan Sniffer sering difokuskan pada koneksi awal antara client dan server untuk mendapatkan logon credensial, kunci rahasia, password dan lainnya.

Man-in-the-middle

Serangan keamanan jaringan Man-in-the-middle (serangan pembajakan) terjadi saat user perusak dapat memposisikan diantara dua titik link komunikasi.

    Dengan jalan mengkopy atau menyusup traffic antara dua party, hal ini pada dasarnya merupakan serangan penyusup.
    Para penyerang memposisikan dirinya dalam garis komunikasi dimana dia bertindak sebagai proxy atau mekanisme store-and-forwad (simpan dan lepaskan).

IP Spoofing adalah serangan teknis yang rumit yang terdiri dari beberapa komponen. Ini adalah eksploitasi keamanan yang bekerja dengan menipu komputer, seolah-olah yang menggunakan komputer tersebut adalah orang lain. Hal ini karena Design Flaw (salah rancang).

·         IP Spoofing melakukan aktivitasnya dengan menulis ke Raw Socket. Program dapat mengisi Header Filed dari suatu paket IP siapapun yang diinginkan. Dalam sistem Linux, user yang melakukan proses ini memerlukan izin dari root. karena routing hanya berdasarkan IP Destination Address (tujuan), maka IP  Source Address (alamat IP sumber) dapat diganti dengan alamat apa saja. Dalam bebrapa kasus seorangn attacker menggunakan IP Source address yang spesifik pada semua IP yang keluar untuk membuat semua pengembalian paket IP dan ICMP Message ke pemilik jaringan. Pada bahasa Smurf : ICMP Flood memperlihatkan serangan dengan menggunakan IP Spoffing untuk membanjiri korban dengan ECHO REQUEST.

Arp spoofing adalah teknik untuk menyadap frame data dalam jaringan lokal, mengubah lalu lintas data atau memberhentikan lalu lintas data. Seorang penyusup dalam melakukan ARP spoofing akan mengirim pesan ARP palsu ke ethernet jaringan lokal dengan tujuan menyamakan alamat MAC dengan komputer lain misalnya komputer gateway. Jadi setiap lalu lintas data terhadap IP gateway akan mengarah terlebih dahulu ke komputer penyusup sebagai gateway palsu yang akhirnya diteruskan ke gateway yang asli dan memungkinkan untuk memodifikasi data sebelum diteruskan ke gateway. Aksi ini disebut dengan Man in The Middle Attack.

DNS Spoofing

merupakan suatu kegiatan untuk mengganti ip yang seharusnya

merujuk kepada nama domain yang sebenarnya.

Tulisan ini diperuntukan untuk tujuan pembelajaran sehingga jika terjadi hal hal yang tidak diinginkan maka bukan tanggung jawab dari penulis.

Pharming adalah hacker 's serangan bertujuan untuk mengarahkan sebuah website 'lalu lintas ke situs palsu,. Pharming dapat dilakukan baik dengan mengubahfile host di komputer korban atau dengan eksploitasi dari kerentanan dalam server DNS perangkat lunak . DNS server adalah komputer bertanggung jawab untuk menyelesaikan nama internet menjadi nyata mereka alamat - mereka adalah "penunjuk arah" dari internet . Dikompromikan DNS server kadang-kadang disebut sebagai "keracunan" .

Phishing adalah jenis social engineering serangan untuk mendapatkan mandat akses seperti nama pengguna dan password . Dalam beberapa tahun terakhir kedua pharming dan phising telah digunakan untuk pencurian identitas onlineinformasi. Pharming telah menjadi perhatian utama bisnis hosting e-commerce dan perbankan online website. langkah-langkah canggih yang dikenal sebagai anti-pharming diperlukan untuk melindungi ini serius ancaman . perangkat lunak antivirus dan spyware removal software tidak dapat melindungi terhadap pharming.

Serangan DDoS adalah serangan dengan teori sederhana namun dengan dampak yang sangat besar. Sayangnya, sampai saat ini belum ditemukan cara paling tepat untuk menghindari serangan ini secara total.

Meski sampai saat ini belum ada sistem yang kebal terhadap serangan ini, ada sejumlah langkah yang dapat dilakukan untuk memperkecil resiko serangan DDoS ini.

Karena serangan DDoS dapat dilakukan dengan memanfaatkan kelemahan operating system yang anda gunakan, jangan pernah lupa mengupdate patch untuk memerbaiki sistem pengoperasian anda. Ingatlah bahwa tidak ada satupun sistem operasi di dunia ini yang aman dan 100 persen bebas dari kelemahan.

Gunakan hardware/server yang kuat. Server tersebut harus mampu menangani beban yang cukup berat sehingga server anda tidak mudah down. Anda bisa mendesain network yang saling membackup dan akan lebih bagus jika berada pada beberapa daerah sekaligus.

Gunakan firewall untuk mengeblok port-port (pintu masuk) yang tidak di perlukan di server-server anda.

Gunakan IDS (Intrusion Detection System) untuk mendeteksi penyusup dan melakukan pencegahan yang lebih cerdik.

input mask dan nilai default


Input Mask dan Nilai Default

Karakter
Keterangan
0
Angka 0 – 9, input digunakan + - tidakboleh
9
Angka dan spasi, input tidakdigunakan, + - tidak boleh
#
Angka dan Spasi, input tidakdigunakan, nilai kosong, spasi, + - tidak boleh
L
Huruf A – Z , input diperlukan
?
Huruf A – Z , input terserah
A
Huruf atau angka, input diperlukan
a
Huruf atau angka, input terserah
&
Semua karakter atau spasi, input diperlukan
C
Semua karakter atau spasi, input terserah
. , : ; - /
Karakter pemisah
Mengkonversi karakter berikutnya menjadi huruf kecil
Mengkonversikarakterberikutnyamenjadihurufbesar
!
Input dari kanan ke kiri
\
Karakter berikutnya sebagai karakter literal
*
Seting sebagai nilai password

syair cinta

eh ini bukan syair cinta bang haji roma irama loh
kalo ini kata kata bagus tinggal kopas aja di stattus facebook , tapi jangan lupa follow ya

kerja adalah wujud nyata cinta bila kita tidak dapat bekerja dengan kecintaan, tapi dengan kebencian , lebih baik tinggal kan pekerjaan itu . lalu, duduklah di gerbang peribadatan dan terimalah derma dari mereka yang bekerja dengan penuh suka cita

cinta akan terus bersunya, mesti alat-alat yang mendukung cinta itu merasakan sakit

sahabat yang baik adalah mereka yang bisa mengisi kekurangan mu, bukan mengisi kekosongan mu

ketika tiba saat perpisahan janganlah kalian berfuka , janganlah kalian berduka, sebab apa yang paling kalin kasihi darinya mungkin akan nampak nyata dari kejauhan , seperti gunung yang nampak lebih agung, terlihat dari padang dan dataran

sesungguhnay cinta, keadilan, dan kebaikan tidak akan banyak berguna jika akal tidak ada

pikiran yang tak mengenal cinta, hanya akan mengumpulkan pecahan -pecahan isi kamusyang berserakan di kepalanya dengan istilah-istilah

mungkkin mimpi-mimpi dan cinta kasih itu hilang sementara, mengikuti kepergian sang surya ketika malam tiba, dan bintang gemintang ketika pagi mejelang. tetapi, laksana pelita-pelita surga , mereka bakal kembali, mengisi hati yang kosong

manusia tidak akan mendapatkan panen raya cinta, sampai dia merasakan perpisahan yang paling menyedihkan dalam hidupnya. sebab, yang mampu membuka hijab cinta dan nikmatnya sabar, hanyalah mereka yang paling berduka

cinta tidak menyadari kedalamannya dan tak terasa sampai saat perpisahan pun tiba, dan saat  tangan laki-laiki menyentuh tangan seorang perempuan [, mereka berduka tela menyentuh hati keabadian

jika cinta tidak dapat mengembalikan engkau kepada dalam kehidupan ini, pastilsah cinta akn menyatukan kita dalam kehidupan yang akan datang

jangan kira cinta datang dari keakraban yang klama dan pendekatan yang tekun cinta adalah kesesuain jiwa , dan jikaitu tak pernah ada , cinta tak akan pernah tercipta dalam hitungan tahun bahkan abad

setiap laki-laki mencintai dua orang perempuan yang pertama adalah imaginasinya dan yang kedua adalah yang belum dilahirkan

setiap orang muda pasti mengingat cinta pertamanya dan mencoba menangkap kembali hari-hari asing itu, yang kenangannya mengubah perasaan di relung hatinya

JANGAN LUPA FOLLOW YA http://galiinformasi.blogspot.com/

kata kata cinta

beberapa kata kata cinta bisa juga di jadikan status di facebook

cinta memperlakukan kitas seperti matahari yang menghidupi, dan mematikan padang padang dengan panas terikny.

cinta adalah sebuah misteri suci. bagi mereka yang mencinta, ini mengingatkan selamanya tanpa kata-kata; namun bagi mereka yang tidak mencinta, ini tak lain hanya lelucon tanpa hati.

cinta adalah seekor burung cantik, meminta untuk di tangkap tapi menolat untuk di sakiti

cinta di ciptakan untuk melemahkan kekuatan yang aku warisi dari adam

tak ada kekuatan di dunia ini yang dapat mengingkari kebahagianku,karena kebahagianku lahir dari pelukan dua roh yang di satukan dengan sikap saling memahami dan di padukan dengan cinta.telah kus sucikan bibirku dengan api suci yang memungkinkan ku bicara cinta. namun , tak kal ku buka mulutku untuk mengucapkan, kudapati diriku bisu

hakikat cinta adalah rintihan panjang yang di keluhkan oleh lautan perasaan kasih sayang.ia adalah cucuran air mata kesedihan lagit pikiran.ia adalah senyuman ceria. kebun-kebun bunga jiwa

cinta adalah sarana untuk memahami dua jiwa. ida bukan kata yang datang dari bibir dan lidah yang membawa hati bersama-sama. tidak ada yang ekbih besar dan suci dari pada apa yang di ucapkan mulut, dia memancarkan jiwa kita, bisikan buat hati kita. dan membawa keduanya bersama sama

cinta lah satu-satunya yang akan menghiburmu, dan akan meminum cinta bagai anggur, juga kukenakan ia laksamana ssbuat jubah

jiwa kegelapan menyembunyikan pohon-pohon dan bunga-bunga dari mata kita, ia tidak akan menyembunyikan cinta dari hati kita

laki-laki yang tidak mampu memaafkan perempuan dari kesalahan yang kecil, ia tak akan dapat merasakan salaksa kebahagiaan

kecantikan lebih terang dalam hati orang yang merindukannya dari pada di mata yang melihatnya

keindahan adalah apa yang menarik jiwa, kepadanya cinta di berikandan bukan diminta

rumus turbo pascal

kalo yang belum punya aplikasi turbo pascal download aja >>>klik 
download

ini beberapa rumus dalam turbo pascal
rumus mencari luas empat persegi pangjang
program mwncari_luas_empat_persegipanjang ;
(* program membaca luas empat persegi panjang *)

user wincrt ;
        var
        pamjang, lebar, luas :integer;

        begin
        (* membaca harga panjang dan lebar*)
        writen ('panjang: ');
        readln (panjang)
        write ('lebar =');
        readln (lebar);
       
        luas : =panjang*lebar

        writenl ('luas =' ,luas);

end

rumus mencari volume kubus
program mwncari_volume_kubus ;

user wincrt ;

      var
      sisi, volume=integer;

     begin
     write ('sisi= ');
     readln (sisi);

     volume ('volume =' , volume);

end


yang lainnya di kembangkan sendirir ya..............