Visual Basic

August 8th, 2009 Leave a comment Go to comments
  1. Program Enkripsi – Dekripsi dengan Visual Basic 6
Bookmark and Share
  1. August 16th, 2009 at 13:06 | #1

    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….

  2. Nu
    August 26th, 2009 at 14:44 | #2

    yang ini maksudnya :

    For i = 1 To Len(kata)
    ……
    ……
    dan seterusnya
    ———————

    ini perulangan sebanyak panjang kata .. ingat Len, mencari panjang kata (hasil : integer).

    Mid(string, integer, integer) .. ini merupakan operasi string yang nantinya menghasilkan string. jadi bila :

    KunciChar = Mid(kunci, Pos, 1)

    berarti mengambil huruf dari string kunci pada index ke Pos sebanyak 1.

    dan seterusnya …..
    untuk lebih baiknya, silakan kirim source lengkapnya, nanti saya tuliskan penjelasannya. klik disini .. kirim

  3. tintin
    November 23rd, 2009 at 19:08 | #3

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

  4. Nu
    November 25th, 2009 at 06:49 | #4

    @tintin
    piramida macam apa nih?

  5. burhan
    March 5th, 2010 at 20:17 | #5

    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

  6. burhan
    March 5th, 2010 at 20:20 | #6

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

  7. Nu
    March 5th, 2010 at 23:49 | #7

    @burhan
    bisa minta tolong kirim aja source code lengkapnya, nanti secepatnya saya perbaiki.. kirim lewat sini :: http://www.nusinau.com/send-article/

  8. Nu
    March 5th, 2010 at 23:50 | #8

    @burhan
    wah, klo itu ngga tau… saya biasa baca lewat bermacam ebook… maaf ya…

  9. victor
    April 13th, 2010 at 10:54 | #9

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

  10. otoy
    June 1st, 2010 at 19:55 | #10

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

  11. June 25th, 2010 at 21:35 | #11

    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

  1. No trackbacks yet.