Selasa, 24 Maret 2009
اسلام عليكم ورحمة الله وبركا ته
Encript and Decript
Untuk menenkripsi seperti password atau kode berupa apapun ini ada sedikit source kode yang sangat sederhana tapi bagus juga
Siapkan 2 buah textbox dan 2 buah commandbutton biarkan masing-masing namenya (defaultnya) dan atur kira-kira seperti dibawah ini
Klik 2x pada commandbutton Encript dan masukkan kode dibawah ini
Private Sub Command1_Click()
Dim encript As String
Dim hasil As String
encript = "a"
hasil = Replace(Text1.Text, encript, "#*^@")
Text2.Text = hasil
End Sub
Kemudian klik 2x pada commandbutton Decript dan masukkan kode dibawah ini
Private Sub Command2_Click()
Dim decript As String
Dim hasil As String
decript = "#*^@"
hasil = Replace(Text2.Text, decript, "a")
Text1.Text = hasil
End Sub
Kemudian jalankan dengan menekan tombol F5
Masukkan kata yang memakai “a”(tanpa tanda kutip) contohnya “blognya atin” maka jika anda menklik Encript maka hasil yang didapatkan pada text2 adalah “blogny#*^@ #*^@tin”
Anda pasti sudah tau bagaimana cara kerjanya iyakan?? :-D
Yaitu dengan mengganti huruf “a” menjadi “#*^@”, begitu juga dengan sebaliknya (Decript) apabila kita menkmuliskan kata “#*^@tin” pada text2 maka hasil yang didapatkan pada text1 adalah “atin”. Gimana mudahkan kembangkan aja lebih lanjut
Sumberwww.youtube.com
download programnya
قُلْ اِنَّ صَلاَتِيْ وَنُسُكِيْ وَمَحْيَايَ وَمَماَتِيْ لِلَّهِ رَبِّ الْعَلَمَيْنُ﴿١٦٢﴾
Al An’aam
