Jarang-jarang masukin sesuatu yang berguna di blog. Ini termasuk tulisan pertama dalam dua tahun ini yang bukan opini.

Apa itu “peluang”? Menurut KBBI:

pe·lu·ang 1 n kesempatan: – yg baik jangan disia-siakan; 2 a terhenti atau senggang (tt angin, pekerjaan, dsb).

Wew. Agak kurang berhubungan dengan “peluang” yang kumaksud.

“Peluang” yang kumaksud adalah yang terjemahannya “probability”. Yoa, sepertinya di KBBI, “probability” diterjemahkan sebagai “probabilitas”. Trus kenapa di textbook terjemahan malah jadi “peluang” ya….

pro·ba·bi·li·tas n kemungkinan.

Ok. Masalah bahasa cukup sampai situ. Mari lanjut ke pembahasannya.

Tapi… er… mungkin ini baru pengertiannya aja. Tentang operasinya, perhitungan-perhitungannya… cari waktu minat lagi

Cerita dulu deh dikit. Selama aku ngekos di Bandung setahun ini, aku punya setidaknya 3 spot enak buat makan di sekitar tempat kos: Warung Imoet (WI), warung-deket-kosan, (WK) dan Kantin Sehati(KS). Pada beberapa waktu, warung-warung itu tutup karena libur (yang bukan pada tanggal merah).

Setiap kali keluar cari makan, aku pergi ke salah satu dari 3 tempat tadi (kadang-kadang juga makan di tempat lain, tapi sekarang anggap aja cuma ada 3 warung itu ).

Ya namanya warung, yang ngurus manusia, pasti ada waktunya untuk tutup seharian. Kantin sehati misalnya, setiap minggunya pasti ada tutup sehari. Gitu juga dua yang lain (dengan frekuensi yang berbeda, tapi).

Nah, sekarang kalau aku mau makan, gimana caranya aku tahu mana warung yang tutup mana yang buka? Jelas gak mungkin kan aku tau pasti mana warung yang buka sebelum aku lihat langsung (atau dapat info dari yang lain). Jadi sebelum dapat pemberitahuan, ada beberapa kemungkinan yang terjadi:

• Ketiganya buka;
• WI dan WD buka, KS tutup;
• WI dan KS buka, WD tutup;
• WI buka, WD dan KS tutup;
• WI tutup, WD dan KS buka;
• WI dan WD tutup, KS buka;
• WI dan KS tutup, WD buka; atau
• ketiganya tutup.

Kemudian, pada akhirnya aku dapat info bahwa ketiganya tutup (apes lah, mesti makan mie instan nih…).

Naah. Mari kembali ke probabilitas. Dalam teori probabilitas, “pemilihan warung tempat makan” bisa dianggap sebagai langkah eksperimen (E). Eksperimen probabilitas ini dilakukan hanya dalam kepala (atau dalam perhitungan), alias tidak perlu benar-benar ada aksinya (datang langsung ke warungnya).

Dari eksperimen-dalam-kepala ini, aku mendapatkan 8 kemungkinan, yang disebut titik sampel. Kemungkinan-kemungkinan ini kemudian dimasukkan ke ruang sampel (S), atau himpunan semua kemungkinan.

Terakhir, ketika akhirnya ada satu kepastian yang terjadi, yaitu ketiganya tutup. Hal ini disebut event (A), kejadian tertentu yang muncul. Event sudah pasti merupakan salah satu dari kemungkinan-kemungkinan yang ada di ruang sampel. Dengan kata lain, event adalah himpunan bagian dari ruang sampel. Sementara itu, kemungkinan-kemungkinan yang tidak termasuk ke dalam event tapi masih merupakan bagian himpunan ruang sampel, disebut komplemen (A’).

Err… ya begitu aja. Tadinya aku mau masukin gambar diagram venn kesini, tapi entah kenapa wordpressnya gagal terus upload images…. Jadi sekarang mau beresin itu dulu….

Geng motor ditangkepin dan ditelanjangi malem-malem. Adem banget kan, guys??

Geng motor di Bandung rusuh (lagi) pada hari Sabtu, 24 September 2010 mulai jam 20:30 di area Cihampelas. Akibatnya para polisi terpaksa menutup jalan Cihampelas untuk menghalangi para anggota geng yang berusaha kabur. Sayangnya, yang di blokir cuma jalan menuju Cipaganti, ke atas Cihampelas, dan ke Pasteur. Memang masih ada jalan lagi? Ada!

Garis merah : Di blokir; Lingkar merah: Tembus

Ya ampun pak polisi…. niat gak sih….

Tapi seenggaknya, penangkapan bisa terus berjalan. Mungkin sama dengan para polisinya, orang-orang geng motor nya juga gak tau jalan itu ada. Huahahahahahaha

Ayo anak-anak, upacara mau segera dimulaaaaiii!!!!

Ayo semuanya!!! Gabung ke geng moto!!! Asik loh, banyak kegiatannya: mulai dari main pukul-pukulan, bacok-bacokkan, dan kemudian ngumpul bareng di penjara setempat dan makan-makan gratis!!! Huahahahahahahahahahaha

Dikutip dari note di Facebook. Link aslinya di http://www.facebook.com/note.php?note_id=124045347607271

Allah Ta’ala memang telah menganugrahkan kepada bangsa Yahudi suatu kelebihan berupa otak yang cemerlang. Dan sungguh sangat menarik mengetahui kenapa orang Yahudi begitu pintar dan mempunyai kelebihan dibanding bangsa-bangsa lain di atas dunia ini. Tentu saja dalam hal ini hanyalah sebatas kelebihan dalam hal urusan keduniawian…

“dan Facebook yang sedang kita gunakan ini pun adalah hasil karya mereka”…

Berikut ini sebuah artikel yang akan memaparkan sedikit sebab dari fenomena kelebihan mereka ini.

Marilah kita simak dengan seksama artikel di bawah ini, kemudian membahasnya bersama di kolom komentar dan jangan lupa mari kita SHARE / BAGIKAN agar saudara-saudara kita juga mempunyai kesempatan membaca artikel berharga ini.

Artikel Dr Stephen Carr Leon patut menjadi renungan bersama. Stephen menulis dari pengamatan langsung. Setelah berada 3 tahun di Israel karena menjalani housemanship dibeberapa rumah sakit di sana. Dirinya melihat ada beberapa hal yang menarik yang dapat ditarik sebagai bahan tesisnya, yaitu, “Mengapa Yahudi Pintar?”

Ketika tahun kedua, akhir bulan Desember 1980, Stephen sedang menghitung hari untuk pulang ke California, terlintas di benaknya, apa sebabnya Yahudi begitu pintar? Kenapa tuhan memberi kelebihan kepada mereka? Apakah ini suatu kebetulan? Atau hasil usaha sendiri?
Maka Stephen tergerak membuat tesis untuk Phd-nya. Sekadar untuk Anda ketahui, tesis ini memakan waktu hampir delapan tahun. Karena harus mengumpulkan data-data yang setepat mungkin.

Persiapan Melahirkan
Marilah kita mulai dengan persiapan awal melahirkan. Di Israel, setelah mengetahui sang ibu sedang mengandung, sang ibu akan sering menyanyi dan bermain piano. Si ibu dan bapak akan membeli buku matematika dan menyelesaikan soal bersama suami.
Stephen sungguh heran karena temannya yang mengandung sering membawa buku matematika dan bertanya beberapa soal yang tak dapat diselesaikan. Kebetulan Stephen suka matematika.
Stephen bertanya, “Apakah ini untuk anak kamu?”
Dia menjawab, “Iya, ini untuk anak saya yang masih di kandungan, saya sedang melatih otaknya, semoga ia menjadi jenius.”
Hal ini membuat Stephen tertarik untuk mengikut terus perkembangannya.
Kembali ke matematika tadi, tanpa merasa jenuh si calon ibu mengerjakan latihan matematika sampai genap melahirkan.

Cara Makan
Hal lain yang Stephen perhatikan adalah cara makan. Sejak awal mengandung dia suka sekali memakan kacang badam dan korma bersama susu. Tengah hari makanan utamanya roti dan ikan tanpa kepala bersama salad yang dicampur dengan badam dan berbagai jenis kacang-kacangan.
Menurut wanita Yahudi itu, daging ikan sungguh baik untuk perkembangan otak dan kepala ikan mengandungi kimia yang tidak baik yang dapat merusak perkembangan dan penumbuhan otak anak didalam kandungan. Ini adalah adat orang orang Yahudi ketika mengandung. menjadi semacam kewajiban untuk ibu yang sedang mengandung mengonsumsi pil minyak ikan.
Ketika diundang untuk makan malam bersama orang orang Yahudi. Begitu Stephen menceritakan, “Perhatian utama saya adalah menu mereka. Pada setiap undangan yang sama saya perhatikan, mereka gemar sekali memakan ikan (hanya isi atau fillet),”
ungkapnya.
Biasanya kalau sudah ada ikan, tidak ada daging. Ikan dan daging tidak ada bersama di satu meja. Menurut keluarga Yahudi, campuran daging dan ikan tak bagus dimakan bersama. Salad dan kacang, harus, terutama kacang badam.
Uniknya, mereka akan makan buah buahan dahulu sebelum hidangan utama. Jangan terperanjat jika Anda diundang ke rumah Yahudi Anda akan dihidangkan buah buahan dahulu. Menurut mereka, dengan memakan hidangan kabohidrat (nasi atau roti) dahulu kemudian buah buahan, ini akan menyebabkan kita merasa ngantuk.
Akibatnya lemah dan payah untuk memahami pelajaran di sekolah.

ROKOK
Di Israel, merokok adalah tabu, apabila Anda diundang makan dirumah Yahudi, jangan sekali kali merokok. Tanpa sungkan mereka akan menyuruh Anda keluar dari rumah mereka. Menyuruh Anda merokok di luar rumah mereka.
Menurut ilmuwan di Universitas Israel, penelitian menunjukkan nikotin dapat merusakkan sel utama pada otak manusia dan akan melekat pada gen. Artinya, keturunan perokok bakal membawa generasi yang cacat otak ( bodoh). Suatu penemuan yang dari saintis gen dan DNA Israel.
Perhatian Stephen selanjutnya adalah mengunjungi anak-anak Yahudi. Mereka sangat memperhatikan makanan, makanan awal adalah buah buahan bersama kacang badam, diikuti dengan menelan pil minyak ikan (code oil lever).
Dalam pengamatan Stephen, anak-anak Yahudi sungguh cerdas. Rata rata mereka memahami tiga bahasa, Hebrew, Arab dan Inggris. Sejak kecil mereka telah dilatih bermain piano dan biola. Ini adalah suatu kewajiban.
Menurut mereka bermain musik dan memahami not dapat meningkatkan IQ. Sudah tentu bakal menjadikan anak pintar.
Ini menurut saintis Yahudi, hentakan musik dapat merangsang otak.
Tak heran banyak pakar musik dari kaum Yahudi.

1 – 6 SD
Seterusnya di kelas 1 hingga 6, anak anak Yahudi akan diajar matematika berbasis perniagaan. Pelajaran IPA sangat diutamakan. Di dalam pengamatan Stephen, “Perbandingan dengan anak anak di California, dalam tingkat IQ-nya bisa saya katakan 6 tahun kebelakang!! !” katanya.
Segala pelajaran akan dengan mudah di tangkap oleh anak Yahudi. Selain dari pelajaran tadi olahraga juga menjadi kewajiban bagi mereka. Olahraga yang diutamakan adalah memanah, menembak dan berlari.
Menurut teman Yahudi-nya Stephen, memanah dan menembak dapat melatih otak fokus. Disamping itu menembak bagian dari persiapan untuk membela negara.

Sekolah Menengah – Perguruan Tinggi
Selanjutnya perhatian Stephen ke sekolah tinggi (menengah). Di sini murid-murid digojlok dengan pelajaran sains. Mereka didorong untuk menciptakan produk. Meski proyek mereka kadangkala kelihatannya lucu dan memboroskan, tetap diteliti dengan serius.
Apa lagi kalau yang diteliti itu berupa senjata, medis dan teknik. Ide itu akan dibawa ke jenjang lebih tinggi.
Satu lagi yg di beri keutamaan ialah fakultas ekonomi. Saya sungguh terperanjat melihat mereka begitu agresif dan seriusnya mereka belajar ekonomi. Diakhir tahun diuniversitas, mahasiswa diharuskan mengerjakan proyek. Mereka harus memperaktekkanya.
Anda hanya akan lulus jika team Anda (10 pelajar setiap kumpulan) dapat keuntungan sebanyak $US 1 juta!
Anda terperanjat?
Itulah kenyataannya.

Kesimpulan, pada teori Stephen adalah, melahirkan anak dan keturunan yang cerdas adalah keharusan.. Tentunya bukan perkara yang bisa diselesaikan semalaman. Perlu proses, melewati beberapa generasi mungkin?

PENDIDIKAN ANAK DI PALESTINA
Kabar lain tentang bagaimana pendidikan anak adalah dari saudara kita di Palestina. Mengapa Israel mengincar anak-anak Palestina. Terjawab sudah mengapa agresi militer Israel yang biadab dari 27 Desember 2008 kemarin memfokuskan diri pada pembantaian anak-anak Palestina di Jalur Gaza.
Seperti yang kita ketahui, setelah lewat tiga minggu, jumlah korban tewas akibat holocaust itu sudah mencapai lebih dari 1300 orang lebih. Hampir setengah darinya adalah anak-anak.
Selain karena memang tabiat Yahudi yang tidak punya nurani, target anak-anak bukanlah kebetulan belaka. Sebulan lalu, sesuai Ramadhan 1429 Hijriah, Ismali Haniya, pemimpin Hamas, melantik sekitar 3500 anak-anak Palestina yang sudah hafidz al-Quran.
Anak-anak yang sudah hafal 30 juz Alquran ini menjadi sumber ketakutan Zionis Yahudi. “Jika dalam usia semuda itu mereka sudah menguasai Alquran, bayangkan 20 tahun lagi mereka akan jadi seperti apa?” demikian pemikiran yang berkembang di pikiran orang-orang Yahudi.
Tidak heran jika-anak Palestina menjadi para penghafal Alquran. Kondisi Gaza yang diblokade dari segala arah oleh Israel menjadikan mereka terus intens berinteraksi dengan al-Qur’an. Tak ada main Play Station atau game bagi mereka.
Namun kondisi itu memacu mereka untuk menjadi para penghafal yang masih begitu belia. Kini, karena ketakutan sang penjajah, sekitar 500 bocah penghafal Quran itu telah syahid.
Perang panjang dengan Yahudi akan berlanjut entah sampai berapa generasi lagi. Ini cuma masalah giliran. Sekarang Palestina dan besok bisa jadi Indonesia. Bagaimana perbandingan perhatian pemerintah Indonesia dalam membina generasi penerus dibanding dengan negara tetangganya.
Ambil contoh tetangga kita yang terdekat adalah Singapura. Contoh yang penulis ambil sederhana saja, Rokok. Singapura selain menerapkan aturan yang ketat tentang rokok, juga harganya sangat mahal.
Benarkah merokok dapat melahirkan generasi “Goblok!” kata Goblok bukan dari penulis, tapi kata itu sendiri dari Stephen Carr Leon sendiri. Dia sudah menemui beberapa bukti menyokong teori ini.
“Lihat saja Indonesia,” katanya seperti dalam tulisan itu.
Jika Anda ke Jakarta, di mana saja Anda berada, dari restoran, teater, kebun bunga hingga ke musium, hidung Anda akan segera mencium bau asak rokok! Berapa harga rokok? Cuma US$ .70cts !!!
“Hasilnya? Dengan penduduknya berjumlah jutaan orang berapa banyak universitas? Hasil apakah yang dapat dibanggakan? Teknologi? Jauh sekali. Adakah mereka dapat berbahasa selain dari bahasa mereka sendiri? Mengapa mereka begitu sukar sekali menguasai bahasa Inggris? Apakah ini bukan akibat merokok? Anda fikirlah sendiri?”

Majalah Sabili

Dicopy dari :
Postingan Indah novianti di :

Tambahan :

* Jika ada buah, mendahulukan makan buah sebelum makan berat adalah sesuai dengan sunnah/cara makan Rasulullah Sallallahu ‘alaihi wasallam.
* Memanah, berkuda, dan berenang adalah olahraga yang paling dianjurkan oleh Rasulullah Sallalahu ‘alaqihi wasallam kepada ummatnya.
* Untuk ibu yang sedang mengandung, sangat dianjurkan untuk sering membaca atau mendengarkan Al-Qur’an.

Yahudi dan Babi

Setelah diedit
Wah ternyata pada tulisan saya ini sebelum di-edit, saya benar-benar salah paham dan salah informasi tentang kebiasaan orang yahudi memakan babi. Ternyata orang yahudi juga sama dengan orang Islam, yaitu tidak memakan Babi…
Jazakumullahu Khoir akhi Arlinda Herman ‘Jr atas koreksinya.

Yahudi dan ROKOK

Sebagaimana kita telah baca dalam artikel diatas, rokok adalah barang yang tabu bagi mereka. Akan tetapi tahukah anda Philip Morris adalah seorang Yahudi, adalah pemilik perusahaan rokok yang telah menguasai 50% pasar rokok di seluruh dunia. Termasuk di Indonesia, HM Sampoerna adalah termasuk milik Philip Morris.

Jadi apa yang bisa anda banggakan wahai perokok??? Bertaubatlah.

Wallahu ‘alam

Terimakasih

Semoga bermanfaat.

Silahkan di SHARE / BAGIKAN agar saudara-saudara kita juga mempunyai kesempatan membaca artikel berharga ini.

Nah, berhubung ternyata gak ada yang ngebahas soal gw, gw jadi terdorong untuk ngebahas soal gw sendiri yang tentang kriptografi. Positif thinking aja, mungkin anak-anak osn kompi lain lagi sibuk menghadapi nasib… eh, pelatnas.

Kenapa gw bahas soal ini di blog gw sendiri dan bukannya di blog osn kompi? Yah, alasannya sederhana aja, gw cuma mau mempromosikan blog gw ini. Jadi jangan marah yaaa…

Oke, kita mulai pembahasan ini dengan melihat contoh testcase kita:
Input:
agung
keren
agung
cool
agung utama
ganteng

Output:
KKLRT
CUIYI
GGHGK ATNFE

Algoritma kriptografi ini (yang notabane disebut “Vigenere Chiper”) untuk dipemograman sebenatnya sederhana:
1. Input plain text.
2. Input sandi.
3. Rubah huruf pertama plain text dengan huruf pertama sandi sesuai tabel.
4. Kalau bertemu spasi, jangan di proses, dan sandi dimulai lagi dari huruf pertama.
5. Kalau sudah sampai ke huruf akhir sandi, kembalikan ke huruf pertama sandi.
Baca soal lagi kalau tidak mengerti dengan algoritmanya.

Gak sulit kan? Tapi yang terlihat ternyata tidak semudah kelihatannya. Coba lihat lagi poin ke 3. Kita diminta mencocokan dengan tabel. Sekedar cerita, dulu gw bikin kodenya pakai array 2 dimensi, jadi keluaran sandi[huruf plain, huruf sandi] adalah hasilnya. Cara ini bisa dibuat untuk enkripsi, tapi gimana dengan dekripsi? Silahkan coba sendiri.

Kalau pakai array juga memakan memori banyak. Satu variabel char sudah 1 byte. Kalau ada 26 huruf berarti ada 26 X 26 variabel char (676 variabel). Kelihatannya sedikit, tapi tidak efektif. Jadi marilah kita tinggalkan cara ini.

Coba perhatikan tabel kriptografi ini. Kalau diperhatikan, sebenarnya chiper text merupakan hasil increment dari plain text. contoh: ‘A’ dengan sandi ‘A’ menghasilkan ‘A’ lagi. ‘A’ dengan sandi ‘B’ menghasilkan ‘B’. Kalau ‘F’ dengan sandi ‘L’ akan menghasilkan ‘Q’ (huruf ‘F’ naik sebanyak ‘L’ – 1 kali).

Sekarang, dalam pascal kita bisa tulis:
////////////////////////////////////////////////////////
var
input : string; //variabel untuk plain text
sandi : string; //variabel untuk sandi
i,j,k : byte; //variabel untuk (i)iterasi, (j)panjang sandi, dan (k)hurufsandi

begin
repeat //untuk perulangan

readln(input); //input plain
if input = ” then exit; //kalau kosong, selesai

readln(sandi); //input sandi

j := length(sandi); //simpan panjang sandi
input := upcase(input); //jadikan input huruf besar
sandi := upcase(sandi); //jadikan sandi huruf besar
k := 1; //simpan huruf ke berapa sandi akan dipakai

for i := 1 to length(input) do
begin
if input[i] = ‘ ‘ then begin k := 1; continue; end;
//kalau huruf spasi, jangan diproses
input[i] := chr( ord(input[i]) + ord(sandi[k]) – 65 );
//huruf input dinaikan sebanyak huruf sandi dikurangi 65(ASCII dari ‘A’)
if ord(input[i]) > ord(‘Z’) then
input[i] := chr( ord(input[i]) – 26 );
//Kalau lebih dari Z maka kurangi 26 huruf
k := k + 1;
//Gunakan huruf sandi berikutnya
if k > j then k := 1;
//Kalau lebih panjang dari sandi itu sendiri, kembalikan ke huruf pertama
end;

writeln(input); //cetak hasilnya

until input = ”;

end.
////////////////////////////////////////////////////////

Dari logika tadi, maka untuk mendekrip bisa kita rubah sedikit kodenya. Dimana setiap simbol dibalik.
////////////////////////////////////////////////////////
var
input : string; //variabel untuk plain text
sandi : string; //variabel untuk sandi
i,j,k : byte; //variabel untuk (i)iterasi, (j)panjang sandi, dan (k)hurufsandi

begin
repeat //untuk perulangan

readln(input); //input plain
if input = ” then exit; //kalau kosong, selesai

readln(sandi); //input sandi

j := length(sandi); //simpan panjang sandi
input := upcase(input); //jadikan input huruf besar
sandi := upcase(sandi); //jadikan sandi huruf besar
k := 1; //simpan huruf ke berapa sandi akan dipakai

for i := 1 to length(input) do
begin
if input[i] = ‘ ‘ then begin k := 1; continue; end;
//kalau huruf spasi, jangan diproses
input[i] := chr( ord(input[i]) – ord(sandi[k]) + 65 );
//huruf input diturunkan sebanyak huruf sandi ditambah 65(ASCII dari ‘A’)
if ord(input[i]) <> j then k := 1;
//Kalau lebih panjang dari sandi itu sendiri, kembalikan ke huruf pertama
end;

writeln(input); //cetak hasilnya

until input = ”;

end.
////////////////////////////////////////////////////////

Sebenarnya untuk tugas yang sekarang kode ini sudah cukup, karena testcase sudah pasti tidak memiliki karakter lain selain alphabet dan spasi. Tapi sebenarnya dalam Vigenere Chiper, ada kemungkinan kalau input memiliki karakter khusus (seperti “‘!@#$%^&* dll). Maka, ada baiknya kita melakukan pengecualian proses untuk karakter-karakter tersebut. Kalau gw lebih suka pakai tipe set.
var
…..
himp : Set of char;
…..

jadi kode enkrip:
////////////////////////////////////////////////////////
var
input : string; //variabel untuk plain text
sandi : string; //variabel untuk sandi
i,j,k : byte; //variabel untuk (i)iterasi, (j)panjang sandi, dan (k)hurufsandi
himp : Set of char //variabel himpunan karakter yang diizinkan

begin
repeat //untuk perulangan

readln(input); //input plain
if input = ” then exit; //kalau kosong, selesai

readln(sandi); //input sandi

j := length(sandi); //simpan panjang sandi
input := upcase(input); //jadikan input huruf besar
sandi := upcase(sandi); //jadikan sandi huruf besar
himp := ['A'..'Z']; //krakter yang diizinkan dari A sampai Z
k := 1; //simpan huruf ke berapa sandi akan dipakai

for i := 1 to length(input) do
begin
if input[i] = ‘ ‘ then begin k := 1; continue; end;
//kalau huruf spasi, jangan diproses
if not(input[i] in himp) then continue;
//kalau tidak termasuk huruf yang diizinkan, jangan diproses
input[i] := chr( ord(input[i]) + ord(sandi[k]) – 65 );
//huruf input dinaikan sebanyak huruf sandi dikurangi 65(ASCII dari ‘A’)
if ord(input[i]) > ord(‘Z’) then
input[i] := chr( ord(input[i]) – 26 );
//Kalau lebih dari Z maka kurangi 26 huruf
k := k + 1;
//Gunakan huruf sandi berikutnya
if k > j then k := 1;
//Kalau lebih panjang dari sandi itu sendiri, kembalikan ke huruf pertama
end;

writeln(input); //cetak hasilnya

until input = ”;

end.
////////////////////////////////////////////////////////

dan dekrip:
////////////////////////////////////////////////////////
var
input : string; //variabel untuk plain text
sandi : string; //variabel untuk sandi
i,j,k : byte; //variabel untuk (i)iterasi, (j)panjang sandi, dan (k)hurufsandi
himp : Set of char //variabel himpunan karakter yang diizinkan

begin
repeat //untuk perulangan

readln(input); //input plain
if input = ” then exit; //kalau kosong, selesai

readln(sandi); //input sandi

j := length(sandi); //simpan panjang sandi
input := upcase(input); //jadikan input huruf besar
sandi := upcase(sandi); //jadikan sandi huruf besar
himp := ['A'..'Z']; //krakter yang diizinkan dari A sampai Z
k := 1; //simpan huruf ke berapa sandi akan dipakai

for i := 1 to length(input) do
begin
if input[i] = ‘ ‘ then begin k := 1; continue; end;
//kalau huruf spasi, jangan diproses
if not(input[i] in himp) then continue;
//kalau tidak termasuk huruf yang diizinkan, jangan diproses
input[i] := chr( ord(input[i]) – ord(sandi[k]) + 65 );
//huruf input diturunkan sebanyak huruf sandi ditambah 65(ASCII dari ‘A’)
if ord(input[i]) <> j then k := 1;
//Kalau lebih panjang dari sandi itu sendiri, kembalikan ke huruf pertama
end;

writeln(input); //cetak hasilnya

until input = ”;

end.
////////////////////////////////////////////////////////
Sekarang, kita sudah benar-benar selesai dengan Vigenere Chiper.

Yah, pambahasan ini masih banyak kelemahannya. Pertama, mungkin kurang jelas. Kedua, gw terlalu ganteng (gak nyambung, oon!). Gw menerima segala kritik, saran, dan pujian dari siapa saja (siapa yang mau muji?). Terima Kasih atas perhatiannya, semoga anda yang memperhatikan selalu berbahagia dan yang tidak memperhatikan selalu sengsara (??).

Pembahasan tentang IP converting masih di proses.