Teknik Membuat Enkripsi

Teknik membuat Enkripsi

Code berikut ini cocok untuk dijadikan latihan untuk memdalam kemampuan logika dalam programing Visual Basic.

Membuat function EncDec:

Function EncDec(inData As Variant, Optional inPW As Variant = "") As Variant
On Error Resume Next
Dim arrSBox(0 To 255) As Integer
Dim arrPW(0 To 255) As Integer
Dim Bi As Integer, Bj As Integer
Dim mKey As Integer
Dim i As Integer, j As Integer
Dim x As Integer, y As Integer
Dim mCode As Byte, mCodeSeries As Variant

EncDec = ""
If Trim(inData) = "" Then
Exit Function
End If

If inPW <> "" Then
j = 1
For i = 0 To 255
arrPW(i) = Asc(Mid$(inPW, j, 1))
j = j + 1
If j > Len(inPW) Then
j = 1
End If
Next i
Else
For i = 0 To 255
arrPW(i) = 0
Next i
End If

For i = 0 To 255
arrSBox(i) = i
Next i

j = 0
For i = 0 To 255
j = (arrSBox(i) + arrPW(i)) Mod 256
x = arrSBox(i)
arrSBox(i) = arrSBox(j)
arrSBox(j) = x
Next i

mCodeSeries = ""
Bi = 0: Bj = 0
For i = 1 To Len(inData)
Bi = (Bi + 1) Mod 256
Bj = (Bj + arrSBox(Bi)) Mod 256
' Tukar
x = arrSBox(Bi)
arrSBox(Bi) = arrSBox(Bj)
arrSBox(Bj) = x

'siapkan kunci untuk XOR
mKey = arrSBox((arrSBox(Bi) + arrSBox(Bj)) Mod 256)

'gunakan operasi XOR
mCode = Asc(Mid$(inData, i, 1)) Xor mKey
mCodeSeries = mCodeSeries & Chr(mCode)
Next i
EncDec = mCodeSeries
End Function


Ilmu Visual Basic



lihat belajar asp.net dari nol

Postingan populer dari blog ini

vb6 msflexgrid

Gambar
         One of the control or component in program Visual Basic 6.0 is vb6 msflexgrid . Function and their role is similar to mshflexgrid . Which displays the data in the form of rows and columns. Or if in the form of web programming output more use html tables. Control is a little different with mshflexgrid.               The use of control is very simple and easy. To add in a form can be added as follows:         Create a new project in Visual Basic 6.0 program, and then add a form. To add a component or control vb6 msflexgrid into a then double click the control that is in the collection box components. If no then you have not added control into the collection box components.         For that you must add it by right-clicking on the area of the component box, then check that in a control called Microsoft Msflexgrid Control 6.0, after checked and then press the OK button aplly or. If there is no problem in your visual basic program, then the control will add a collection of controls
Baca selengkapnya

Tutorial Visual Basic 6.0 : Listbox in VB6

Gambar
In Visual Basic 6.0 Tutorial explained that the property on the ListBox control will determine whether the sign is displayed or not the checkbox next to each item. If the city checkbox is displayed then the ListBox displays the form of multiple choices by checking the checkboxnya. But if not shown, then only one data that can be selected. ListBox in VB6 has its own characteristics, ie when the event raised ItemCheck, propertynya has actually changed. In this control , provides an array of data as a place of shelter data. References it is the index. Array is an array list that starts from zero on the item STRING and what the user saw. ItemData array is an array of LONG INTEGER items where you can place an optional numeric data item associated with the item strings accordingly. If ItemData used, each element is always in touch with the appropriate element from the array list, which means it is not an independent array. You can not control the property Listbox i
Baca selengkapnya

Select Single Cell in MSHFlexgrid

Gambar
         How to use MSHFlexgrid in selecting a particular column. It is very easy, as shown in the picture below. For example a data has been shown in contorl MSHFlexgrid, then the user will select one of the existing data in that column, then the program for manangkap data chosen by the user are as follows:        Private Sub Command1_Click()       MsgBox (MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, MSHFlexGrid1.Col))  End Sub     More topic of Mshflexgrid    -. How to Use MSHFlexgrid ?  -. Mshflexgrid with Adodc  -. Editable MSHFlexgrid  -. Attach textbox to MSHFlexgrid  -. MSHFlexgrid select a cell and change background
Baca selengkapnya