duh dah lama y ngga nongkrong d blog, ups nongkrong maksudnya bikin post baru lagi,hehehe. tanpa banyak ba bi bu lagi neh gw kasih sejarah VB y dari mule VB turbo mpe VB.net di ambil dari artikel orang gw ngga taw sapa namanya yang pasti blognya tuh klo ngga salah pondokindah wordpress buat yang mpunya artikel klo ngga gw masukin namanya sry y abis gw ngga taw nama lw... ok artikel sebagai berikut

Evolusi Visual Basic VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD,. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby. Berikut Perjalanan Visual Basic (VB 1.0 Sampai VB 10) :

Perjalanan dari Visual Basic (VB1 to VB 10)

1. Proyek “Thunder” dirintis
2. Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia
3. Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992. Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System
   
4. Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4
5. Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau Access) 1.x
6. Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic
7. Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5 memperkenalakan kemampuan untuk membuat User Control.
8. Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008
9. Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.
10. Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
11. Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya :
    1. Edit and Continue , mungkin inilah kekurangan fitur terbesar dari VB .NET . pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan
    2. Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
12. IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y menjadi If X IsNot Y
13. Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft
14. Visual Basic “Orcas” (VB 9.0) , dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya :
    - True Tenary operator , yaitu fungsi If(boolean,value, value) yg digunakan untuk menggantikan fungsi IIF
    - LINQ Support
    - Ekspresi Lambda
    - XML Literals
    - Nullable types
    - Type Inference
15. Visual Basic ‘VBx’ (VB 10.0) , Visual Basic 10, yang juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari SilverLight 1.1

Salam Vibeker Di Seluruh Jagat Raya, Oh ia neh dah lama ya ngga corat-coret ech maksudnya ngepost.hehehe post gw kali ini menceritakan tentang encrypt bagian ke - 2 apabila encrypt bagian 1 ngga pada mengerti ini ulasan yang lebih detailnya, gw ambil dari Wikipedia artikel nya sebagai berikut :

Di bidang kriptografi, enkripsi ialah proses mengamankan suatu informasi dengan membuat informasi tersebut tidak dapat dibaca tanpa bantuan pengetahuan khusus. Dikarenakan enkripsi telah digunakan untuk mengamankan komunikasi di berbagai negara, hanya organisasi-organisasi tertentu dan individu yang memiliki kepentingan yang sangat mendesak akan kerahasiaan yang menggunakan enkripsi. Di pertengahan tahun 1970-an, enkripsi kuat dimanfaatkan untuk pengamanan oleh sekretariat agen pemerintah Amerika Serikat pada domain publik, dan saat ini enkripsi telah digunakan pada sistem secara luas, seperti Internet e-commerce, jaringan Telepon bergerak dan ATM pada bank.

Enkripsi

Di bidang kriptografi, enkripsi ialah proses mengamankan suatu informasi dengan membuat informasi tersebut tidak dapat dibaca tanpa bantuan pengetahuan khusus. Dikarenakan enkripsi telah digunakan untuk mengamankan komunikasi di berbagai negara, hanya organisasi-organisasi tertentu dan individu yang memiliki kepentingan yang sangat mendesak akan kerahasiaan yang menggunakan enkripsi. Di pertengahan tahun 1970-an, enkripsi kuat dimanfaatkan untuk pengamanan oleh sekretariat agen pemerintah Amerika Serikat pada domain publik, dan saat ini enkripsi telah digunakan pada sistem secara luas, seperti Internet e-commerce, jaringan Telepon bergerak dan ATM pada bank.

Enkripsi dapat digunakan untuk tujuan keamanan, tetapi teknik lain masih diperlukan untuk membuat komunikasi yang aman, terutama untuk memastikan integritas dan autentikasi dari sebuah pesan. Contohnya, Message Authentication Code (MAC) atau digital signature. Penggunaan yang lain yaitu untuk melindungi dari analisis jaringan komputer.

Ciphers

Sebuah cipher adalah sebuah algoritma untuk menampilkan enkripsi dan kebalikannya dekripsi, serangkaian langkah yang terdefinisi yang diikuti sebagai prosedur. Alternatif lain ialah encipherment. Informasi yang asli disebuh sebagai plaintext, dan bentuk yang sudah dienkripsi disebut sebagai chiphertext. Pesan chipertext berisi seluruh informasi dari pesan plaintext, tetapi tidak dalam format yang didapat dibaca manusia ataupun komputer tanpa menggunakan mekasnisme yang tepat untuk melakukan dekripsi.

Cipher pada biasanya memiliki parameter dari sebagian dari informasi utama, disebut sebagai kunci. Prosedur enkripsi sangat bervariasi tergantung pada kunci yang akan mengubah rincian dari operasi algoritma. Tanpa menggunakan kunci, chiper tidak dapat digunakan untuk dienkirpsi ataupun didekripsi.

Cipher versus code

Pada penggunaan non teknis, sebuah secret code merupakan hal yang sama dengan cipher. Berdasar pada diskusi secara teknis, bagaimanapun juga, code dan cipher dijelaskan dengan dua konsep. Code bekerja pada tingkat pemahaman, yaitu, kata atau frasa diubah menjadi sesuatu yang lain. Cipher, dilain pihak, bekerja pada tingkat yang lebih rendah, yaitu, pada tingkat masing-masing huruf, sekelompok huruf, pada skema yang modern, pada tiap-tiap bit. Beberapa sistem menggunakan baik code dan cipher dalam sistem yang sama, menggunakan superencipherment untuk meningkatkan keamanan.

Menurut sejarahnya, kriptografi dipisah menjadi dikotomi code dan cipher, dan penggunaan code memiliki terminologi sendiri, hal yang sama pun juga terjadi pada cipher: “encoding, codetext, decoding” dan lain sebagainya. Bagaimanapun juga, code memiliki berbagai macam cara untuk dikembalikan, termasuk kerapuhan terhadap kriptoanalisis dan kesulitan untuk mengatur daftar kode yang susah. Oleh karena itu, code tidak lagi digunakan pada kriptografi modern, dan cipher menjadi teknik yang lebih dominan.

Tipe-tipe cipher

ADa banyak sekali variasi pada tipe enkripsi yang berbeda. Algoritma yang digunakan pada awal sejarah kriptografi sudah sangat berbeda dengan metode modern, dan cipher modern dan diklasifikasikan berdasar pada bagaimana cipher tersebut beroperasi dan cipher tersebut menggunakan sebuah atau dua buah kunci.

Sejarah Cipher pena dan kertas pada waktu lampau sering disebut sebagai cipher klasik. Cipher klasik termasuk juga cipher pengganti dan cipher transposisi. Pada awal abad 20, mesin-mesin yang lebih mutakhir digunakan untuk kepentingan enkripsi, mesin rotor, merupkan skema awal yang lebih kompleks.

Metode enkripsi dibagi menjadi algoritma symmetric key dan algoritma asymmetric key. pada algoritma symmetric key (misalkan, DES dan AES), pengirim dan penerima harus memiliki kunci yang digunakan bersama dan dijaga kerahasiaanya. Pengirim menggunkan kunci ini untuk enkripsi dan penerima menggunakan kunci yang sama untuk dekripsi. Pada algoritma asymmetric key (misalkan, RSA), terdapat dua kunci terpisah, sebuah public key diterbitkan dan membolehkan siapapun pengirimnya untuk melakukan enkripsi, sedangkan sebuah private key dijaga kerahasiannya oleh penerima dan digunakan untuk melakukan dekripsi.

Cipher symmetric key dapat dibedakan dalam dua tipe, tergantung pada bagaimana cipher tersebut bekerja pada blok simbol pada ukuran yang tetap (block ciphers), atau pada aliran simbol terus-menerus (stream ciphers).

Dari Wikipedia Indonesia, ensiklopedia bebas berbahasa Indonesia

'Deskripsi: Mengencrypt/decrypt suatu file teks menjadi file teks yang
'           lainnya dengan menggunakan password.
'Pembuat  : Masino Sinaga (admin@masinosinaga.com)
'Diupload : Rabu, 22 Mei 2002
'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 1 RichTextBox.
'           2. Beri nama RichTextBox dengan "rtfEncDec".
'           3. Copy-kan coding berikut ke dalam editor form ybt.
'---------------------------------------------------------------------

'Pada contoh ini, nama file default telah tersedia ketika
'kotak dialog InputBox ditampilkan. Klik saja OK tanpa
'mengganti nama file yang telah terisi di InputBox tersebut.
'Untuk mencoba ulang, hapus file Masino.txt, Masino1.txt,
'dan file Sinaga.txt yang terbentuk di direktori program ini...

Sub FileEncodeAndDecode(InputFile As String, _
                       OutputFile As String, _
                       PasswordKey As String)
   Dim temp As Single
   Dim Char As String * 1
   Dim XORMask As Single
   Dim temp1 As Integer
   Open InputFile For Binary As #1
   Open OutputFile For Binary As #2
   For x = 1 To Len(PasswordKey)
       temp = Asc(Mid$(PasswordKey, x, 1))
       For y = 1 To temp
           temp1 = Rnd
       Next y
       Randomize temp1
   Next x
   Counter = 0
   For z = 1 To FileLen(InputFile)
       XORMask = Int(Rnd * 256)
       Get 1, , Char
       Char = Chr$((Asc(Char) Xor XORMask))
       Put 2, , Char
       Counter = Counter + 1
       If Counter > Len(PasswordKey) Then Counter = 1
       For x = 1 To (Asc(Mid$(PasswordKey, Counter, 1)) * 2)
           temp = Rnd
       Next x
   Next z
   Close #1
   Close #2
   'Tampilkan hasilnya ke rtfEncDec...
   Open OutputFile For Binary As #3
      rtfEncDec.Text = Input(LOF(3), 3)
   Close #3
End Sub

Private Sub Command1_Click()
Dim InputFile As String
   Dim OutputFile As String
   Dim PasswordKey As String
   On Error GoTo Pesan
   'Jika file Masino.txt sudah ada dan file Sinaga.txt belum
   If Dir(App.Path & "\Masino.txt") <> "" And _
      Dir(App.Path & "\Sinaga.txt") = "" Then
      InputFile = InputBox("Masukkan nama file yang akan " & _
                        "di-encrypt/decrypt:", _
                        "File Sumber", "Masino.txt")
      If StrPtr(InputFile) = 0 Or InputFile = "" Then Exit Sub
   'Jika file Masino.txt dan Sinaga.txt sudah ada
   ElseIf Dir(App.Path & "\Masino.txt") <> "" And _
      Dir(App.Path & "\Sinaga.txt") <> "" Then
      InputFile = InputBox("Masukkan nama file yang akan " & _
                        "di-encrypt/decrypt:", _
                        "File Sumber", "Sinaga.txt")
      If StrPtr(InputFile) = 0 Or InputFile = "" Then Exit Sub
   End If
   Open App.Path & "\" & InputFile For Binary As #1
      rtfEncDec.Text = Input(LOF(1), 1)
   Close #1
  
   'Jika file Masino.txt sudah ada dan file Sinaga.txt belum
   If Dir(App.Path & "\Masino.txt") <> "" And _
      Dir(App.Path & "\Sinaga.txt") = "" Then
      OutputFile = InputBox("Masukkan nama file hasil " & _
                         "encrypt/decrypt: ", _
                         "File Tujuan", "Sinaga.txt")
      If StrPtr(OutputFile) = 0 Or OutputFile = "" Then Exit Sub
   'Jika file Masino.txt dan Sinaga.txt sudah ada
   ElseIf Dir(App.Path & "\Masino.txt") <> "" And _
      Dir(App.Path & "\Sinaga.txt") <> "" Then
      OutputFile = InputBox("Masukkan nama file hasil " & _
                         "encrypt/decrypt: ", _
                         "File Tujuan", "Masino1.txt")
      If StrPtr(OutputFile) = 0 Or OutputFile = "" Then Exit Sub
   End If
  
   PasswordKey = InputBox("Masukkan password:", _
                          "Password", "masinosinaga")
  
   Call FileEncodeAndDecode(App.Path & "\" & InputFile, _
                            App.Path & "\" & OutputFile, _
                            PasswordKey)
  
   MsgBox "Berhasil di-encrypt/decrypt ke " & OutputFile, _
          vbInformation, "Encrypt/Decrypt OK"
  
   End
   Exit Sub
Pesan:
   MsgBox Err.Number & " - " & Err.Description


End Sub

Private Sub Form_Load()
 BuatFileTeks  'Buat file teks pada permulaan aplikasi ini
 rtfEncDec.RightMargin = rtfEncDec.Width + 500
End Sub

Sub BuatFileTeks()
 Open App.Path & "\Masino.txt" For Output As #1
      Print #1, "Testing membuat file teks..."
      Print #1, "Isinya akan digunakan untuk encode/decode"
      Print #1, "-----------------------------------------"
      Print #1, "Masino Sinaga"
      Print #1, "Asrama Melati 219 Puslatpos"
      Print #1, "Jalan Terusan Sari Asih 54 Bandung 40151"
 Close #1
End Sub

Zaman dulu, hacker identik dengan pecandu komputer yang suka begadang sampai pagi, coba berbagai cara untuk mencari kelemahan keamanan sebuah sistem. Stereotipe ini mungkin akan jadi karakter di film saja karena untuk menembus lubang keamanan, cukup sedia beberapa ratus dolar saja.

Anda tidak perlu belajar bertahun-tahun tentang TCP/IP, server side scripting atau cara kerja jaringan untuk melakukan infeksi terhadap komputer seeseorang. Cukup sediakan $700 dan beli satu skrip bernama Mpack, maka semua tugas itu akan dilakukannya. Bayangkan, bulan juni lalu 80,000 website dikerjain oleh kode-kode yang berhubungan dengan Mpack. Dalam satu serangan. Dan tentu, tidak diperlukan keahlian teknis untuk mengoperasikannya. Anda cukup tahu di mana membelinya.

Program ini juga menawarkan update secara regular, guna mengetahui kebocoran-kebocoran program yang terbaru. Menurut Paul Henry dari Secure Computing, jumlah perangkat hacking yang didownload meningkat hingga lebih dari 68,000 download. Program-program seperti Mpack, Shark2, Nuclear, Web Attacker dan IcePack dapat dibeli, sehingga memberi fasilitas kepada siapa saja yang membutuhkan. Anak-anak, jangan mencoba ini di rumah!

Bagaimana mengamankan situs web Anda dari Mpack? Meskipun beberapa perusahaan antivirus sedang bekerja keras untuk riset kelakuan Mpack ini, tapi tentu pembuatnya juga melakukan riset untuk mencari cara yang lain. Berikut beberapa tips sederhana untuk mengurangi resiko Mpack.

• Mpack dapat menjalankan exploitnya jika Anda belum melakukan update (patch), jadi pastikan program Anda memperoleh upgrade keamanan secara reguler.
• Sebagian besar aplikasi akan melakukan update secara otomatis jika Anda mengijinkannya. Pastikan ini semua berjalan.
• Ganti secara reguler password Anda. Hindari menginstal aplikasi web pada folder default, dan tentu saja, update aplikasi Anda dengan versi terakhir.
• Coba layanan yang melaporkan jika ada perubahan terhadap website Anda (seperti changenotes.com). Kalau sempat, cek rutin setiap hari jika ada trafik yang berlebihan di web Anda.

Kredit foto: m.1asphost.com

Sumber Artikel By : net scain.com