Membuat Program Scanning File

Proses scanning pada file biasanya digunakan untuk menditeksi suatu file apakah file tersebut merupakan file yang berbahaya atau tidak, metode ini juga bisa dikembangkan sebagai algoritma sederhana dalam melakukan penditeksian file yang berbahaya bagi komputer berdasarkan "hash" suatu file.
ok langsung ke tkp :
Pertama-tama jalankan program vb.net lalu create new project.
kemudian tampil form1 tambahkan 1 buah button, 1 label.
pada koding diatas public class form1 masukan kode berikut ini :


Imports System
Imports System.IO
Imports System.Security.Cryptography
Imports System.IO.FileStream
Imports System.Text

kemudian double click pada button 1 yang tadi telah ditambahkan dan masukan kode sebagai berikut :


Dim ArrayHold() As Byte
        Dim Index As Integer = 0
        Dim Str As New StringBuilder
        Dim tStr As String = ""
        Dim tempStr As String = ""
        Dim IndexEnd As Integer = 0
        Dim InputString As String = ""

' untuk membuka file/memilih file 

        OpenDia.Filter = "All Files|*.*"
        If OpenDia.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim myStreamReader As StreamReader = Nothing
            myStreamReader = File.OpenText(OpenDia.FileName)
            InputString = myStreamReader.ReadToEnd()
            ArrayHold = Encoding.Default.GetBytes(InputString)


'Proses Scanning pada file yang telah dipilih..
            Do
                IndexEnd = Index + 9
                For x As Integer = Index To IndexEnd
                    If x > UBound(ArrayHold) Then
                        tempStr = tempStr
                    Else
                        tStr = UCase(Convert.ToString(ArrayHold(x), 16))
                        If tStr.Length < 2 Then tStr = "0" & tStr
                        Str.Append(tStr)
                        tempStr = tempStr & Chr(ArrayHold(x))
                    End If
                Next
                Index = Index + 10
            Loop While IndexEnd < UBound(ArrayHold)

'mencocokan kode hash suatu file

            If InStr(1, Str.ToString, "58354f2150254041505b345c505a58353428505e2937434329377d2445494341522d5354414e4441", vbTextCompare) Then
                Label1.Text = "Eicar-test-signature virus Detected!"
            End If
        End If

proses diatas digunakan untuk menditeksi suatu file dengan kode hash 58354f2150254041505b345c505a58353428505e2937434329377d2445494341522d5354414e4441

dengan kata lain apabila file yang discan kode hashnya sama dengan kode hash yang terditeksi maka file tersebut akan dinyatakan sebagai virus .

semoga bermanfaat..:)

Disable Autorun

Berikut ini adalah cara untuk mendisable autorun yang terdapat pada OS anda menggunakan VB.Net..
ketikan koding seperti dibawah ini :


    Public Sub Disableautorun(ByVal State As Integer) 'buat key di regedit
        On Error Resume Next
        Dim o As Object
        o = CreateObject("wscript.shell")
                         o.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun", CInt(State), "REG_DWORD")

    End Sub

lalu ketikan koding berikut ini pada form_load

disableautorun(255)

note :
nilai 255 dikonfersi ke heksadesimal = FF,
untuk mengaktifkan kembali autorun pada os windows anda ubah nilai 255 tersebut menjadi 0.

Perintah dasar SQL

Untuk membuat sebuah aplikasi yang menggunakan database, ada beberapa perintah dasar sql yang harus dan penting untuk di ketahui. Diantaranya "select","insert","update", dan "delete". sedangkan perintah lainnya seperti "create","drop","alter" sangat jarang digunakan langsung dalam proses penulisan koding program aplikasi.

penggunaan perintah select biasanya digunakan untuk menampilkan atau menyeksi data yang terdapat dalam tabel tertentu yang berada didatabase, format penulisannya adalah sebagai berikut :

==========================================================================

   select * from namatabel 

   select namafield1,namafield2, from namatabel

   select * from namatabel where namafieldkondisi=kondisi

pada perintah yang pertama data yang ditampilkan adalah semua data field yang terdapat pada tabel, sedangkan perintah kedua menampilkan data berdasarkan field yang ingin ditampilkan saja, adapun pada perintah ke 3 data yang ditampilkan adalah semua data pada tabel yang memenuhi kondisi tersebut.

==========================================================================

selain perintah select terdapat juga perintah insert, perintah ini berfungsi untuk menambahkan data yang akan mengisi suatu tabel tertentu format penulisannya adalah sebagai berikut :

    insert into namatabel values ('data1','data2')

    insert into namatabel values (data1,data2)

pada perintah pertama data1 dialawai dan diakhiri dengan menggunakan tanda petik ( ' ), ini menandakan bahwa data tersebut bertife data string, sedangkan perintah kedua data yang dimasukan memiliki tife data integer ataupun numerik.

==========================================================================

berikutnya adalah perintah update, perintah ini biasanya digunakan untuk mengubah suatu data pada tabel misalnya suatu barang dengan kode xxx pada hari pertama memiliki jumlah stok 20, kemudian pada hari kedua jumlah stok menjadi 10, maka untuk mengubah data tersebut digunakan perintah update. adapun format penulisannya adalah sebagai berikut :

   update namatabel set namafieldyangingindiubah=datapengubah where namafieldkondisi=datafieldkondisi

==========================================================================

dan perintah yang terakhir adalah delete, perintah ini biasanya digunakan untuk menghapus data yang terdapat didalam field tabel, adapun format penulisannya dalah sebagai berikut :

   delete from namatabel where namafieldkondisi=kondisi

==========================================================================

perintah-perintah yang diatas merupakan perintah dasar yang terdapat pada sql yang biasanyan digunakan untuk memanipulasi data, sedangkan perintah perintah lainnya masih banyak lagi.

semoga bermanfaat..:)

Procedure dan Fungsi di VB.Net.

Pada bahasa pemrograman terdapat istilah yang biasa disebut Procedure dan Function, di vb.net sendiri procedure di tulis sebagai "Sub", sedangkan Function ditulis sebagai "Function". Perbedaan antara function dan procedure adalah : kalau function dia akan mengembalikan suatu nilai pada  pemanggilnya, sedangkan kalau procedure dia tidak akan mengembalikan nilai apapun pada fungsi pemanggilnya. untuk jenisnya procedure dan function terbagi menjadi dua macam, yaitu public procedure atau public sub, private procedure atau private sub,  public function dan private function.

contoh procedure pada vb.net adalah sebagai berikut:

============================================

' format penulisan procedure : sub namaprocedure ()

' contoh :

sub penjumlahan()

    dim x as integer, dim y as integer, dim hasil as integer

    hasil=x+y

end sub

============================================

contoh pembuatan function di vb.net

'format penulisan : function namafungsi (parameter as tifedataparameter) as tifedatafungsi

'contoh :

function penjumlahan (x as integer, y as integer) as integer

   dim hasil as integer

   hasil=x+y

   return hasil

end function

maka nilai yang dihasilkan oleh function penjumlahan adalah "hasil".

==============================================

cara pemanggilan sub tidaklah sulit,tinggal kita ketikan nama sub yang akan kita panggil  misalnya untuk memanggil sub yang baru saja kita buat tadi, cukup mengetikan 
=================================================
penjumlahan() 'panggil sub penjumlahan
=================================================
maka otomatis sub penjumlahan akan di eksekusi.
sedangkan untuk memanggil function dibutuhkan variable lain yang memiliki tife data yg sama dengan function misalnya untuk memanggil function yang barusan kita buat tadi kita harus mendeklarasikan variable baru yang nantinya digunakan untuk menampung nilai function tsb ,contoh :
=================================================
dim tampung as integer 'deklarasikan variable tampung


tampung=penjumlahan(text1.text,text2.text) 'panggil function penjumlahan


=================================================

semoga bermanfaat...:)

Pendeklarasian Variable Pada VB.Net 2010

variable adalah sebuah media penyimpanan sementara yang biasanya memiliki tife data tertentu, biasanya variable itu sendiri di deklarasikan pada awal kodi program. variable itu sendiri ada yang bersifat Private atau hanya bisa di akses didalam satu sub atau function saja, dan ada juga yang bersifat Public atau bisa diakses di setiap form yang terdapat pada program.

contoh pendeklarasian variable Private :

========================================================================

sub penjumlahan ()

 dim x as integer

 dim y as integer

 dim hasil as integer

 hasil=x+y

end sub

========================================================================

dari contoh sub diatas terdapat variable x,y, dan hasil... ketiga variable tersebut merupakan variable local atau Private yang hanya bisa di akses pada sub penjumlahan saja, sedangkan untuk membuat variable global atau Public adalah sebagai berikut.

========================================================================

public x as integer

public y as string

========================================================================

variable x dan y yang barusaja di deklarasikan tadi adalah variable yang bersifat global sehingga bisa di akses di semua form yang ada pada program yang akan dibuat.

Semoga bermanfaat..:)