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?