IT

اسلام عليكم ورحمة الله وبركا ته
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

bagi yang lg gelisah,,,
pengen hati tenang,,,
download disini aja

Untuk para teman2 ataupun senior2 apalagi yang sedang menyusun laporan ataupun mungkin tugas dikampus yang berbentuk file word khususnya sangat akan menjaga file2 mereka agar tidak terkena virus ataupun terhapus dan alangkah pusingnya tujuh keliling (minum aja obat pusing susah amat hehe :D) dan stresssss berat jika file2nya gak ada ataupun hilang entah kemana…
Klo perlu thu file disimpan ditempat yang sebisa mungkin orang lain g bisa menjangkaunya seperti di Bawah Tempat tidur ataupun di WC….
lho emank bisa ya di WC???
YA bisa lah Bawa aja Komputernya ke WC hehehehehehehe :-D
Sowry just kid

Nah makin maraknya virus yang beredar ataupun teman yang sengaja Jail ataupun sakit hati napa s(“kacian mank napa sakit hati ????”) yang pengen banget melihat kehancuran kita (wouw ampe segitunya yah!!!!) yang akan menghapus file2 kita terutama tugas dan laporan kita yang akan segera dikumpul ataupun kejar tayang (“Sinetron Kaleeee hehehe :-D”)

Ni saya punya sedikit Trik khusus untuk melindungi File2 tersebut
Namun sebelum melangkah terlebih jauh bagi teman2 yang merasa udah tau Atau gak mau tau mending gak usah dibaca aja dari pada menghabiskan waktu, Tenaga dan biaya
(‘Mank bayar yah hehehe :-D’)
Gimana????
Klo si ngotot ya udah tanggung ndiri akibatnya yah :D
LANJUT -----------
ADa beberapa cara yang dapat kita gunakan salah satunya dengan menggunakan visual basic 06
Jadi u’ anak Teknik Gimana Donk???kan gak belajar VB…..
Tenang bro ini bisa anda transper ke Delphi kok atau kalau mau nyoba2 pake VB yah gak apa2 soalnya Kode2nya mudah dipahami dan dimengerti kok gimana pilih yang mana??
Catatan:
Kalo mau transper ke Delphi Tanyakan Ma Orang Yang berkompeten soalnya saya cuman taunya VB hehehe :-D kasian yah???

Gini logikanya. Kita akan membuka file tersebut tanpa menutupnya
ekh entar ada yang masuk gimana dong???’
ya salah sendiri kenapa dibiarkan terbuka hehehe :-D

Komponen2 yang dibutuhkan untuk program kita kali ini yaitu
Satu buah TextBox dan CommandButton (“ditambah Cemilan dan tentunya segelas SUSU hangat ……huuuu nyamanna :-D “)
Tampilan sederhananya seperti ini




Ni dia Kodenya
0);">‘---------------cut disini---------------------
Private Sub Command1_Click()
‘pelindung file menggunakan visual basic 06
On Error GoTo salah
If Command1.Caption = "&Kunci" Then
Open Text1.Text For Input As 1
Command1.Caption = "&Buka"
Else
Close #1
Command1.Caption = "&Kunci"
End If
Exit Sub

salah:
MsgBox "Errorki pasti slhki letak filex ato g'adaki", vbInformation
End Sub
‘-----------End The Code bro---------------




Gimana mudahkan para Newbie aja pasti tau kok,,,kayak saya ini (masih newbie banget) J!!!!!!!!
Atau Masih mau dijelaskan yah???????? Wah pekerjaan baru ni hehe
Ya udah ni saya akan jelaskan baris perbaris bro kan saya orangnya baik (baik digebukin maksudnya hehehe :-D)

‘---------------cut disini---------------------
Masa gak tau sih tuh cuman komentar doank

Private Sub Command1_Click()
Nih event Command1 pada saat diklik

‘pelindung file menggunakan visual basic 06
Kalo gak tau kode diatas waduh kebangetan lho sob… biasa just COment

On Error GoTo salah
Ni loncatan ke variabel salah:
jika letak filenya, filenya gak ada ataupun terjadi error atau kesalahan

If Command1.Caption = "&Kunci" Then
Jika command1 captionnya bernama Kunci maka
Open Text1.Text For Input As 1
Buka letak filenya yang ada pada textbox untuk diInput Kalo Output itu untuk membuat file…ngerti jeki tho kalo tidak,, Tanya aja ma Orangnya :-)
Command1.Caption = "&Buka"
Caption pada Command1 berubah menjadi Buka
Else ‘selain itu
maksudnya jika captionnya Buka maka yang dikerjakan perintah dibawah ini
Close #1
Taukan close??? Menutup filenya artinya gak terproteksi lagi
Command1.Caption = "&Kunci"
Captionnya berubah lagi menjadi Kunci
End If
Pengakhiran kondisi
Exit Sub
Keluar dari sub

salah:
MsgBox "Errorki pasti slhki letak filex ato g'adaki", vbInformation
Ni dia loncatan jika terjadi kesalahan akan memunculkan pesan
“Errorki pasti slhki letak filex ato g'adaki”
End Sub
Ending dari Sub

Trus gimana dong cara pakainya????
----Gini bro----
Jadikan dulu file .exe kemudian jalankan atau bisa langsung dicoba kok

masukkan letak filenya ke Textbox
Kemudian tekan tombol Kunci berubahlah caption commandnya menjadi Buka




trus cobalah menghapus file yang bernama Tugasku.doc yang ada di Drive D: maka akan muncul pesan seperti ini


Gono aja bro inipun gak bisa di Rename ataupun di Utak-atik sebelum programnya dimatikan dan ini pulah lah yang terjadi jika kita mau menghapus file2 penampakan ataupun file2 virus maka kita akan mendapati pesan seperti itu…ini karenakan masih ada programnya yang jalan….
Nah agar form kita gak kelihatan alias ngumpet (atau lebih kerennya disebut run in the background) tambahkan listing kode dibawah ini lalu compile menjadi file .exe
Me.visible = False
Jadi listing keseluruhannya yaitu

‘---------------cut disini---------------------
Private Sub Command1_Click()
‘pelindung file menggunakan visual basic 06
On Error GoTo salah
If Command1.Caption = "&Kunci" Then
Open Text1.Text For Input As 1
Command1.Caption = "&Buka"
Else
Close #1
Command1.Caption = "&Kunci"
End If
Me.Visible = False
Exit Sub

salah:
MsgBox "Errorki pasti slhki letak filex ato g'adaki", vbInformation
End Sub
‘-----------End The Code bro---------------

Interupsi gimana cara mencompilenya jelaskan donk!!!
Waduh mank gak tahu yaH!!! Usaha donk ;-)
Yah udah caranya gini…….masuk ke Menu File trus Klik Make pkuncifile.exe

Jadi setiap anda menjalankan program ini dan mengunci file anda, maka form ini akan menghilang
‘’’loh menghilang kemana???
Tenang2 gak usah bingung, seperti yang telah dijelaskan diatas bahwa program ini berjalan dibelakang panggung tujuannya agar formnya gak kelihatan ma orang gitu bro
Ooooo gitu yah!!!
Ya iyalah masa ya iya donk hehehe …Minjem istilah dikit gak apa2 kan :-D
Anda pun bisa menambahkan ataupun mengembangkan program ini dan ini tidak terpaku cuman file document aja bisa juga file lainnya seperti *.txt, *.jpg, *.bmp, dan lain2 pokoknya semua file deh sob
Sekian tutorial dan Artikel dari saya………
See You Again in the other World
‘’’’mank mau mati yah hingga mau berjumpa kedunia lain?????
Ya iyalah masa ya….. kita semua akan mati bro jadi selama saya masih hidup…….akh udah akh terlalu dramatis hehehe ;-D

Yah dah Thank’s bwt:
Para Dosen Tentunya yang selama ini membimbing kita dan Tak pernah mengenal kata menyerah untuk membagi ilmunya pada Mahasiswa2nya walaupun kadang Mahasiswanya Bandel2 tapi Para Dosen Tercinta Sangat SABAR dalam mendidik kami
Semoga Kerja Keras Anda mendapatkan Kebaikan dan balasan yang lebih bagus dan saya mengucapkan “JAZAKUMULLOH KHOIRON”

N anak2 MI_32 semangat trus belajarnya bro ampe titik darah penghabisan
Kayak mau bertempur aja!!!
Ya iyalah masa ya ……lanjutin aja sendiri
Kita disini bayar bro gak gratis okey sob
N buat anak2 EKSTRA KOKURIKULER KEROHANIAN maju terus bro tegakkan Islam dalam dirimu dan teman2mu
Dan Special Thank’s untuk orang yang Ngeprint artikel Ini ,,,Jazakilloh Khoiron
Hehehe ketauan deh Miskin banget yah hehehe :-D
N kepada Teman2 yang merelakan waktunya sedikit untuk membaca tulisan ini dan saya ucapkan “Jazakumulloh Khoiron”

Na kalo teman2 mau nanya2 ataupun sharing dengan saya yah udah Cari aja diKelas MI_32 yang paling hehehehe entar dikira ke PD-an lagi
Maksudnya paling,,,,,,,,,,,,,,terserah kamulah maunya apa hehehe :-D
Atau masuk aja ke EKSTRA KOKURIKULER KEROHANIAN MUSLIM dijamin bakalan dapat ilmu baaaaaaaaaaanyaaaaaaaaak buuuuuuuaaanget deh…disamping ilmu dunia kita juga akan mendapatkan ilmu untuk Akhirat
GImana????
Dunianya lancar Akhiratnya Pun Ikut lancar
Wassalamualaikum wr. wb