Cinta dan Sayang

Cinta itu egois, sayang itu tidak

Cinta hanya untuk satu orang, dan sayang itu bisa dibagi-bagi dengan semua orang

Cinta hanya sebuah perasaan untuk seorang kekasih-pacar atau pasangan hidupnya, sedangkan sayang hanya ditunjukan buat keluarga-sahabat dan orang” terdekat

Rasa Sayang jauh lebih dalam dari pada rasa cinta, rasa sayang tidak mudah berubah,

Rasa sayang membuat seseoarang berkorban dan rela menderita demi orang disayangi

Cinta ingin memiliki, namun sayang tidak

Saat menyayangi seseorang, ingin sekali rasanya membuatnya bahagia dan bukan untuk diri sendiri, Saat  mencintai seseorang, akan melakukan apapun untuk kebahagiaannya walaupun  harus mengorbankan jiwa

Sayang adalah saat ia menangis dan kau akan menangis bersamanya, Cinta  adalah saat ia menangis dan kau akan membiarkannya menangis di pundakmu

Sayang  adalah saat kau melihatnya kau akan melihatnya dari hatimu dan bukan matamu, Cinta  adalah saat kau melihatnya kau akan berkata, "Buatku dia adalah anugerah terindah yang pernah Tuhan berikan padaku"

Pada saat orang yang kau Sayangi menyakitimu kau akan menangis untuknya, Pada saat orang yang kau Cintai menyakitimu kau akan berkata: "Tak apa dia hanya tak tau apa yang dia lakukan"

Pada saat kau Sayang padanya kau akan membiarkannya memilih yg terbaik untuknya, Pada saat kau Cinta padanya kau akan selalu menantinya dengan setia dan tulus

Sayang adalah kau akan menemaninya di saat dia membutuhkanmu, Cinta  adalah kau akan menemaninya di saat bagaimana keadaanmu

Sayang adalah hal yang memberi dan menerima, Cinta adalah hal yang memberi dengan rela

Cinta itu memang berbeda dengan sayang

Cara Menikmati Rasa Kehilangan

Saat seseorang yang kita kasihi, sayangi, cintai menghilang dari kehidupan kita, rasa kehilangan begitu terasa. Kehidupan terasa berbeda dari sebelumnya, lebih terasa hampa. Teman, sahabat, pacar, suami, atau istri akan menimbulkan perasaan yang sama. Hanya tingkatannya yang berbeda. Berbeda karena status hubungan juga karena dari seseorang yang kehilangan itu sendiri.

Perasaan tidak karuan bahkan beberapa bisa merasakan tekanan yang begitu berat. Bahkan kadang hal itu berpengaruh besar pada kehidupan kita selanjutnya. Lebih terasa berat bahkan kita bisa mengalami kondisi yang sangat buruk.

Seperti kesempatan yang lain, madjongke.com akan menyampaikan beberapa tips yang berkaitan dengan hal ini. Tips untuk mengatasi rasa kehilangan seseorang.

Rasakan
Rasakan hal itu dengan sebaik-baiknya. Jangan mencoba untuk melupakan hal itu secepatnya. Turutilah perasaan kamu sendiri dan jangan pernah membohongi diri sendiri. Jangan khawatir akan semakin terpuruk. Karena ini hanya sebagai langkah awal saja.

Luapkan Emosi
Selama itu positif, tidak jadi sebuah masalah. Khusus untuk wanita, bisa cukup dengan menangis. Itu wajar dan tidak memalukan selama bisa tahu tempat dan kondisi sekitar. Lakukan hal itu untuk membuat diri merasa lebih tenang.

Sadar
Yang pernah datang atau yang pernah kita dapat, suatu saat bisa hilang atau pergi, apapun itu. Seperti itulah hidup. Dan kita harus sadar akan hal itu. Tidak semua yang kita harap bisa selalu terlaksana, begitu juga dengan apa yang kita miliki tidak selamanya akan selalu bersama dengan kita.

Curahkan
Curahkan hal itu pada orang yang paling dekat dengan Kita. Jika terpaksa tidak ada, Anda bisa menjadikan madjongke.com sebagai pilihan kedua. Madjongke.com tidak akan pernah merasa keberatan dengan hal itu. Dan tentu saja bisa menjaga rahasia. Jika menarik, bisa dijadikan 1 artikel di blog ini, tentu saja identitas Anda tetap tersimpan.

Carilah pengganti
Pengganti tidak harus sama dan serupa. Kita bisa menemukan hal baru pada orang lain. Seperti sebelumnya, tidak harus sama dan serupa. Termasuk juga status hubungan yang berbeda.

Alihkan perhatian
Alihkan perhatian pada hal lain. Hal lain yang bisa meredakan rasa sakit atau emosi apapun karena kehilangan seseorang. Bisa dengan hal yang menyenangkan, namun tidak merusak diri sendiri atau mengganggu orang lain.

Berdoa
Berdoa sesuai dengan keadaan masing-masing. Meminta untuk diberi kesabaran dan jalan keluar terbaik dalam hidup ini. Setelah itu, tinggal berusaha untuk mencari dan menjadi yang lebih baik.

Rasa kehilangan pasti akan dialami semua orang. Dan di Luar sana masih banyak yang melebihi kita. Itu hanya cobaan kecil, suatu saat akan ada cobaan yang lebih besar. Kita tidak bisa lari atau menghindar, hanya bisa mempersiapkan saja.

Kata-kata Kangen

Aku kangen, saat kau bilang kau juga sayang sama ku,

Aku kangen, saat kau menatapku dengan serius,

Aku kangen, saat aku bisa bicara banyak denganmu, walaupun pembicaraan itu tidak penting tapi aku bahagia ada disampingmu,

Aku kangen, saat kau bercerita tentang apapun,

Aku kangen, lihat sikapmu saat bersamaku,

Aku kangen, saat kau ngusilin aku,

Aku kangen, saat tertawa, becanda barengmu,

Aku kangen, lihat kau marah, Aku kangen, perhatianmu padaku,

Aku kangen, dengar nasehat darimu,

Aku kangen, saat aku menangis kau slalu hapuskan air mata ini,

Aku kangen, saat kau bisa meyakinkan aku jika aku ragu akan hidupku,

Aku kangen, saat kau memegang kedua tangan ini,

Aku kangen, kau memeluk erat tubuh ini,

Aku kangen, saat aku menangis dipelukkanmu,

Aku kangen, kata selamat malam, mimpi indah dari mu,

Aku kangen, saat” bersama mu,

Aku merindukan, kasihsayangmu,

Masih Terasa saja kau ada didekatku saat ini,

Aku merindukan semua itu 

TUGAS METODE KRIPTOGRAFI

Tampilan Menu Awal:

Syntax nya: 

 PublicClass Form1

PrivateSub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

End

EndSub

PrivateSub CaesarChToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChToolStripMenuItem.Click

        caesar_chiper.Show()

EndSub

PrivateSub VernamChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernamChiperToolStripMenuItem.Click

        vernam_chiper.Show()

EndSub

PrivateSub VigenereChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenereChiperToolStripMenuItem.Click

        vigenere_chiper.Show()

EndSub

PrivateSub DesChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutoKeyChiperToolStripMenuItem.Click

        autokey_chiper.Show()

EndSub

PrivateSub GronsfeldChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldChiperToolStripMenuItem.Click

        Des_chiper.Show()

EndSub

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

EndSub

EndClass.

Tampilan Menu  Autokey_chiper :

Syntax nya :

PublicClass autokey_chiper

PrivateSub autokey_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

EndSub

PrivateFunction AutokeyEncipher(ByVal strPlaintext AsString, ByRef strKey AsString) AsString

Dim i AsLong

Dim j AsLong

Dim c1 AsInteger

Dim strPlaintext2 AsString

Dim strKey2 AsString

Dim strCiphertext AsString

Dim strCiphertext2 AsString

Dim diffKeyLen AsInteger

Dim pAlphabet AsInteger

Dim cAlphabet AsInteger

Dim nShift AsInteger

'1. Hilangkan semua karakter yang bukan alfabet dari strPlaintext

' dan simpan sebagai strPlaintext2

        strPlaintext2 = ""

For i = 1 To strPlaintext.Length

            c1 = Asc(Mid(strPlaintext, i, 1))

If (c1 >= 65 And c1 <= 90) Then

                strPlaintext2 = strPlaintext2 & Chr(c1)

EndIf

Next i

'2. Hilangkan semua karakter yang bukan alfabet dari strKey

' dan simpan sebagai strKey2

        strKey2 = ""

For i = 1 To strKey.Length

            c1 = Asc(Mid(strKey, i, 1))

If (c1 >= 65 And c1 <= 90) Then

                strKey2 = strKey2 & Chr(c1)

EndIf

Next i

'3. Susun kunci baru strKey2 berdasarkan kunci awal strKey kemudian

' ditambah plaintext

'perbedaan antara panjang plaintext dan kunci

        diffKeyLen = strPlaintext2.Length - strKey2.Length

For i = 1 To diffKeyLen

'c1 = Asc(Mid(strPlaintext2, i, 1))

            strKey2 = strKey2 & Mid(strPlaintext2, i, 1)

Next i

'4. Geser masing-masing huruf pada plaintext

' dengan huruf yang terkait pada key

        strCiphertext = ""

For i = 1 To strPlaintext2.Length

            c1 = Asc(Mid$(strPlaintext2, i, 1))

            nShift = Asc(Mid$(strKey2, i, 1)) - 65

If ((c1 >= 65) And (c1 <= 90)) Then

                pAlphabet = c1 - 65 ' get the alphabet sequence

                cAlphabet = (pAlphabet + nShift) Mod 26 ' shifted alphabet

                c1 = cAlphabet + 65 ' get character in 65 ... 90

EndIf

            strCiphertext = strCiphertext & Chr(c1)

Next i

'5. Susun strCiphertext sesuai dengan urutan strPlaintext

        strCiphertext2 = ""

        strKey = ""

        j = 1

For i = 1 To strPlaintext.Length

            c1 = Asc(Mid$(strPlaintext, i, 1))

If ((c1 >= 65) And (c1 <= 90)) Then

                strCiphertext2 = strCiphertext2 & Mid(strCiphertext, j, 1)

                strKey = strKey & Mid(strKey2, j, 1)

                j = j + 1

Else

                strCiphertext2 = strCiphertext2 & Chr(c1)

                strKey = strKey &" "

EndIf

Next i

Return strCiphertext2

EndFunction

PrivateSub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

EndSub

PrivateSub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Encipher.Click

        chipertext.Text = AutokeyEncipher(plaintext.Text, kunci.Text)

EndSub

PrivateSub plaintext_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plaintext.TextChanged

EndSub

EndClass.

Tampilan Menu Caesar_chiper :

 Syntax nya:

PublicClass caesar_chiper

PrivateSub caesar_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        plaintext.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click

Dim jumlah AsDouble = Len(plaintext.Text)

Dim x AsString

Dim xkalimat AsString = ""

Dim i AsDouble

Dim bil AsInteger

For i = 1 To jumlah

            x = Mid(plaintext.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

Next i

        chipertext.Text = xkalimat

EndSub

PrivateSub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        plaintext.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End

EndSub

PrivateSub btnkeluar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

EndSub

EndClass

 

Tampilan Menu  Des_chiper :

Syntax nya :

PublicClass Des_chiper

PrivateSub Des_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        plain.Text = ""

        chip.Text = ""

EndSub

PrivateSub deskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deskripsi.Click

Dim x AsString = ""

Dim xkalimat AsString = ""

For i = 1 To Len(chip.Text)

            x = Mid(chip.Text, i, i)

            x = Chr(Asc(x) - 3)

            xkalimat = xkalimat + x

Next

        plain.Text = xkalimat

EndSub

PrivateSub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        plain.Text = ""

        chip.Text = ""

EndSub

PrivateSub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

Me.Close()

EndSub

EndClass.

Tampilan Menu Vernam_chiper :

Syntax nya:

PublicClass vernam_chiper

PrivateSub vernam_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click

Dim j AsInteger

Dim jum AsInteger

Dim sKey AsString

Dim nKata AsInteger

Dim nKunci AsInteger

Dim sKata AsString

Dim sPlain AsString = ""

Dim nEnc AsInteger

        j = 0

        sKata = plaintext.Text

        jum = Len(sKata)

        sKey = kunci.Text

For i = 1 To jum

If j = Len(sKey) Then

                j = 1

Else

                j = j + 1

EndIf

            nKata = Asc(Mid(sKata, i, 1)) - 65

            nKunci = Asc(Mid(sKey, j, 1)) - 65

            nEnc = ((nKata + nKunci) Mod 26)

            sPlain = sPlain & Chr((nEnc) + 65)

Next i

        chipertext.Text = sPlain

EndSub

PrivateSub plaintext_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plaintext.KeyPress

        e.KeyChar = UCase(e.KeyChar)

Dim tombol AsInteger = Asc(e.KeyChar)

IfNot (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

EndIf

EndSub

PrivateSub kunci_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

Dim tombol AsInteger = Asc(e.KeyChar)

IfNot (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

EndIf

EndSub

PrivateSub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

EndSub

PrivateSub kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged

EndSub

EndClass.

Tampilan Menu Vigenere_chiper :

Syntax nya :

PublicClass vigenere_chiper

PrivateSub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click

        chipertext.Text = Enkripsi(plaintext.Text, kunci.Text)

EndSub

Function Enkripsi(ByVal Teks AsString, ByVal Kunci AsString) AsString

Dim j AsInteger

Dim jum AsInteger

Dim sKey AsString

Dim nKata AsInteger

Dim nKunci AsInteger

Dim sKata AsString

Dim sPlain AsString

Dim nEnc AsInteger

        j = 0

        jum = Len(Teks)

        sPlain = ""

        sKey = Kunci

        sKata = Teks

For i = 1 To jum

If j = Len(sKey) Then

                j = 1

Else

                j = j + 1

EndIf

            nKata = Asc(Mid(sKata, i, 1))

            nKunci = Asc(Mid(sKey, j, 1))

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

Next i

        Enkripsi = sPlain

EndFunction

PrivateSub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

EndSub

PrivateSub vigenere_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

EndSub

EndClass.