jump to navigation

Wajah eksentrik surat elektronik November 18, 2008

Posted by tintonda in Kerjaan.
add a comment

Jika tampilan suatu surat elektronik (imel) yg kita buka di yahoo mail, G mail, dsb adalah begitu indah, mudah dibaca dan sederhana,.. maka mari kita lihat sisi lain dari suatu surat elektronik yang lebih tampak eksentrik.. :)

ini tampak indahnya…

 

ini tampak eksentriknya…

 

Received: from [68.142.230.29] by n1.bullet.mail.re3.yahoo.com with NNFMP; 18 Nov 2008 10:58:30 -0000
Received: from [216.252.110.140] by t2.bullet.re2.yahoo.com with NNFMP; 18 Nov 2008 10:58:30 -0000
Received: from [127.0.0.1] by omp210.mail.re3.yahoo.com with NNFMP; 18 Nov 2008 10:58:30 -0000
X-Yahoo-Newman-Property: ymail-3
X-Yahoo-Newman-Id: 262523.21071.bm@omp210.mail.re3.yahoo.com
Received: (qmail 47832 invoked by uid 60001); 18 Nov 2008 10:58:30 -0000
DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws;
  s=s1024; d=yahoo.com;
  h=X-YMail-OSG:Received:X-Mailer:Date:From:Reply-To:To:MIME-Version:Content-Type:Message-ID;
  b=VDFxvnR82q0yEV+MJkTTXnqk0KESdoEcJ33Rc4ZHW/oEdZYakMHZNmtfP9e4oxfqpJx0OBj/pfgovAG9L2GiBebEb6rimTafMwJ6LAWGEfKrDVuzEQaFWZmyo+YXv8a3h9FusTBX5Nhz5dJDif9jUs+DwIFGA/rEWSyWDa60sJk=;
X-YMail-OSG: aKfsNmwVM1nRNL722n8bjY3wHBdgXU9MYI2ALbjZgsGHr9paZTEd4c5rHMKIpzwubO0150Dk14ET2UXptWJ4o4tJqSKyIZ0B.tFWZGfXaMqH4zN0sO4ph_OgQcc7LlTZrVE0.Q–
Received: from [202.155.39.182] by web57405.mail.re1.yahoo.com via HTTP; Tue, 18 Nov 2008 02:58:29 PST
X-Mailer: YahooMailWebService/0.7.260.1
Date: Tue, 18 Nov 2008 02:58:29 -0800 (PST)
From: Tinton Dwi A <tinton_dwi@yahoo.com>
Reply-To: tinton_dwi@yahoo.com
To: tinton_dwi@gma.com
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary=”0-1440009044-1227005909=:47152″
Message-ID: <40314.47152.qm@web57405.mail.re1.yahoo.com>

 

 

 

 

 

bagian bawah dipotong untuk menghemat kesehatan mata anda.. :)  

 

 

 

Well, bagaimanapun juga, tampilan pertama tetap akan menjadi pilihan favorit bagi para pembaca..

 

–0-1440009044-1227005909=:47152
Content-Type: multipart/alternative; boundary=”0-1744925771-1227005909=:47152″

–0-1744925771-1227005909=:47152
Content-Type: text/plain; charset=us-ascii

gambar dikirim

Tinton

     
–0-1744925771-1227005909=:47152
Content-Type: text/html; charset=us-ascii

<table cellspacing=”0″ cellpadding=”0″ border=”0″ ><tr><td valign=”top” style=”font: inherit;”>gambar dikirim<BR><BR>
<DIV><FONT color=#00007f><STRONG>Tinton</STRONG></FONT></DIV></td></tr></table><br>

     
–0-1744925771-1227005909=:47152–
–0-1440009044-1227005909=:47152
Content-Type: image/pjpeg; name=”IMG_0294.jpg”
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename=”IMG_0294.jpg”

/9j/4TGMRXhpZgAASUkqAAgAAAAKAA8BAgAGAAAAhgAAABABAgAWAAAAjAAA
ABIBAwABAAAAAQAAABoBBQABAAAAogAAABsBBQABAAAAqgAAACgBAwABAAAA
AgAAADEBAgAcAAAAsgAAADIBAgAUAAAAzgAAABMCAwABAAAAAQAAAGmHBAAB
AAAA4gAAAHINAABDYW5vbgBDYW5vbiBQb3dlclNob3QgUzUgSVMAtAAAAAEA
AAC0AAAAAQAAAEFDRCBTeXN0ZW1zIERpZ2l0YWwgSW1hZ2luZwAyMDA4OjEx
OjE4IDE3OjM1OjU1ACEAmoIFAAEAAAB0AgAAnYIFAAEAAAB8AgAAJ4gDAAEA
AADIAAAAAJAHAAQAAAAwMjIwA5ACABQAAACEAgAABJACABQAAACYAgAAAZEH
AAQAAAABAgMAApEFAAEAAACsAgAAAZIKAAEAAAC0AgAAApIFAAEAAAC8AgAA
BJIKAAEAAADEAgAABZIFAAEAAADMAgAAB5IDAAEAAAAFAAAACZIDAAEAAAAQ
AAAACpIFAAEAAADUAgAAfJIHAFgJAADcAgAAhpIHAAgBAAA0DAAAkJICAAQA
AAA1OTMAAKAHAAQAAAAwMTAwAaADAAEAAAABAAAAAqAEAAEAAACQAQAAA6AE
AAEAAAAsAQAABaAEAAEAAAA8DQAADqIFAAEAAABaDQAAD6IFAAEAAABiDQAA
EKIDAAEAAAACAAAAF6IDAAEAAAACAAAAAKMHAAEAAAADAAAAAaQDAAEAAAAA
AAAAAqQDAAEAAAAAAAAAA6QDAAEAAAAAAAAABKQFAAEAAABqDQAABqQDAAEA
AAAAAAAAAAAAAAEAAABkAAAAIwAAAAoAAAAyMDA4OjEwOjAyIDE1OjA1OjI1
ADIwMDg6MTA6MDIgMTU6MDU6MjUAAwAAAAEAAADVAAAAIAAAAHQAAAAgAAAA
AAAAAAMAAAB0AAAAIAAAAHz2AADoAwAAGwABAAMALgAAACYEAAACAAMABAAA
AIIEAAADAAMABAAAAIoEAAAEAAMAIgAAAJIEAAAAAAMABgAAANYEAAAGAAIA
GQAAAOIEAAAHAAIAFgAAAAIFAAAIAAQAAQAAAGZDDwAJAAIAIAAAABoFAAAN
AAQAlAAAADoFAAAQAAQAAQAAAAAACQIAAAMAFAAAAIoHAAAmAAMAMAAAALIH
AAATAAMABAAAABIIAAAYAAEAAAEAABoIAAAZAAMAAQAAAAEAAAAaAAMAAQAA
AAAAAAAcAAMAAQAAAAAAAAAdAAMAEAAAABoJAAAeAAQAAQAAAAACAQEfAAMA
RQAAADoJAAAiAAMA0AAAAMQJAAAjAAQAAgAAAGQLAAAkAAMATgAAAGwLAAAl
AAEADgAAAAgMAAAnAAMABgAAABYMAAAoAAEAEAAAABwMAAAAAAAAXAACAAAA
AwAAAAAAAAAEAP//AQAAAAAAAAAAAAAAAAAPAAMAAQAFIAAA/3///yAcWAJk
AHQAwAAAAAAAAAAAAAEAAAABAAAAwAzADAAAAAD//wAA/3//fwAAAAACAKYY
5gCtAAAAAAAAAAAARAAgAKAAnAB0ANUAAAAAAAAAAABrAAAAAAAAAAAAAAAA
AAAAAQCIDwAAdQDQAAAAAAAAAPoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AABJTUc6UG93ZXJTaG90IFM1IElTIEpQRUcAAAAAAAAAAEZpcm13YXJlIFZl
cnNpb24gMS4wMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+wEAAJsBAAAAAAAAAAAAAAAAAABfAQAAcQIAAGAAAAAAAAAAAAAAAAAAAAAA
AAAAQQIAAEACAADW////AAAAAAAAAAD1////AAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAABwAAAAoAAADVAQAA1QEAANUBAABfAQAAdQIAAGz///8AAAAAAAAA
ANUBAADVAQAAAAAAAAAAAAABAAAAAAwAAAAMAAAADAAAAAwAAAAMAAAA9P//
APT//wD0//8A9P//APT//wAAAAAA9P//9f///wAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAACXAAAAAAQAAAAEAAB2////SwAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAANMCAAAAAAAAeP///0kAAAAAAAAAAAAA
AAMAAAABAAAAAAAAAAAAAACeAwAAGAQAAAAEAAAABQAAAAAAAHn///9LAAAA
PwAAAGgDAAAFBwAAKQYAAGgDAAABAAAAdAIAAF8BAADVAQAAkwIAAGz///8D
AAAAgAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAlgsAAAUAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAC+DgAAWRIAALIWAACAAAAAAQAAAAAAAADY5///AwAA
AAEAAAAyCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC4rwAA
QAQAAPUAAAC+AQAAZAAAAMQAAAAsAAAA+w8AAPsPAAABAAAAAQAAABoAAAAI
AAAAPDVESAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AABgAAIACQABAMAMkAlABPUAxAAAAAAAAAAAAAAAAAAAAAAALAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAgAAEAAAACAAIAAgACAAAAAAAAAAAAAAAAAAAAAAAAAIoAAQAAAAQACAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKABAAAAABAA
CAABAAEAgALgAQAAAAAAAAAAAAAIAIABAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAACAAAAAAAAACcACMAAAAAAAAAAQABABAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOIwAAAAAAAAAAAAAA
AAYAAAAAAFvLyPgA1CS/4qnIvHV1qJxJSSoAsgIAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAQACAAQAAABSOTgAAgAHAAQA
AAAwMTAwAAAAAADOMQDhAAAAgFolAKkAAADADAAAwAwAAAMAAwEDAAEAAAAG
AAAAAQIEAAEAAACcDQAAAgIEAAEAAADoIwAAAAAAAP/Y/+EA5kV4aWYAAElJ
KgAIAAAABQASAQMAAQAAAAEAAAAxAQIAHAAAAEoAAAAyAQIAFAAAAGYAAAAT
AgMAAQAAAAEAAABphwQAAQAAAHoAAAAAAAAAQUNEIFN5c3RlbXMgRGlnaXRh
bCBJbWFnaW5nADIwMDg6MTE6MTggMTc6MzU6NTUABQAAkAcABAAAADAyMjCQ
kgIABAAAADUwMAACoAQAAQAAAKAAAAADoAQAAQAAAHgAAAAFoAQAAQAAALwA
AAAAAAAAAgABAAIABAAAAFI5OAACAAcABAAAADAxMDAAAAAAmBjPAv/AABEI
AHgAoAMBIQACEQEDEQH/2wCEAAMCAgICAQMCAgIDAwMDBAcEBAQEBAkGBgUH
CgkLCwoJCgoMDREODAwQDAoKDxQPEBESExMTCw4VFhUSFhESExIBBAUFBgUG
DQcHDRsSDxIbGxsbGxsbGxsbGxsbGxsbGxsbGxsbGxsbGxsbGxsbGxsbGxsb
GxsbGxsbGxsbGxsbG//EAaIAAAEFAQEBAQEBAAAAAAAAAAABAgMEBQYHCAkK
CxAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0Kx
wRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZ
WmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKz
tLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6
AQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgsRAAIBAgQEAwQHBQQEAAEC
dwABAgMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1LwFWJy0QoWJDThJfEX
GBkaJicoKSo1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5
eoKDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJ
ytLT1NXW19jZ2uLj5OXm5+jp6vLz9PX29/j5+v/aAAwDAQACEQMRAD8A4LRZ
H12Ew6ZcyWt55ZJjuWBim5/hYD5T9cVJCbGw08/2neahbu8vlNbSxF2t2wMF
XAyVJPGQee9eaqrV7nd7O7sjsfBnhnWZfhtdXXiO/v2na7yLG7ixJaREnazL
tBGSox1IJArQt9C+06RqN29xvmjuWRW2+WFjXAX5evPOc9zXRF8zugnBwtfq
eZ+K/hVa+K9PjvNLjlsdQVpQ7OP3ZG7OSo9B6c9K8OuNS/sjxZc6JqW6zvbC
byJ1SUOjEYwTwMgjB/Gj427dCLuFuzHnxYsV0puroKqkNnHUY+vTP41p+Dfj
…………………….
[remainder of message body omitted; too large]

Mengetahui Jumlah Karakter.. November 18, 2008

Posted by tintonda in Kerjaan.
add a comment

sedikit tantangan kali ini adalah menentukan jumlah karakter yang ada pada satu dua paragraf artikel..

dengan VB berikut;

Private Sub cek_Click()
Dim jumlah_kar, counter, count As Integer
Dim huruf As String
Dim arr(26) As Integer
Dim arrhrf(26) As String

jumlah_kar = Len(Forms!form1!t1)

hrf1 = ” “: hrf2 = ” “: hrf3 = ” “: hrf4 = ” “: hrf5 = ” “
r1 = 0: r2 = 0: r3 = 0: r4 = 0: r5 = 0

For counter = 1 To jumlah_kar
huruf = Mid(Forms!form1!t1, counter, 1)
If UCase(huruf) = “A” Then
arr(1) = arr(1) + 1
arrhrf(1) = “a”
ElseIf UCase(huruf) = “B” Then
arr(2) = arr(2) + 1
arrhrf(2) = “b”
ElseIf UCase(huruf) = “C” Then
arr(3) = arr(3) + 1
arrhrf(3) = “c”
ElseIf UCase(huruf) = “D” Then
arr(4) = arr(4) + 1
arrhrf(4) = “d”
ElseIf UCase(huruf) = “E” Then
arr(5) = arr(5) + 1
arrhrf(5) = “e”
ElseIf UCase(huruf) = “F” Then
arr(6) = arr(6) + 1
arrhrf(6) = “f”
ElseIf UCase(huruf) = “G” Then
arr(7) = arr(7) + 1
arrhrf(7) = “g”
ElseIf UCase(huruf) = “H” Then
arr(8) = arr(8) + 1
arrhrf(8) = “h”
ElseIf UCase(huruf) = “I” Then
arr(9) = arr(9) + 1
arrhrf(9) = “i”
ElseIf UCase(huruf) = “J” Then
arr(10) = arr(10) + 1
arrhrf(10) = “j”
ElseIf UCase(huruf) = “K” Then
arr(11) = arr(11) + 1
arrhrf(11) = “k”
ElseIf UCase(huruf) = “L” Then
arr(12) = arr(12) + 1
arrhrf(12) = “l”
ElseIf UCase(huruf) = “M” Then
arr(13) = arr(13) + 1
arrhrf(13) = “m”
ElseIf UCase(huruf) = “N” Then
arr(14) = arr(14) + 1
arrhrf(14) = “n”
ElseIf UCase(huruf) = “O” Then
arr(15) = arr(15) + 1
arrhrf(15) = “o”
ElseIf UCase(huruf) = “P” Then
arr(16) = arr(16) + 1
arrhrf(16) = “p”
ElseIf UCase(huruf) = “Q” Then
arr(17) = arr(17) + 1
arrhrf(17) = “q”
ElseIf UCase(huruf) = “R” Then
arr(18) = arr(18) + 1
arrhrf(18) = “r”
ElseIf UCase(huruf) = “S” Then
arr(19) = arr(19) + 1
arrhrf(19) = “s”
ElseIf UCase(huruf) = “T” Then
arr(20) = arr(20) + 1
arrhrf(20) = “t”
ElseIf UCase(huruf) = “U” Then
arr(21) = arr(21) + 1
arrhrf(21) = “u”
ElseIf UCase(huruf) = “V” Then
arr(22) = arr(22) + 1
arrhrf(22) = “v”
ElseIf UCase(huruf) = “W” Then
arr(23) = arr(23) + 1
arrhrf(23) = “w”
ElseIf UCase(huruf) = “X” Then
arr(24) = arr(24) + 1
arrhrf(24) = “x”
ElseIf UCase(huruf) = “Y” Then
arr(25) = arr(25) + 1
arrhrf(25) = “y”
ElseIf UCase(huruf) = “Z” Then
arr(26) = arr(26)
arrhrf(26) = “z”
End If

Next

For count = 1 To 26
If arr(count) > r1 Then
r1 = arr(count)
hrf1 = arrhrf(count)
End If
Next

For count = 1 To 26
If arrhrf(count) hrf1 Then
If arr(count) > r2 And arr(count) <= r1 Then
r2 = arr(count)
hrf2 = arrhrf(count)
End If
End If
Next

For count = 1 To 26
If arrhrf(count) hrf1 And arrhrf(count) hrf2 Then
If arr(count) > r3 And arr(count) <= r1 And arr(count) <= r2 Then
r3 = arr(count)
hrf3 = arrhrf(count)
End If
End If
Next

For count = 1 To 26
If arrhrf(count) hrf1 And arrhrf(count) hrf2 And arrhrf(count) hrf3 Then
If arr(count) > r4 And arr(count) <= r1 And arr(count) <= r2 And arr(count) <= r3 Then
r4 = arr(count)
hrf4 = arrhrf(count)
End If
End If
Next

For count = 1 To 26
If arrhrf(count) hrf1 And arrhrf(count) hrf2 And arrhrf(count) hrf3 And arrhrf(count) hrf4 Then
If arr(count) > r5 And arr(count) <= r1 And arr(count) <= r2 And arr(count) <= r3 And arr(count) <= r4 Then
r5 = arr(count)
hrf5 = arrhrf(count)
End If
End If
Next

Forms!form1!t2 = hrf1
Forms!form1!t3 = hrf2
Forms!form1!t4 = hrf3
Forms!form1!t5 = hrf4
Forms!form1!t6 = hrf5

Forms!form1!j2 = r1
Forms!form1!j3 = r2
Forms!form1!j4 = r3
Forms!form1!j5 = r4
Forms!form1!j6 = r5

Forms!form1!p2 = Format(r1 / jumlah_kar * 100, “##.##”)
Forms!form1!p3 = Format(r2 / jumlah_kar * 100, “##.##”)
Forms!form1!p4 = Format(r3 / jumlah_kar * 100, “##.##”)
Forms!form1!p5 = Format(r4 / jumlah_kar * 100, “##.##”)
Forms!form1!p6 = Format(r5 / jumlah_kar * 100, “##.##”)

End Sub

Private Sub Command43_Click()
Forms!form1!t1 = ” “
Forms!form1!t1.SetFocus
Forms!form1!t2 = “”
Forms!form1!t3 = “”
Forms!form1!t4 = “”
Forms!form1!t5 = “”
Forms!form1!t6 = “”

Forms!form1!j2 = “”
Forms!form1!j3 = “”
Forms!form1!j4 = “”
Forms!form1!j5 = “”
Forms!form1!j6 = “”

Forms!form1!p2 = “”
Forms!form1!p3 = “”
Forms!form1!p4 = “”
Forms!form1!p5 = “”
Forms!form1!p6 = “”
End Sub

kita dapatkan tampilan penghitung karakter sebagai berikut:

Bahasa Indonesia

Bahasa Inggris

Bahasa Jawa

dapat dilihat dari hasil penghitungan program tersebut bahwa,
1. untuk bahasa Indonesia, huruf yang terbanyak muncul adalah huruf ‘a’ sebanyak 16,63% diikuti oleh huruf ‘n’ sebanyak 9,12%
2. untuk bahasa Indonesia, huruf yang terbanyak muncul adalah huruf ‘e’ sebanyak 9,76% diikuti oleh huruf “a” sebanyak 9,54%
3. untuk bahasa Indonesia, huruf yang terbanyak muncul adalah huruf ‘a’ sebanyak 14,21% diikuti oleh huruf ‘n’ sebanyak 8,6%

Steganography.. seni penulisan pesan tersembunyi.. November 5, 2008

Posted by tintonda in Kerjaan.
1 comment so far

Steganography adalah seni menuliskan pesan tersembunyi dalam suatu metoda dimana orang lain tidak akan mudah membacanya. cara paling kuno adalah dengan mengukirkan pesan pada meja kayu yang kemudian dilapisi dengan lilin.. cara paling sederhana yg sering dipakai adalah dengan membedakan hurup-hurup tertentu dari sebuah kalimat atau paragraf dimana susunan hurup-hurup itu akan membuat satu kalimat baru yang merupakan pesan aslinya. Contohnya sebagai berikut:

 

 

Satu hari Sultan merasa harus mengirim pesan singkat yang akan

disamarkan dalam sebuah cerita unik yang akan susah dibaca oleh

orang, minimal bisa mengalihkan perhatian orang tersebut dari

pesan aslinya. Jadi dia tanya penasehatnya, “penasehat, siapa

paling pandai mengarang kata-kata saat ini?”

“Abunawas” jawab Penasehat.

Sultan pun manggil Abunawas n baginda bertitah :

“Abunawas, coba buat satu cerita seratus kata tapi setiap kata

mesti dimulai dengan huruf ‘J’. (unik benar..?!)

 

Terperanjat Abunawas, tapi setelah berfikir, diapun mulai bercerita:

 

——

 

Jeng Juminten janda judes, jelek jerawatan, jari jempolnya jorok.

Jeng juminten jajal jualan jamu jarak jauh Jogya-Jakarta. Jamu

 jagoannya: jamu jahe. “Jamu-jamuuu…, jamu jahe-jamu jaheee…!”

Juminten jerit-jerit jajakan jamunya, jelajahi jalanan.

 

Jariknya jatuh, Juminten jatuh jumpalitan. Jeng Juminten jerit-jerit:

“Jarikku jatuh, jarikku jatuh…” Juminten jengkel, jualan jamunya

jungkir-jungkiran, jadi jemu juga.

 

Juminten jumpa Jack, jejaka Jawa jomblo, juragan jengkol, jantan,

juara judo. Jantungnya Jeng Juminten janda judes jadi jedag-jedug.

Juminten janji jera jualan jamu, jadi julietnya Jack.

 

Johny justru jadi jelous Juminten jadi juliet-nya Jack. Johny juga

jejaka jomblo, jalang, juga jangkung. Julukannya, Johny Jago Joget.

“Jieehhh, Jack jejaka Jawa, Jum?” joke-nya Johny. Jakunnya jadi

jungkat-jungkit jelalatan jenguk Juminten. “Jangan jealous, John…”

jawab Juminten.

 

——-

 

Jeringatan : Jangan joba-joba jikin jerita jayak jini jagi ja…!!!

JUSAH…!!!

Follow

Get every new post delivered to your Inbox.