NuSinau

kak nunu… aku mo tanya neh… tentang kriptography…. mo sharing masalah prigram VB ini. ku bikin program, ini sourcenya tapi ada yang ga kutau :

Private Function Encrypt(kata As String, kunci As String)
Dim Char As String, kunciChar As String, katabaru As String
Dim Pos As Integer
Dim i As Integer, Side1 As String, Side2 As String
Pos = 1

For i = 1 To Len(kata)
Char = Mid(kata, i, 1)
kunciChar = Mid(kunci, Pos, 1)
katabaru = katabaru & Chr(Asc(Char) Xor Asc(kunciChar))

If Pos = Len(kunci) Then Pos = 0
Pos = Pos + 1
Next i
If Len(katabaru) Mod 2 = 0 Then
Side1 = StrReverse(Left(katabaru, (Len(katabaru) / 2)))
Side2 = StrReverse(Right(katabaru, (Len(katabaru) / 2)))
katabaru = Side1 & Side2
End If
Encrypt = katabaru
End Function

baris 7-13 itu artinya apa ya? ku lupa… masalah for itu.
tnx alot ya mas….

kak, minta tolong. rumus dalam membuat piramida dengan visual basic 6.0

tolong jlasin listing dari program ini, coz udh saya compile tp masih ada errornya, tolong y?

Private crcTable(0 To 255) As Long ‘crc32

Public Function CRC32(ByRef bArrayIn() As Byte, ByVal lLen As Long, Optional ByVal lcrc As Long = 0) As Long

‘bArrayIn adalah array byte dari file yang dibaca, lLen adalah ukuran atau size file

Dim lCurPos As Long ‘Current position untuk iterasi proses array bArrayIn

Dim lTemp As Long ‘variabel temp hasil perhitungan

If lLen = 0 Then Exit Function ‘keluar fungsi apabila ukuran file = 0

lTemp = lcrc Xor &HFFFFFFFF

For lCurPos = 0 To lLen

lTemp = (((lTemp And &HFFFFFF00) \\ &H100) And &HFFFFFF) Xor (crcTable((lTemp And 255) Xor bArrayIn(lCurPos)))

Next lCurPos

CRC32 = lTemp Xor &HFFFFFFFF

End Function

Private Function BuildTable() As Boolean

Dim i As Long, x As Long, crc As Long

Const Limit = &HEDB88320

For i = 0 To 255

crc = i

For x = 0 To 7

If crc And 1 Then

crc = (((crc And &HFFFFFFFE) \\ 2) And &H7FFFFFFF) Xor Limit

Else

crc = ((crc And &HFFFFFFFE) \\ 2) And &H7FFFFFFF

End If

Next x

crcTable(i) = crc

Next i

End Function

Private Sub Class_Initialize()

BuildTable

End Sub

mau tanya 1 lagi, buku apa yang menjelaskan tentang semua listing programnya visual basic?

hallo…,
help…,source code utk mengecek jumlah client yg lg aktif( cth: jmlh clients yg aktif pada sebuah warnet),…
thx b4..

mas tau nda bikin aplikasi client-server pake vb 6 n database sql server 2000… ada tutorialnya gak..?
makasih…

mas tolong bntu sya gmn cra ngitung alogaritmanya bingung neh…

Private Function RC4(ByVal Str As String, ByVal Pwd As String) As String
On Error Resume Next
Dim Sbox(0 To 255) As Integer
Dim A
Dim B
Dim C
Dim Key() As Byte
Dim ByteArray() As Byte
Dim Tmp As Byte
If Len(Pwd) = 0 Or Len(Str) = 0 Then Exit Function

If Len(Pwd) > 256 Then
Key() = StrConv(Left$(Pwd, 256), vbFromUnicode)
Else
Key() = StrConv(Pwd, vbFromUnicode)
End If

For A = 0 To 255
Sbox(A) = A
Next A
A = 0
B = 0
C = 0
For A = 0 To 255
B = (B + Sbox(A) + Key(A Mod Len(Pwd))) Mod 256
Tmp = Sbox(A)
Sbox(A) = Sbox(B)
Sbox(B) = Tmp
Next A
A = 0
B = 0
C = 0
ByteArray() = StrConv(Str, vbFromUnicode)
For A = 0 To Len(Str)
B = (B + 1) Mod 256
C = (C + Sbox(B)) Mod 256
Tmp = Sbox(B)
Sbox(B) = Sbox(C)
Sbox(C) = Tmp
ByteArray(A) = ByteArray(A) Xor (Sbox((Sbox(B) + Sbox(C)) Mod 256))
Next A
RC4 = StrConv(ByteArray, vbUnicode)
End Function