Inheritance

Fitur utama dari OOP adalah usabilitas. Itu selalu menghemat waktu dan berguna jika kita dapat menggunakan kembali sesuatu yang sudah ada daripada mencoba untuk membuat hal yang sama lagi dan lagi. Menggunakan kembali kelas yang diuji, debugged dan digunakan berkali-kali dapat menyelamatkan kita waktu dan upaya pengembangan dan pengujian lagi. Setelah kelas telah ditulis dan diuji, dapat digunakan oleh program lain sesuai kebutuhan program. Hal ini dilakukan dengan menciptakan kelas baru dari kelas yang ada. Proses menurunkan kelas baru dari kelas yang ada disebut Warisan. Kelas tua disebut kelas dasar dan kelas baru ini disebut kelas turunan. Kelas turunan mewarisi beberapa atau semua dari kelas dasar. Dalam Visual Basic kita menggunakan Inherits kata kunci untuk mewarisi satu kelas dari yang lain. Bentuk umum dari sebuah kelas baru yang berasal dari kelas yang ada terlihat sebagai berikut:

Public Class One
---
---
End Class

Public Class Two
     Inherits One
---
---
End Class 


Menggunakan Inheritance kita dapat menggunakan variabel, metode, properti, dll, dari kelas dasar dan menambahkan fungsionalitas lebih ke dalam kelas turunan. Kode berikut menunjukkan proses Warisan dalam Visual Basic.

Imports System.Console
Module Module1

Sub Main()
Dim ss As New Two()
WriteLine(ss.sum())
Read()
End Sub

End Module

Public Class One
'base class
Public i As Integer = 10
Public j As Integer = 20

Public Function add() As Integer
Return i + j
End Function

End Class

Public Class Two
    Inherits One
'derived class. class two inherited from class one
Public k As Integer = 100

Public Function sum() As Integer
'using the variables, function from base class and adding more functionality
Return i + j + k
End Function

End Class 

Class Algoritma Blowfish ( VB 6 )

Download project:
DOWNLOAD PROJECT VB 6

blowfish class:

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsBlowfish"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'Long(long integer)  4 bytes -2,147,483,648 to 2,147,483,647

Private Const MaxLong = 2147483647
Private Const MinLong = -2147483648#

Private mbIsInit As Boolean
Private Const strErrSrc = "clsBlowfish"

Private p(1 To 18) As Long
Private s(1 To 4, 0 To 255) As Long

'Types for extracting bytes from words
Private Type LongByteW
    w As Long
End Type

Private Const BFErr = 3400 + vbObjectError

Private Type LongByteB
    b4 As Byte
    b3 As Byte
    b2 As Byte
    b1 As Byte
End Type

Private Function fAddBytes(b1 As Byte, b2 As Byte) As Byte
    fAddBytes = CByte((CInt(b1) + CInt(b2)) Mod 256)
End Function

Private Function fAddLongs(L1 As Long, L2 As Long) As Long
    Dim curRes As Currency, c1 As Currency, c2 As Currency

    'This function allows you to add the longs without turning off the
    'integer overflow checking.  Thus it is slower, but works in the IDE
    'and with any project you wish to add this code to.

    c1 = L1
    c2 = L2

    curRes = c1 + c2

    If curRes > MaxLong Then
        curRes = curRes - MaxLong + MinLong - 1
    End If

    If curRes < MinLong Then
        curRes = curRes + MaxLong - MinLong + 1
    End If

    fAddLongs = CLng(curRes)

End Function

Public Sub sInitBF(strKey As String)
    Dim i As Integer
    Dim j As Integer
    Dim x As LongByteW      'For conversion
    Dim y As LongByteB      ' """"
    Dim intKeyLen As Integer
    Dim bytKey() As Byte
    Dim lngDataL As Long, lngDataR As Long

    intKeyLen = Len(strKey)
    ReDim bytKey(0 To intKeyLen - 1)

    Call sStringToByte(strKey, bytKey)
  
    Call sSetPSBoxLocal


    j = 0
    For i = 1 To 18
        y.b1 = bytKey(j)
        y.b2 = bytKey((j + 1) Mod intKeyLen)
        y.b3 = bytKey((j + 2) Mod intKeyLen)
        y.b4 = bytKey((j + 3) Mod intKeyLen)
        LSet x = y
        p(i) = p(i) Xor x.w
        j = (j + 4) Mod intKeyLen
    Next

    lngDataL = 0: lngDataR = 0

    For i = 1 To 17 Step 2
        Call BFEncipher(lngDataL, lngDataR)
        p(i) = lngDataL
        p(i + 1) = lngDataR
    Next

    For i = 1 To 4
        For j = 0 To 254 Step 2
            Call BFEncipher(lngDataL, lngDataR)
            s(i, j) = lngDataL
            s(i, j + 1) = lngDataR
        Next j
    Next i

    mbIsInit = True

End Sub

Private Function f(Word As Long) As Long
    Dim x As LongByteW
    Dim y As LongByteB

    x.w = Word

    LSet y = x
    'Debug.Print S(1, Y.b1), S(2, Y.b2)
    f = fAddLongs(fAddLongs(s(1, y.b1), s(2, y.b2)) Xor (s(3, y.b3)), s(4, y.b4))
  
End Function

Private Sub Round(xL As Long, xR As Long, intRound As Integer)
    'Debug.Print F(xR), xR
    xL = xL Xor (f(xR) Xor p(intRound))
End Sub

Private Sub BFEncipher(xL As Long, xR As Long)
    Dim lngTemp As Long
    Dim i As Integer
    xL = xL Xor p(1)
    'Call sFilePrintSP
    For i = 2 To 16 Step 2
        Call Round(xR, xL, i)
        Call Round(xL, xR, i + 1)
    Next

    xR = xR Xor p(18)

    'Swap left and right
    lngTemp = xR
    xR = xL
    xL = lngTemp


End Sub


Private Sub BFDecipher(xL As Long, xR As Long)
    Dim lngTemp As Long
    Dim i As Integer

    xL = xL Xor p(18)

    For i = 17 To 3 Step -2
        Call Round(xR, xL, i)
        Call Round(xL, xR, i - 1)
    Next

    xR = xR Xor p(1)

    'Swap left and right
    lngTemp = xR
    xR = xL
    xL = lngTemp


End Sub


'Private Sub sFilePrintSP()
''For debugging only.
'
'    Dim i As Integer
'
'    Open "C:\Windows\Desktop\SPWin.txt" For Output As #1
'
'    Print #1, ""
'    Print #1, "PBox"
'    Print #1, ""
'    For i = 1 To 15 Step 6
'        Print #1, p(i), p(i + 1), p(i + 2), p(i + 3), p(i + 4), p(i + 5)
'    Next
'    Print #1, ""
'    Print #1, "SBox"
'    Print #1, ""
'    For i = 0 To 252 Step 4
'        Print #1, s(1, i), s(1, i + 1), s(1, i + 2), s(1, i + 3)
'    Next
'    Close #1
'
'
'
'End Sub

Public Sub sEncrypt(bytToEncrypt() As Byte, bytEncrypted() As Byte)

'This Sub assumes you are passing a 64 bit divisible zero-based array of bytes to
'encode and a similarly sized array to hold the encrypted version.
'Todo:  Add error checking for these conditions

    Dim lngLenBStr As Long
    Dim xL As LongByteB, xR  As LongByteB
    Dim yL As LongByteW, yR  As LongByteW
    Dim i As Long
    Dim bytB As Byte

    'Check zero based
    bytB = bytToEncrypt(0)
    bytB = bytEncrypted(0)


    If UBound(bytToEncrypt) UBound(bytEncrypted) Then
        Err.Raise BFErr + 2, strErrSrc, "Need to pass two byte arrays the same size"
        Exit Sub
    End If

    If (UBound(bytToEncrypt) + 1) Mod 8 0 Then
        Err.Raise BFErr + 3, strErrSrc, "Byte array must be sized divisible by 8."
        Exit Sub
    End If

    If Not mbIsInit Then
        Err.Raise BFErr + 1, strErrSrc, "Call sInitBF before calling this sub"
        Exit Sub
    End If

    lngLenBStr = UBound(bytToEncrypt) + 1

    For i = 0 To lngLenBStr - 8 Step 8
        xL.b1 = bytToEncrypt(i)
        xL.b2 = bytToEncrypt(i + 1)
        xL.b3 = bytToEncrypt(i + 2)
        xL.b4 = bytToEncrypt(i + 3)

        xR.b1 = bytToEncrypt(i + 4)
        xR.b2 = bytToEncrypt(i + 5)
        xR.b3 = bytToEncrypt(i + 6)
        xR.b4 = bytToEncrypt(i + 7)

        LSet yR = xR
        LSet yL = xL

'        Debug.Print Hex(yL.w), Hex(yR.w)

        Call BFEncipher(yL.w, yR.w)

'        Debug.Print Hex(yL.w), Hex(yR.w)

        LSet xR = yR
        LSet xL = yL

        bytEncrypted(i) = xL.b1
        bytEncrypted(i + 1) = xL.b2
        bytEncrypted(i + 2) = xL.b3
        bytEncrypted(i + 3) = xL.b4

        bytEncrypted(i + 4) = xR.b1
        bytEncrypted(i + 5) = xR.b2
        bytEncrypted(i + 6) = xR.b3
        bytEncrypted(i + 7) = xR.b4


    Next i
  
End Sub


Public Sub sDecrypt(bytToDecrypt() As Byte, bytUnencrypted() As Byte)

'This Sub assumes you are passing a 64 bit divisible zero-based array of bytes to
'encode and a similarly sized array to hold the encrypted version.
'Todo:  Add error checking for these conditions

    Dim lngLenStr As Long
    Dim lngLenBStr As Long
    Dim xL As LongByteB, xR  As LongByteB
    Dim yL As LongByteW, yR  As LongByteW
    Dim i As Long

   lngLenStr = UBound(bytToDecrypt) + 1
    lngLenBStr = lngLenStr

    If UBound(bytToDecrypt) UBound(bytUnencrypted) Then
        Err.Raise BFErr + 2, strErrSrc, "Need to pass two byte arrays the same size"
        Exit Sub
    End If

    If (UBound(bytToDecrypt) + 1) Mod 8 0 Then
        Err.Raise BFErr + 3, strErrSrc, "Byte array must be sized divisible by 8."
        Exit Sub
    End If

    If Not mbIsInit Then
        Err.Raise BFErr + 1, strErrSrc, "Call sInitBF before calling this sub"
        Exit Sub
    End If


    For i = 0 To lngLenBStr - 8 Step 8
        xL.b1 = bytToDecrypt(i)
        xL.b2 = bytToDecrypt(i + 1)
        xL.b3 = bytToDecrypt(i + 2)
        xL.b4 = bytToDecrypt(i + 3)

        xR.b1 = bytToDecrypt(i + 4)
        xR.b2 = bytToDecrypt(i + 5)
        xR.b3 = bytToDecrypt(i + 6)
        xR.b4 = bytToDecrypt(i + 7)

        LSet yR = xR
        LSet yL = xL

'        Debug.Print Hex(yL.w), Hex(yR.w)

        Call BFDecipher(yL.w, yR.w)

'        Debug.Print Hex(yL.w), Hex(yR.w)

        LSet xR = yR
        LSet xL = yL

        bytUnencrypted(i) = xL.b1
        bytUnencrypted(i + 1) = xL.b2
        bytUnencrypted(i + 2) = xL.b3
        bytUnencrypted(i + 3) = xL.b4

        bytUnencrypted(i + 4) = xR.b1
        bytUnencrypted(i + 5) = xR.b2
        bytUnencrypted(i + 6) = xR.b3
        bytUnencrypted(i + 7) = xR.b4


    Next i


End Sub


Private Sub sSetPSBox()

    Dim strPath As String
    Dim hFile As Integer

    strPath = App.Path

    If Right$(strPath, 1) "\" Then
        strPath = strPath & "\"
    End If
'    Debug.Print strPath
    If Len(Dir(strPath & "bf.dat")) = 0 Then
        Err.Raise BFErr + 3, , "bf.dat not found"
        Exit Sub
    End If

    hFile = FreeFile
    Open strPath & "bf.dat" For Binary As hFile
    Get #hFile, , p
    Get #hFile, , s
    Close #hFile

End Sub

Public Sub sFileEncrypt(strFileSrc As String, strFileTrg As String)


    Dim lngLen As Long
    Dim lngLenB As Long
    Dim bytSource() As Byte
    Dim bytTarget() As Byte
    Dim sngTimer As Single
    Dim hFile As Integer

    If Not mbIsInit Then
        Err.Raise BFErr + 1, , "Call sInitBF before calling this sub"
        Exit Sub
    End If

    If Len(Dir(strFileSrc)) = 0 Then
        Err.Raise BFErr + 2, , "Source file is not found"
        Exit Sub
    End If

    sngTimer = Timer

    lngLen = FileLen(strFileSrc)
    ReDim bytSource(0 To lngLen - 1)

    hFile = FreeFile
    Open strFileSrc For Binary As #hFile
    Get #hFile, , bytSource
    Close #hFile

    'Need to pad the string with zeroes if not divisible by 64 bits
    If lngLen Mod 8 0 Then
        lngLenB = lngLen + (8 - lngLen Mod 8)
    Else
        lngLenB = lngLen
    End If

'    Debug.Print lngLenB

    ReDim Preserve bytSource(0 To lngLenB - 1)
    ReDim bytTarget(0 To lngLenB - 1)


    Call sEncrypt(bytSource, bytTarget)

    If Len(Dir(strFileTrg)) 0 Then
        Kill strFileTrg
    End If



    hFile = FreeFile
    Open strFileTrg For Binary As #hFile
    'Save the original file length so that we know how much padding to remove.
    Put #hFile, , lngLen
    Put #hFile, , bytTarget
    Close #hFile

    Debug.Print Timer - sngTimer


End Sub

Public Sub sFileDecrypt(strFileSrc As String, strFileTrg As String)


    Dim lngLen As Long
    Dim lngLenB As Long
    Dim bytSource() As Byte
    Dim bytTarget() As Byte
    Dim sngTimer As Single
    Dim hFile As Integer

    If Not mbIsInit Then
        Err.Raise BFErr + 1, , "Call sInitBF before calling this sub"
        Exit Sub
    End If

    If Len(Dir(strFileSrc)) = 0 Then
        Err.Raise BFErr + 2, , "Source file is not found"
        Exit Sub
    End If

    sngTimer = Timer


    lngLenB = FileLen(strFileSrc) - 4

'    Debug.Print lngLenB

    ReDim bytSource(0 To lngLenB - 1)
    ReDim bytTarget(0 To lngLenB - 1)


    hFile = FreeFile
    Open strFileSrc For Binary As #hFile
    Get #hFile, , lngLen
    Get #hFile, , bytSource
    Close #hFile



    Call sDecrypt(bytSource, bytTarget)

    ReDim Preserve bytTarget(0 To lngLen - 1)

    If Len(Dir(strFileTrg)) 0 Then
        Kill strFileTrg
    End If

    hFile = FreeFile
    Open strFileTrg For Binary As #hFile
    Put #hFile, , bytTarget
    Close #hFile

    Debug.Print Timer - sngTimer

End Sub

Private Sub sStringToByte(strS As String, bytB() As Byte)


bytB = StrConv(strS, vbFromUnicode)

End Sub

Public Sub sStringEncrypt(strToEncrypt As String, strEncrypted As String)
    Dim bytToEncrypt() As Byte
    Dim bytEncrypted() As Byte
    Dim lngLenStr As Long
    Dim lngLenBStr As Long



    lngLenStr = Len(strToEncrypt)


    'Need to pad the string with zeroes if not divisible by 64 bits
    If lngLenStr Mod 8 0 Then
        lngLenBStr = lngLenStr + (8 - lngLenStr Mod 8)
    Else
        lngLenBStr = lngLenStr
    End If


'    ReDim bytToEncrypt(0 To lngLenBStr - 1)

    Call sStringToByte(strToEncrypt, bytToEncrypt)
    ReDim Preserve bytToEncrypt(0 To lngLenBStr - 1)
    ReDim bytEncrypted(0 To lngLenBStr - 1)

    Call sEncrypt(bytToEncrypt, bytEncrypted)

    strEncrypted = StrConv(bytEncrypted, vbUnicode)


End Sub


Public Sub sStringDecrypt(strToDecrypt As String, strUnencrypted As String)
     Dim bytToDecrypt() As Byte
    Dim bytDecrypted() As Byte
    Dim lngLenStr As Long
    Dim i As Long

    lngLenStr = Len(strToDecrypt)
    'Should be divisible by 8
    'TODO:
    'Error checking on 64 bit boundary

    If lngLenStr Mod 8 0 Then
        Err.Raise BFErr + 3, , "String to decrypt should be sized divisible by 8."
        Exit Sub

    End If

    Call sStringToByte(strToDecrypt, bytToDecrypt)
    ReDim bytDecrypted(0 To UBound(bytToDecrypt))

    Call sDecrypt(bytToDecrypt, bytDecrypted)

    strUnencrypted = StrConv(bytDecrypted, vbUnicode)
    i = InStr(1, strUnencrypted, Chr(0))
    If i > 1 Then
        strUnencrypted = Left$(strUnencrypted, i - 1)
    End If
  

End Sub

Private Sub sSetPSBoxLocal()
    'These are the standard P and S buffer initialization vectors,
    'based on the hex digits of pi.  You could also use random data,
    'as long as you use the same random sequence every time.
    'However, these will work with the test vectors

    p(1) = 608135816
    p(2) = -2052912941
    p(3) = 320440878
    p(4) = 57701188
    p(5) = -1542899678
    p(6) = 698298832
    p(7) = 137296536
    p(8) = -330404727
    p(9) = 1160258022
    p(10) = 953160567
    p(11) = -1101764913
    p(12) = 887688300
    p(13) = -1062458953
    p(14) = -914599715
    p(15) = 1065670069
    p(16) = -1253635817
    p(17) = -1843997223
    p(18) = -1988494565
    s(1, 0) = -785314906
    s(1, 1) = -1730169428
    s(1, 2) = 805139163
    s(1, 3) = -803545161
    s(1, 4) = -1193168915
    s(1, 5) = 1780907670
    s(1, 6) = -1166241723
    s(1, 7) = -248741991
    s(1, 8) = 614570311
    s(1, 9) = -1282315017
    s(1, 10) = 134345442
    s(1, 11) = -2054226922
    s(1, 12) = 1667834072
    s(1, 13) = 1901547113
    s(1, 14) = -1537671517
    s(1, 15) = -191677058
    s(1, 16) = 227898511
    s(1, 17) = 1921955416
    s(1, 18) = 1904987480
    s(1, 19) = -2112533778
    s(1, 20) = 2069144605
    s(1, 21) = -1034266187
    s(1, 22) = -1674521287
    s(1, 23) = 720527379
    s(1, 24) = -976113629
    s(1, 25) = 677414384
    s(1, 26) = -901678824
    s(1, 27) = -1193592593
    s(1, 28) = -1904616272
    s(1, 29) = 1614419982
    s(1, 30) = 1822297739
    s(1, 31) = -1340175810
    s(1, 32) = -686458943
    s(1, 33) = -1120842969
    s(1, 34) = 2024746970
    s(1, 35) = 1432378464
    s(1, 36) = -430627341
    s(1, 37) = -1437226092
    s(1, 38) = 1464375394
    s(1, 39) = 1676153920
    s(1, 40) = 1439316330
    s(1, 41) = 715854006
    s(1, 42) = -1261675468
    s(1, 43) = 289532110
    s(1, 44) = -1588296017
    s(1, 45) = 2087905683
    s(1, 46) = -1276242927
    s(1, 47) = 1668267050
    s(1, 48) = 732546397
    s(1, 49) = 1947742710
    s(1, 50) = -832815594
    s(1, 51) = -1685613794
    s(1, 52) = -1344882125
    s(1, 53) = 1814351708
    s(1, 54) = 2050118529
    s(1, 55) = 680887927
    s(1, 56) = 999245976
    s(1, 57) = 1800124847
    s(1, 58) = -994056165
    s(1, 59) = 1713906067
    s(1, 60) = 1641548236
    s(1, 61) = -81679983
    s(1, 62) = 1216130144
    s(1, 63) = 1575780402
    s(1, 64) = -276538019
    s(1, 65) = -377129551
    s(1, 66) = -601480446
    s(1, 67) = -345695352
    s(1, 68) = 596196993
    s(1, 69) = -745100091
    s(1, 70) = 258830323
    s(1, 71) = -2081144263
    s(1, 72) = 772490370
    s(1, 73) = -1534844924
    s(1, 74) = 1774776394
    s(1, 75) = -1642095778
    s(1, 76) = 566650946
    s(1, 77) = -152474470
    s(1, 78) = 1728879713
    s(1, 79) = -1412200208
    s(1, 80) = 1783734482
    s(1, 81) = -665571480
    s(1, 82) = -1777359064
    s(1, 83) = -1420741725
    s(1, 84) = 1861159788
    s(1, 85) = 326777828
    s(1, 86) = -1170476976
    s(1, 87) = 2130389656
    s(1, 88) = -1578015459
    s(1, 89) = 967770486
    s(1, 90) = 1724537150
    s(1, 91) = -2109534584
    s(1, 92) = -1930525159
    s(1, 93) = 1164943284
    s(1, 94) = 2105845187
    s(1, 95) = 998989502
    s(1, 96) = -529566248
    s(1, 97) = -2050940813
    s(1, 98) = 1075463327
    s(1, 99) = 1455516326
    s(1, 100) = 1322494562
    s(1, 101) = 910128902
    s(1, 102) = 469688178
    s(1, 103) = 1117454909
    s(1, 104) = 936433444
    s(1, 105) = -804646328
    s(1, 106) = -619713837
    s(1, 107) = 1240580251
    s(1, 108) = 122909385
    s(1, 109) = -2137449605
    s(1, 110) = 634681816
    s(1, 111) = -152510729
    s(1, 112) = -469872614
    s(1, 113) = -1233564613
    s(1, 114) = -1754472259
    s(1, 115) = 79693498
    s(1, 116) = -1045868618
    s(1, 117) = 1084186820
    s(1, 118) = 1583128258
    s(1, 119) = 426386531
    s(1, 120) = 1761308591
    s(1, 121) = 1047286709
    s(1, 122) = 322548459
    s(1, 123) = 995290223
    s(1, 124) = 1845252383
    s(1, 125) = -1691314900
    s(1, 126) = -863943356
    s(1, 127) = -1352745719
    s(1, 128) = -1092366332
    s(1, 129) = -567063811
    s(1, 130) = 1712269319
    s(1, 131) = 422464435
    s(1, 132) = -1060394921
    s(1, 133) = 1170764815
    s(1, 134) = -771006663
    s(1, 135) = -1177289765
    s(1, 136) = 1434042557
    s(1, 137) = 442511882
    s(1, 138) = -694091578
    s(1, 139) = 1076654713
    s(1, 140) = 1738483198
    s(1, 141) = -81812532
    s(1, 142) = -1901729288
    s(1, 143) = -617471240
    s(1, 144) = 1014306527
    s(1, 145) = -43947243
    s(1, 146) = 793779912
    s(1, 147) = -1392160085
    s(1, 148) = 842905082
    s(1, 149) = -48003232
    s(1, 150) = 1395751752
    s(1, 151) = 1040244610
    s(1, 152) = -1638115397
    s(1, 153) = -898659168
    s(1, 154) = 445077038
    s(1, 155) = -552113701
    s(1, 156) = -717051658
    s(1, 157) = 679411651
    s(1, 158) = -1402522938
    s(1, 159) = -1940957837
    s(1, 160) = 1767581616
    s(1, 161) = -1144366904
    s(1, 162) = -503340195
    s(1, 163) = -1192226400
    s(1, 164) = 284835224
    s(1, 165) = -48135240
    s(1, 166) = 1258075500
    s(1, 167) = 768725851
    s(1, 168) = -1705778055
    s(1, 169) = -1225243291
    s(1, 170) = -762426948
    s(1, 171) = 1274779536
    s(1, 172) = -505548070
    s(1, 173) = -1530167757
    s(1, 174) = 1660621633
    s(1, 175) = -823867672
    s(1, 176) = -283063590
    s(1, 177) = 913787905
    s(1, 178) = -797008130
    s(1, 179) = 737222580
    s(1, 180) = -1780753843
    s(1, 181) = -1366257256
    s(1, 182) = -357724559
    s(1, 183) = 1804850592
    s(1, 184) = -795946544
    s(1, 185) = -1345903136
    s(1, 186) = -1908647121
    s(1, 187) = -1904896841
    s(1, 188) = -1879645445
    s(1, 189) = -233690268
    s(1, 190) = -2004305902
    s(1, 191) = -1878134756
    s(1, 192) = 1336762016
    s(1, 193) = 1754252060
    s(1, 194) = -774901359
    s(1, 195) = -1280786003
    s(1, 196) = 791618072
    s(1, 197) = -1106372745
    s(1, 198) = -361419266
    s(1, 199) = -1962795103
    s(1, 200) = -442446833
    s(1, 201) = -1250986776
    s(1, 202) = 413987798
    s(1, 203) = -829824359
    s(1, 204) = -1264037920
    s(1, 205) = -49028937
    s(1, 206) = 2093235073
    s(1, 207) = -760370983
    s(1, 208) = 375366246
    s(1, 209) = -2137688315
    s(1, 210) = -1815317740
    s(1, 211) = 555357303
    s(1, 212) = -424861595
    s(1, 213) = 2008414854
    s(1, 214) = -950779147
    s(1, 215) = -73583153
    s(1, 216) = -338841844
    s(1, 217) = 2067696032
    s(1, 218) = -700376109
    s(1, 219) = -1373733303
    s(1, 220) = 2428461
    s(1, 221) = 544322398
    s(1, 222) = 577241275
    s(1, 223) = 1471733935
    s(1, 224) = 610547355
    s(1, 225) = -267798242
    s(1, 226) = 1432588573
    s(1, 227) = 1507829418
    s(1, 228) = 2025931657
    s(1, 229) = -648391809
    s(1, 230) = 545086370
    s(1, 231) = 48609733
    s(1, 232) = -2094660746
    s(1, 233) = 1653985193
    s(1, 234) = 298326376
    s(1, 235) = 1316178497
    s(1, 236) = -1287180854
    s(1, 237) = 2064951626
    s(1, 238) = 458293330
    s(1, 239) = -1705826027
    s(1, 240) = -703637697
    s(1, 241) = -1130641692
    s(1, 242) = 727753846
    s(1, 243) = -2115603456
    s(1, 244) = 146436021
    s(1, 245) = 1461446943
    s(1, 246) = -224990101
    s(1, 247) = 705550613
    s(1, 248) = -1235000031
    s(1, 249) = -407242314
    s(1, 250) = -13368018
    s(1, 251) = -981117340
    s(1, 252) = 1404054877
    s(1, 253) = -1449160799
    s(1, 254) = 146425753
    s(1, 255) = 1854211946
    s(2, 0) = 1266315497
    s(2, 1) = -1246549692
    s(2, 2) = -613086930
    s(2, 3) = -1004984797
    s(2, 4) = -1385257296
    s(2, 5) = 1235738493
    s(2, 6) = -1662099272
    s(2, 7) = -1880247706
    s(2, 8) = -324367247
    s(2, 9) = 1771706367
    s(2, 10) = 1449415276
    s(2, 11) = -1028546847
    s(2, 12) = 422970021
    s(2, 13) = 1963543593
    s(2, 14) = -1604775104
    s(2, 15) = -468174274
    s(2, 16) = 1062508698
    s(2, 17) = 1531092325
    s(2, 18) = 1804592342
    s(2, 19) = -1711849514
    s(2, 20) = -1580033017
    s(2, 21) = -269995787
    s(2, 22) = 1294809318
    s(2, 23) = -265986623
    s(2, 24) = 1289560198
    s(2, 25) = -2072974554
    s(2, 26) = 1669523910
    s(2, 27) = 35572830
    s(2, 28) = 157838143
    s(2, 29) = 1052438473
    s(2, 30) = 1016535060
    s(2, 31) = 1802137761
    s(2, 32) = 1753167236
    s(2, 33) = 1386275462
    s(2, 34) = -1214491899
    s(2, 35) = -1437595849
    s(2, 36) = 1040679964
    s(2, 37) = 2145300060
    s(2, 38) = -1904392980
    s(2, 39) = 1461121720
    s(2, 40) = -1338320329
    s(2, 41) = -263189491
    s(2, 42) = -266592508
    s(2, 43) = 33600511
    s(2, 44) = -1374882534
    s(2, 45) = 1018524850
    s(2, 46) = 629373528
    s(2, 47) = -603381315
    s(2, 48) = -779021319
    s(2, 49) = 2091462646
    s(2, 50) = -1808644237
    s(2, 51) = 586499841
    s(2, 52) = 988145025
    s(2, 53) = 935516892
    s(2, 54) = -927631820
    s(2, 55) = -1695294041
    s(2, 56) = -1455136442
    s(2, 57) = 265290510
    s(2, 58) = -322386114
    s(2, 59) = -1535828415
    s(2, 60) = -499593831
    s(2, 61) = 1005194799
    s(2, 62) = 847297441
    s(2, 63) = 406762289
    s(2, 64) = 1314163512
    s(2, 65) = 1332590856
    s(2, 66) = 1866599683
    s(2, 67) = -167115585
    s(2, 68) = 750260880
    s(2, 69) = 613907577
    s(2, 70) = 1450815602
    s(2, 71) = -1129346641
    s(2, 72) = -560302305
    s(2, 73) = -644675568
    s(2, 74) = -1282691566
    s(2, 75) = -590397650
    s(2, 76) = 1427272223
    s(2, 77) = 778793252
    s(2, 78) = 1343938022
    s(2, 79) = -1618686585
    s(2, 80) = 2052605720
    s(2, 81) = 1946737175
    s(2, 82) = -1130390852
    s(2, 83) = -380928628
    s(2, 84) = -327488454
    s(2, 85) = -612033030
    s(2, 86) = 1661551462
    s(2, 87) = -1000029230
    s(2, 88) = -283371449
    s(2, 89) = 840292616
    s(2, 90) = -582796489
    s(2, 91) = 616741398
    s(2, 92) = 312560963
    s(2, 93) = 711312465
    s(2, 94) = 1351876610
    s(2, 95) = 322626781
    s(2, 96) = 1910503582
    s(2, 97) = 271666773
    s(2, 98) = -2119403562
    s(2, 99) = 1594956187
    s(2, 100) = 70604529
    s(2, 101) = -677132437
    s(2, 102) = 1007753275
    s(2, 103) = 1495573769
    s(2, 104) = -225450259
    s(2, 105) = -1745748998
    s(2, 106) = -1631928532
    s(2, 107) = 504708206
    s(2, 108) = -2031925904
    s(2, 109) = -353800271
    s(2, 110) = -2045878774
    s(2, 111) = 1514023603
    s(2, 112) = 1998579484
    s(2, 113) = 1312622330
    s(2, 114) = 694541497
    s(2, 115) = -1712906993
    s(2, 116) = -2143385130
    s(2, 117) = 1382467621
    s(2, 118) = 776784248
    s(2, 119) = -1676627094
    s(2, 120) = -971698502
    s(2, 121) = -1797068168
    s(2, 122) = -1510196141
    s(2, 123) = 503983604
    s(2, 124) = -218673497
    s(2, 125) = 907881277
    s(2, 126) = 423175695
    s(2, 127) = 432175456
    s(2, 128) = 1378068232
    s(2, 129) = -149744970
    s(2, 130) = -340918674
    s(2, 131) = -356311194
    s(2, 132) = -474200683
    s(2, 133) = -1501837181
    s(2, 134) = -1317062703
    s(2, 135) = 26017576
    s(2, 136) = -1020076561
    s(2, 137) = -1100195163
    s(2, 138) = 1700274565
    s(2, 139) = 1756076034
    s(2, 140) = -288447217
    s(2, 141) = -617638597
    s(2, 142) = 720338349
    s(2, 143) = 1533947780
    s(2, 144) = 354530856
    s(2, 145) = 688349552
    s(2, 146) = -321042571
    s(2, 147) = 1637815568
    s(2, 148) = 332179504
    s(2, 149) = -345916010
    s(2, 150) = 53804574
    s(2, 151) = -1442618417
    s(2, 152) = -1250730864
    s(2, 153) = 1282449977
    s(2, 154) = -711025141
    s(2, 155) = -877994476
    s(2, 156) = -288586052
    s(2, 157) = 1617046695
    s(2, 158) = -1666491221
    s(2, 159) = -1292663698
    s(2, 160) = 1686838959
    s(2, 161) = 431878346
    s(2, 162) = -1608291911
    s(2, 163) = 1700445008
    s(2, 164) = 1080580658
    s(2, 165) = 1009431731
    s(2, 166) = 832498133
    s(2, 167) = -1071531785
    s(2, 168) = -1688990951
    s(2, 169) = -2023776103
    s(2, 170) = -1778935426
    s(2, 171) = 1648197032
    s(2, 172) = -130578278
    s(2, 173) = -1746719369
    s(2, 174) = 300782431
    s(2, 175) = 375919233
    s(2, 176) = 238389289
    s(2, 177) = -941219882
    s(2, 178) = -1763778655
    s(2, 179) = 2019080857
    s(2, 180) = 1475708069
    s(2, 181) = 455242339
    s(2, 182) = -1685863425
    s(2, 183) = 448939670
    s(2, 184) = -843904277
    s(2, 185) = 1395535956
    s(2, 186) = -1881585436
    s(2, 187) = 1841049896
    s(2, 188) = 1491858159
    s(2, 189) = 885456874
    s(2, 190) = -30872223
    s(2, 191) = -293847949
    s(2, 192) = 1565136089
    s(2, 193) = -396052509
    s(2, 194) = 1108368660
    s(2, 195) = 540939232
    s(2, 196) = 1173283510
    s(2, 197) = -1549095958
    s(2, 198) = -613658859
    s(2, 199) = -87339056
    s(2, 200) = -951913406
    s(2, 201) = -278217803
    s(2, 202) = 1699691293
    s(2, 203) = 1103962373
    s(2, 204) = -669091426
    s(2, 205) = -2038084153
    s(2, 206) = -464828566
    s(2, 207) = 1031889488
    s(2, 208) = -815619598
    s(2, 209) = 1535977030
    s(2, 210) = -58162272
    s(2, 211) = -1043876189
    s(2, 212) = 2132092099
    s(2, 213) = 1774941330
    s(2, 214) = 1199868427
    s(2, 215) = 1452454533
    s(2, 216) = 157007616
    s(2, 217) = -1390851939
    s(2, 218) = 342012276
    s(2, 219) = 595725824
    s(2, 220) = 1480756522
    s(2, 221) = 206960106
    s(2, 222) = 497939518
    s(2, 223) = 591360097
    s(2, 224) = 863170706
    s(2, 225) = -1919713727
    s(2, 226) = -698356495
    s(2, 227) = 1814182875
    s(2, 228) = 2094937945
    s(2, 229) = -873565088
    s(2, 230) = 1082520231
    s(2, 231) = -831049106
    s(2, 232) = -1509457788
    s(2, 233) = 435703966
    s(2, 234) = -386934699
    s(2, 235) = 1641649973
    s(2, 236) = -1452693590
    s(2, 237) = -989067582
    s(2, 238) = 1510255612
    s(2, 239) = -2146710820
    s(2, 240) = -1639679442
    s(2, 241) = -1018874748
    s(2, 242) = -36346107
    s(2, 243) = 236887753
    s(2, 244) = -613164077
    s(2, 245) = 274041037
    s(2, 246) = 1734335097
    s(2, 247) = -479771840
    s(2, 248) = -976997275
    s(2, 249) = 1899903192
    s(2, 250) = 1026095262
    s(2, 251) = -244449504
    s(2, 252) = 356393447
    s(2, 253) = -1884275382
    s(2, 254) = -421290197
    s(2, 255) = -612127241
    s(3, 0) = -381855128
    s(3, 1) = -1803468553
    s(3, 2) = -162781668
    s(3, 3) = -1805047500
    s(3, 4) = 1091903735
    s(3, 5) = 1979897079
    s(3, 6) = -1124832466
    s(3, 7) = -727580568
    s(3, 8) = -737663887
    s(3, 9) = 857797738
    s(3, 10) = 1136121015
    s(3, 11) = 1342202287
    s(3, 12) = 507115054
    s(3, 13) = -1759230650
    s(3, 14) = 337727348
    s(3, 15) = -1081374656
    s(3, 16) = 1301675037
    s(3, 17) = -1766485585
    s(3, 18) = 1895095763
    s(3, 19) = 1721773893
    s(3, 20) = -1078195732
    s(3, 21) = 62756741
    s(3, 22) = 2142006736
    s(3, 23) = 835421444
    s(3, 24) = -1762973773
    s(3, 25) = 1442658625
    s(3, 26) = -635090970
    s(3, 27) = -1412822374
    s(3, 28) = 676362277
    s(3, 29) = 1392781812
    s(3, 30) = 170690266
    s(3, 31) = -373920261
    s(3, 32) = 1759253602
    s(3, 33) = -683120384
    s(3, 34) = 1745797284
    s(3, 35) = 664899054
    s(3, 36) = 1329594018
    s(3, 37) = -393761396
    s(3, 38) = -1249058810
    s(3, 39) = 2062866102
    s(3, 40) = -1429332356
    s(3, 41) = -751345684
    s(3, 42) = -830954599
    s(3, 43) = 1080764994
    s(3, 44) = 553557557
    s(3, 45) = -638351943
    s(3, 46) = -298199125
    s(3, 47) = 991055499
    s(3, 48) = 499776247
    s(3, 49) = 1265440854
    s(3, 50) = 648242737
    s(3, 51) = -354183246
    s(3, 52) = 980351604
    s(3, 53) = -581221582
    s(3, 54) = 1749149687
    s(3, 55) = -898096901
    s(3, 56) = -83167922
    s(3, 57) = -654396521
    s(3, 58) = 1161844396
    s(3, 59) = -1169648345
    s(3, 60) = 1431517754
    s(3, 61) = 545492359
    s(3, 62) = -26498633
    s(3, 63) = -795437749
    s(3, 64) = 1437099964
    s(3, 65) = -1592419752
    s(3, 66) = -861329053
    s(3, 67) = -1713251533
    s(3, 68) = -1507177898
    s(3, 69) = 1060185593
    s(3, 70) = 1593081372
    s(3, 71) = -1876348548
    s(3, 72) = -34019326
    s(3, 73) = 69676912
    s(3, 74) = -2135222948
    s(3, 75) = 86519011
    s(3, 76) = -1782508216
    s(3, 77) = -456757982
    s(3, 78) = 1220612927
    s(3, 79) = -955283748
    s(3, 80) = 133810670
    s(3, 81) = 1090789135
    s(3, 82) = 1078426020
    s(3, 83) = 1569222167
    s(3, 84) = 845107691
    s(3, 85) = -711212847
    s(3, 86) = -222510705
    s(3, 87) = 1091646820
    s(3, 88) = 628848692
    s(3, 89) = 1613405280
    s(3, 90) = -537335645
    s(3, 91) = 526609435
    s(3, 92) = 236106946
    s(3, 93) = 48312990
    s(3, 94) = -1352249391
    s(3, 95) = -892239595
    s(3, 96) = 1797494240
    s(3, 97) = 859738849
    s(3, 98) = 992217954
    s(3, 99) = -289490654
    s(3, 100) = -2051890674
    s(3, 101) = -424014439
    s(3, 102) = -562951028
    s(3, 103) = 765654824
    s(3, 104) = -804095931
    s(3, 105) = -1783130883
    s(3, 106) = 1685915746
    s(3, 107) = -405998096
    s(3, 108) = 1414112111
    s(3, 109) = -2021832454
    s(3, 110) = -1013056217
    s(3, 111) = -214004450
    s(3, 112) = 172450625
    s(3, 113) = -1724973196
    s(3, 114) = 980381355
    s(3, 115) = -185008841
    s(3, 116) = -1475158944
    s(3, 117) = -1578377736
    s(3, 118) = -1726226100
    s(3, 119) = -613520627
    s(3, 120) = -964995824
    s(3, 121) = 1835478071
    s(3, 122) = 660984891
    s(3, 123) = -590288892
    s(3, 124) = -248967737
    s(3, 125) = -872349789
    s(3, 126) = -1254551662
    s(3, 127) = 1762651403
    s(3, 128) = 1719377915
    s(3, 129) = -824476260
    s(3, 130) = -1601057013
    s(3, 131) = -652910941
    s(3, 132) = -1156370552
    s(3, 133) = 1364962596
    s(3, 134) = 2073328063
    s(3, 135) = 1983633131
    s(3, 136) = 926494387
    s(3, 137) = -871278215
    s(3, 138) = -2144935273
    s(3, 139) = -198299347
    s(3, 140) = 1749200295
    s(3, 141) = -966120645
    s(3, 142) = 309677260
    s(3, 143) = 2016342300
    s(3, 144) = 1779581495
    s(3, 145) = -1215147545
    s(3, 146) = 111262694
    s(3, 147) = 1274766160
    s(3, 148) = 443224088
    s(3, 149) = 298511866
    s(3, 150) = 1025883608
    s(3, 151) = -488520759
    s(3, 152) = 1145181785
    s(3, 153) = 168956806
    s(3, 154) = -653464466
    s(3, 155) = -710153686
    s(3, 156) = 1689216846
    s(3, 157) = -628709281
    s(3, 158) = -1094719096
    s(3, 159) = 1692713982
    s(3, 160) = -1648590761
    s(3, 161) = -252198778
    s(3, 162) = 1618508792
    s(3, 163) = 1610833997
    s(3, 164) = -771914938
    s(3, 165) = -164094032
    s(3, 166) = 2001055236
    s(3, 167) = -684262196
    s(3, 168) = -2092799181
    s(3, 169) = -266425487
    s(3, 170) = -1333771897
    s(3, 171) = 1006657119
    s(3, 172) = 2006996926
    s(3, 173) = -1108824540
    s(3, 174) = 1430667929
    s(3, 175) = -1084739999
    s(3, 176) = 1314452623
    s(3, 177) = -220332638
    s(3, 178) = -193663176
    s(3, 179) = -2021016126
    s(3, 180) = 1399257539
    s(3, 181) = -927756684
    s(3, 182) = -1267338667
    s(3, 183) = 1190975929
    s(3, 184) = 2062231137
    s(3, 185) = -1960976508
    s(3, 186) = -2073424263
    s(3, 187) = -1856006686
    s(3, 188) = 1181637006
    s(3, 189) = 548689776
    s(3, 190) = -1932175983
    s(3, 191) = -922558900
    s(3, 192) = -1190417183
    s(3, 193) = -1149106736
    s(3, 194) = 296247880
    s(3, 195) = 1970579870
    s(3, 196) = -1216407114
    s(3, 197) = -525738999
    s(3, 198) = 1714227617
    s(3, 199) = -1003338189
    s(3, 200) = -396747006
    s(3, 201) = 166772364
    s(3, 202) = 1251581989
    s(3, 203) = 493813264
    s(3, 204) = 448347421
    s(3, 205) = 195405023
    s(3, 206) = -1584991729
    s(3, 207) = 677966185
    s(3, 208) = -591930749
    s(3, 209) = 1463355134
    s(3, 210) = -1578971493
    s(3, 211) = 1338867538
    s(3, 212) = 1343315457
    s(3, 213) = -1492745222
    s(3, 214) = -1610435132
    s(3, 215) = 233230375
    s(3, 216) = -1694987225
    s(3, 217) = 2000651841
    s(3, 218) = -1017099258
    s(3, 219) = 1638401717
    s(3, 220) = -266896856
    s(3, 221) = -1057650976
    s(3, 222) = 6314154
    s(3, 223) = 819756386
    s(3, 224) = 300326615
    s(3, 225) = 590932579
    s(3, 226) = 1405279636
    s(3, 227) = -1027467724
    s(3, 228) = -1144263082
    s(3, 229) = -1866680610
    s(3, 230) = -335774303
    s(3, 231) = -833020554
    s(3, 232) = 1862657033
    s(3, 233) = 1266418056
    s(3, 234) = 963775037
    s(3, 235) = 2089974820
    s(3, 236) = -2031914401
    s(3, 237) = 1917689273
    s(3, 238) = 448879540
    s(3, 239) = -744572676
    s(3, 240) = -313240200
    s(3, 241) = 150775221
    s(3, 242) = -667058989
    s(3, 243) = 1303187396
    s(3, 244) = 508620638
    s(3, 245) = -1318983944
    s(3, 246) = -1568336679
    s(3, 247) = 1817252668
    s(3, 248) = 1876281319
    s(3, 249) = 1457606340
    s(3, 250) = 908771278
    s(3, 251) = -574175177
    s(3, 252) = -677760460
    s(3, 253) = -1838972398
    s(3, 254) = 1729034894
    s(3, 255) = 1080033504
    s(4, 0) = 976866871
    s(4, 1) = -738527793
    s(4, 2) = -1413318857
    s(4, 3) = 1522871579
    s(4, 4) = 1555064734
    s(4, 5) = 1336096578
    s(4, 6) = -746444992
    s(4, 7) = -1715692610
    s(4, 8) = -720269667
    s(4, 9) = -1089506539
    s(4, 10) = -701686658
    s(4, 11) = -956251013
    s(4, 12) = -1215554709
    s(4, 13) = 564236357
    s(4, 14) = -1301368386
    s(4, 15) = 1781952180
    s(4, 16) = 1464380207
    s(4, 17) = -1131123079
    s(4, 18) = -962365742
    s(4, 19) = 1699332808
    s(4, 20) = 1393555694
    s(4, 21) = 1183702653
    s(4, 22) = -713881059
    s(4, 23) = 1288719814
    s(4, 24) = 691649499
    s(4, 25) = -1447410096
    s(4, 26) = -1399511320
    s(4, 27) = -1101077756
    s(4, 28) = -1577396752
    s(4, 29) = 1781354906
    s(4, 30) = 1676643554
    s(4, 31) = -1702433246
    s(4, 32) = -1064713544
    s(4, 33) = 1126444790
    s(4, 34) = -1524759638
    s(4, 35) = -1661808476
    s(4, 36) = -2084544070
    s(4, 37) = -1679201715
    s(4, 38) = -1880812208
    s(4, 39) = -1167828010
    s(4, 40) = 673620729
    s(4, 41) = -1489356063
    s(4, 42) = 1269405062
    s(4, 43) = -279616791
    s(4, 44) = -953159725
    s(4, 45) = -145557542
    s(4, 46) = 1057255273
    s(4, 47) = 2012875353
    s(4, 48) = -2132498155
    s(4, 49) = -2018474495
    s(4, 50) = -1693849939
    s(4, 51) = 993977747
    s(4, 52) = -376373926
    s(4, 53) = -1640704105
    s(4, 54) = 753973209
    s(4, 55) = 36408145
    s(4, 56) = -1764381638
    s(4, 57) = 25011837
    s(4, 58) = -774947114
    s(4, 59) = 2088578344
    s(4, 60) = 530523599
    s(4, 61) = -1376601957
    s(4, 62) = 1524020338
    s(4, 63) = 1518925132
    s(4, 64) = -534139791
    s(4, 65) = -535190042
    s(4, 66) = 1202760957
    s(4, 67) = -309069157
    s(4, 68) = -388774771
    s(4, 69) = 674977740
    s(4, 70) = -120232407
    s(4, 71) = 2031300136
    s(4, 72) = 2019492241
    s(4, 73) = -311074731
    s(4, 74) = -141160892
    s(4, 75) = -472686964
    s(4, 76) = 352677332
    s(4, 77) = -1997247046
    s(4, 78) = 60907813
    s(4, 79) = 90501309
    s(4, 80) = -1007968747
    s(4, 81) = 1016092578
    s(4, 82) = -1759044884
    s(4, 83) = -1455814870
    s(4, 84) = 457141659
    s(4, 85) = 509813237
    s(4, 86) = -174299397
    s(4, 87) = 652014361
    s(4, 88) = 1966332200
    s(4, 89) = -1319764491
    s(4, 90) = 55981186
    s(4, 91) = -1967506245
    s(4, 92) = 676427537
    s(4, 93) = -1039476232
    s(4, 94) = -1412673177
    s(4, 95) = -861040033
    s(4, 96) = 1307055953
    s(4, 97) = 942726286
    s(4, 98) = 933058658
    s(4, 99) = -1826555503
    s(4, 100) = -361066302
    s(4, 101) = -79791154
    s(4, 102) = 1361170020
    s(4, 103) = 2001714738
    s(4, 104) = -1464409218
    s(4, 105) = -1020707514
    s(4, 106) = 1222529897
    s(4, 107) = 1679025792
    s(4, 108) = -1565652976
    s(4, 109) = -580013532
    s(4, 110) = 1770335741
    s(4, 111) = 151462246
    s(4, 112) = -1281735158
    s(4, 113) = 1682292957
    s(4, 114) = 1483529935
    s(4, 115) = 471910574
    s(4, 116) = 1539241949
    s(4, 117) = 458788160
    s(4, 118) = -858652289
    s(4, 119) = 1807016891
    s(4, 120) = -576558466
    s(4, 121) = 978976581
    s(4, 122) = 1043663428
    s(4, 123) = -1129001515
    s(4, 124) = 1927990952
    s(4, 125) = -94075717
    s(4, 126) = -1922690386
    s(4, 127) = -1086558393
    s(4, 128) = -761535389
    s(4, 129) = 1412390302
    s(4, 130) = -1362987237
    s(4, 131) = -162634896
    s(4, 132) = 1947078029
    s(4, 133) = -413461673
    s(4, 134) = -126740879
    s(4, 135) = -1353482915
    s(4, 136) = 1077988104
    s(4, 137) = 1320477388
    s(4, 138) = 886195818
    s(4, 139) = 18198404
    s(4, 140) = -508558296
    s(4, 141) = -1785185763
    s(4, 142) = 112762804
    s(4, 143) = -831610808
    s(4, 144) = 1866414978
    s(4, 145) = 891333506
    s(4, 146) = 18488651
    s(4, 147) = 661792760
    s(4, 148) = 1628790961
    s(4, 149) = -409780260
    s(4, 150) = -1153795797
    s(4, 151) = 876946877
    s(4, 152) = -1601685023
    s(4, 153) = 1372485963
    s(4, 154) = 791857591
    s(4, 155) = -1608533303
    s(4, 156) = -534984578
    s(4, 157) = -1127755274
    s(4, 158) = -822013501
    s(4, 159) = -1578587449
    s(4, 160) = 445679433
    s(4, 161) = -732971622
    s(4, 162) = -790962485
    s(4, 163) = -720709064
    s(4, 164) = 54117162
    s(4, 165) = -963561881
    s(4, 166) = -1913048708
    s(4, 167) = -525259953
    s(4, 168) = -140617289
    s(4, 169) = 1140177722
    s(4, 170) = -220915201
    s(4, 171) = 668550556
    s(4, 172) = -1080614356
    s(4, 173) = 367459370
    s(4, 174) = 261225585
    s(4, 175) = -1684794075
    s(4, 176) = -85617823
    s(4, 177) = -826893077
    s(4, 178) = -1029151655
    s(4, 179) = 314222801
    s(4, 180) = -1228863650
    s(4, 181) = -486184436
    s(4, 182) = 282218597
    s(4, 183) = -888953790
    s(4, 184) = -521376242
    s(4, 185) = 379116347
    s(4, 186) = 1285071038
    s(4, 187) = 846784868
    s(4, 188) = -1625320142
    s(4, 189) = -523005217
    s(4, 190) = -744475605
    s(4, 191) = -1989021154
    s(4, 192) = 453669953
    s(4, 193) = 1268987020
    s(4, 194) = -977374944
    s(4, 195) = -1015663912
    s(4, 196) = -550133875
    s(4, 197) = -1684459730
    s(4, 198) = -435458233
    s(4, 199) = 266596637
    s(4, 200) = -447948204
    s(4, 201) = 517658769
    s(4, 202) = -832407089
    s(4, 203) = -851542417
    s(4, 204) = 370717030
    s(4, 205) = -47440635
    s(4, 206) = -2070949179
    s(4, 207) = -151313767
    s(4, 208) = -182193321
    s(4, 209) = -1506642397
    s(4, 210) = -1817692879
    s(4, 211) = 1456262402
    s(4, 212) = -1393524382
    s(4, 213) = 1517677493
    s(4, 214) = 1846949527
    s(4, 215) = -1999473716
    s(4, 216) = -560569710
    s(4, 217) = -2118563376
    s(4, 218) = 1280348187
    s(4, 219) = 1908823572
    s(4, 220) = -423180355
    s(4, 221) = 846861322
    s(4, 222) = 1172426758
    s(4, 223) = -1007518822
    s(4, 224) = -911584259
    s(4, 225) = 1655181056
    s(4, 226) = -1155153950
    s(4, 227) = 901632758
    s(4, 228) = 1897031941
    s(4, 229) = -1308360158
    s(4, 230) = -1228157060
    s(4, 231) = -847864789
    s(4, 232) = 1393639104
    s(4, 233) = 373351379
    s(4, 234) = 950779232
    s(4, 235) = 625454576
    s(4, 236) = -1170726756
    s(4, 237) = -146354570
    s(4, 238) = 2007998917
    s(4, 239) = 544563296
    s(4, 240) = -2050228658
    s(4, 241) = -1964470824
    s(4, 242) = 2058025392
    s(4, 243) = 1291430526
    s(4, 244) = 424198748
    s(4, 245) = 50039436
    s(4, 246) = 29584100
    s(4, 247) = -689184263
    s(4, 248) = -1865090967
    s(4, 249) = -1503863136
    s(4, 250) = 1057563949
    s(4, 251) = -1039604065
    s(4, 252) = -1219600078
    s(4, 253) = -831004069
    s(4, 254) = 1469046755
    s(4, 255) = 985887462


End Sub


Public Function fStringToHexCode(strText As String) As String
    Dim b() As Byte
    Dim i As Integer
    Dim strRet As String

    b = strText
    strRet = Space((UBound(b) + 1) * 2)
    For i = 0 To UBound(b)
        Mid$(strRet, (i * 2) + 1, 2) = IIf(b(i) < 16, "0", "") & Hex(b(i))
    Next
    fStringToHexCode = strRet
End Function

Public Function fHexCodeToString(strHex As String) As String
    Dim b() As Byte
    Dim i As Integer
    ReDim b((Len(strHex) / 2) - 1)

    For i = 0 To UBound(b)
        b(i) = CByte("&H" & Mid$(strHex, (i * 2) + 1, 2))
    Next
    fHexCodeToString = b
End Function

MENAMPILKAN MAC ADDRESS

'DECLARATION
Declare Function SendARP Lib "iphlpapi.dll" Alias "SendARP" (ByVal DestIP As Int32, ByVal SrcIP As Int32, ByVal pMacAddr() As Byte, ByRef PhyAddrLen As Int32) As Int32

'Code:

Public Shared Function GetMac(ByVal ipAddr As String) As String

        Dim macAddress As String = String.Empty
        Try
            Dim destIP As Net.IPAddress = Net.IPAddress.Parse(ipAddr)
            Dim IP() As Byte = destIP.GetAddressBytes()
            Dim IPInt As Int32 = BitConverter.ToInt32(IP, 0)
            Dim mac() As Byte = New Byte(5) {}
            SendARP(IPInt, 0, mac, mac.Length)
            macAddress = BitConverter.ToString(mac, 0, mac.Length)
        Catch ex As Exception
            Debug.Write(ex.Message)
        End Try
        Return macAddress

End Function

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

Me.MACAddressDisplayLabel.Text = GetMac(Me.MacLocalIPAddressBox.Text)
End Sub

ENKRIPSI ALGORITMA AES

'CLS:
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CRijndael"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'   Credits :      Phil Fresle
Option Explicit
Private m_lOnBits(30)    As Long
Private m_l2Power(30)    As Long
Private m_bytOnBits(7)   As Byte
Private m_byt2Power(7)   As Byte
Private m_InCo(3)        As Byte
Private m_fbsub(255)     As Byte
Private m_rbsub(255)     As Byte
Private m_ptab(255)      As Byte
Private m_ltab(255)      As Byte
Private m_ftable(255)    As Long
Private m_rtable(255)    As Long
Private m_rco(29)        As Long
Private m_Nk             As Long
Private m_Nb             As Long
Private m_Nr             As Long
Private m_fi(23)         As Byte
Private m_ri(23)         As Byte
Private m_fkey(119)      As Long
Private m_rkey(119)      As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, ByVal Source As Any, ByVal Length As Long)
Private Sub Class_Initialize()
    m_InCo(0) = &HB:    m_InCo(1) = &HD
    m_InCo(2) = &H9:    m_InCo(3) = &HE
    m_bytOnBits(0) = 1          ' 00000001
    m_bytOnBits(1) = 3          ' 00000011
    m_bytOnBits(2) = 7          ' 00000111
    m_bytOnBits(3) = 15         ' 00001111
    m_bytOnBits(4) = 31         ' 00011111
    m_bytOnBits(5) = 63         ' 00111111
    m_bytOnBits(6) = 127        ' 01111111
    m_bytOnBits(7) = 255        ' 11111111
    m_byt2Power(0) = 1          ' 00000001
    m_byt2Power(1) = 2          ' 00000010
    m_byt2Power(2) = 4          ' 00000100
    m_byt2Power(3) = 8          ' 00001000
    m_byt2Power(4) = 16         ' 00010000
    m_byt2Power(5) = 32         ' 00100000
    m_byt2Power(6) = 64         ' 01000000
    m_byt2Power(7) = 128        ' 10000000
    m_lOnBits(0) = 1            ' 00000000000000000000000000000001
    m_lOnBits(1) = 3            ' 00000000000000000000000000000011
    m_lOnBits(2) = 7            ' 00000000000000000000000000000111
    m_lOnBits(3) = 15           ' 00000000000000000000000000001111
    m_lOnBits(4) = 31           ' 00000000000000000000000000011111
    m_lOnBits(5) = 63           ' 00000000000000000000000000111111
    m_lOnBits(6) = 127          ' 00000000000000000000000001111111
    m_lOnBits(7) = 255          ' 00000000000000000000000011111111
    m_lOnBits(8) = 511          ' 00000000000000000000000111111111
    m_lOnBits(9) = 1023         ' 00000000000000000000001111111111
    m_lOnBits(10) = 2047        ' 00000000000000000000011111111111
    m_lOnBits(11) = 4095        ' 00000000000000000000111111111111
    m_lOnBits(12) = 8191        ' 00000000000000000001111111111111
    m_lOnBits(13) = 16383       ' 00000000000000000011111111111111
    m_lOnBits(14) = 32767       ' 00000000000000000111111111111111
    m_lOnBits(15) = 65535       ' 00000000000000001111111111111111
    m_lOnBits(16) = 131071      ' 00000000000000011111111111111111
    m_lOnBits(17) = 262143      ' 00000000000000111111111111111111
    m_lOnBits(18) = 524287      ' 00000000000001111111111111111111
    m_lOnBits(19) = 1048575     ' 00000000000011111111111111111111
    m_lOnBits(20) = 2097151     ' 00000000000111111111111111111111
    m_lOnBits(21) = 4194303     ' 00000000001111111111111111111111
    m_lOnBits(22) = 8388607     ' 00000000011111111111111111111111
    m_lOnBits(23) = 16777215    ' 00000000111111111111111111111111
    m_lOnBits(24) = 33554431    ' 00000001111111111111111111111111
    m_lOnBits(25) = 67108863    ' 00000011111111111111111111111111
    m_lOnBits(26) = 134217727   ' 00000111111111111111111111111111
    m_lOnBits(27) = 268435455   ' 00001111111111111111111111111111
    m_lOnBits(28) = 536870911   ' 00011111111111111111111111111111
    m_lOnBits(29) = 1073741823  ' 00111111111111111111111111111111
    m_lOnBits(30) = 2147483647  ' 01111111111111111111111111111111
    m_l2Power(0) = 1            ' 00000000000000000000000000000001
    m_l2Power(1) = 2            ' 00000000000000000000000000000010
    m_l2Power(2) = 4            ' 00000000000000000000000000000100
    m_l2Power(3) = 8            ' 00000000000000000000000000001000
    m_l2Power(4) = 16           ' 00000000000000000000000000010000
    m_l2Power(5) = 32           ' 00000000000000000000000000100000
    m_l2Power(6) = 64           ' 00000000000000000000000001000000
    m_l2Power(7) = 128          ' 00000000000000000000000010000000
    m_l2Power(8) = 256          ' 00000000000000000000000100000000
    m_l2Power(9) = 512          ' 00000000000000000000001000000000
    m_l2Power(10) = 1024        ' 00000000000000000000010000000000
    m_l2Power(11) = 2048        ' 00000000000000000000100000000000
    m_l2Power(12) = 4096        ' 00000000000000000001000000000000
    m_l2Power(13) = 8192        ' 00000000000000000010000000000000
    m_l2Power(14) = 16384       ' 00000000000000000100000000000000
    m_l2Power(15) = 32768       ' 00000000000000001000000000000000
    m_l2Power(16) = 65536       ' 00000000000000010000000000000000
    m_l2Power(17) = 131072      ' 00000000000000100000000000000000
    m_l2Power(18) = 262144      ' 00000000000001000000000000000000
    m_l2Power(19) = 524288      ' 00000000000010000000000000000000
    m_l2Power(20) = 1048576     ' 00000000000100000000000000000000
    m_l2Power(21) = 2097152     ' 00000000001000000000000000000000
    m_l2Power(22) = 4194304     ' 00000000010000000000000000000000
    m_l2Power(23) = 8388608     ' 00000000100000000000000000000000
    m_l2Power(24) = 16777216    ' 00000001000000000000000000000000
    m_l2Power(25) = 33554432    ' 00000010000000000000000000000000
    m_l2Power(26) = 67108864    ' 00000100000000000000000000000000
    m_l2Power(27) = 134217728   ' 00001000000000000000000000000000
    m_l2Power(28) = 268435456   ' 00010000000000000000000000000000
    m_l2Power(29) = 536870912   ' 00100000000000000000000000000000
    m_l2Power(30) = 1073741824  ' 01000000000000000000000000000000
End Sub
Private Function LShift(ByVal lValue As Long, ByVal iShiftBits As Integer) As Long
    If iShiftBits = 0 Then
        LShift = lValue:        Exit Function
    ElseIf iShiftBits = 31 Then
        LShift = IIf(lValue And 1, &H80000000, 0)
        Exit Function
    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
        Err.Raise 6
    End If
    If (lValue And m_l2Power(31 - iShiftBits)) Then
        LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
    Else
        LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
    End If
End Function
Private Function RShift(ByVal lValue As Long, ByVal iShiftBits As Integer) As Long
    If iShiftBits = 0 Then
        RShift = lValue:        Exit Function
    ElseIf iShiftBits = 31 Then
        RShift = IIf(lValue And &H80000000, 1, 0)
        Exit Function
    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
        Err.Raise 6
    End If
    RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)
    If (lValue And &H80000000) Then RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))
End Function
Private Function LShiftByte(ByVal bytValue As Byte, ByVal bytShiftBits As Byte) As Byte
    If bytShiftBits = 0 Then
        LShiftByte = bytValue:        Exit Function
    ElseIf bytShiftBits = 7 Then
        LShiftByte = IIf(bytValue And 1, &H80, 0)
        Exit Function
    ElseIf bytShiftBits < 0 Or bytShiftBits > 7 Then
        Err.Raise 6
    End If
    LShiftByte = ((bytValue And m_bytOnBits(7 - bytShiftBits)) * m_byt2Power(bytShiftBits))
End Function
Private Function RShiftByte(ByVal bytValue As Byte, ByVal bytShiftBits As Byte) As Byte
    If bytShiftBits = 0 Then
        RShiftByte = bytValue:        Exit Function
    ElseIf bytShiftBits = 7 Then
        RShiftByte = IIf(bytValue And &H80, 1, 0)
        Exit Function
    ElseIf bytShiftBits < 0 Or bytShiftBits > 7 Then
        Err.Raise 6
    End If
    RShiftByte = bytValue \ m_byt2Power(bytShiftBits)
End Function
Private Function RotateLeft(ByVal lValue As Long, ByVal iShiftBits As Integer) As Long
    RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
End Function
Private Function RotateLeftByte(ByVal bytValue As Byte, ByVal bytShiftBits As Byte) As Byte
    RotateLeftByte = LShiftByte(bytValue, bytShiftBits) Or RShiftByte(bytValue, (8 - bytShiftBits))
End Function
Private Function Pack(b() As Byte) As Long
Dim lCount As Long, lTemp  As Long
    For lCount = 0 To 3
        lTemp = b(lCount): Pack = Pack Or LShift(lTemp, (lCount * 8))
    Next lCount
End Function
Private Function PackFrom(b() As Byte, ByVal k As Long) As Long
Dim lCount As Long, lTemp  As Long
    For lCount = 0 To 3
        lTemp = b(lCount + k): PackFrom = PackFrom Or LShift(lTemp, (lCount * 8))
    Next lCount
End Function
Private Sub Unpack(ByVal a As Long, b() As Byte)
    b(0) = a And m_lOnBits(7)
    b(1) = RShift(a, 8) And m_lOnBits(7)
    b(2) = RShift(a, 16) And m_lOnBits(7)
    b(3) = RShift(a, 24) And m_lOnBits(7)
End Sub
Private Sub UnpackFrom(ByVal a As Long, b() As Byte, ByVal k As Long)
    b(0 + k) = a And m_lOnBits(7)
    b(1 + k) = RShift(a, 8) And m_lOnBits(7)
    b(2 + k) = RShift(a, 16) And m_lOnBits(7)
    b(3 + k) = RShift(a, 24) And m_lOnBits(7)
End Sub
Private Function Xtime(ByVal a As Byte) As Byte
Dim b As Byte:    b = IIf(a And &H80, &H1B, 0)
    a = LShiftByte(a, 1):   a = a Xor b:   Xtime = a
End Function
Private Function Bmul(ByVal x As Byte, y As Byte) As Byte
    If x 0 And y 0 Then
        Bmul = m_ptab((CLng(m_ltab(x)) + CLng(m_ltab(y))) Mod 255)
    Else
        Bmul = 0
    End If
End Function
Private Function SubByte(ByVal a As Long) As Long
Dim b(3) As Byte
    Unpack a, b
    b(0) = m_fbsub(b(0)):    b(1) = m_fbsub(b(1))
    b(2) = m_fbsub(b(2)):    b(3) = m_fbsub(b(3))
    SubByte = Pack(b)
End Function
Private Function Product(ByVal x As Long, ByVal y As Long) As Long
Dim xb(3) As Byte, yb(3) As Byte
    Unpack x, xb:    Unpack y, yb
    Product = Bmul(xb(0), yb(0)) Xor Bmul(xb(1), yb(1)) Xor Bmul(xb(2), yb(2)) Xor Bmul(xb(3), yb(3))
End Function
Private Function InvMixCol(ByVal x As Long) As Long
Dim y       As Long, m       As Long, b(3)    As Byte
    m = Pack(m_InCo)
    b(3) = Product(m, x):    m = RotateLeft(m, 24)
    b(2) = Product(m, x):    m = RotateLeft(m, 24)
    b(1) = Product(m, x):    m = RotateLeft(m, 24)
    b(0) = Product(m, x):    y = Pack(b)
    InvMixCol = y
End Function
Private Function ByteSub(ByVal x As Byte) As Byte
Dim y As Byte
    y = m_ptab(255 - m_ltab(x)):    x = y
    x = RotateLeftByte(x, 1):       y = y Xor x
    x = RotateLeftByte(x, 1):       y = y Xor x
    x = RotateLeftByte(x, 1):       y = y Xor x
    x = RotateLeftByte(x, 1):       y = y Xor x
    y = y Xor &H63:              ByteSub = y
End Function
Private Sub gentables()
Dim i    As Long, y As Byte
Dim b(3) As Byte, ib As Byte
    m_ltab(0) = 0:    m_ptab(0) = 1
    m_ltab(1) = 0:    m_ptab(1) = 3
    m_ltab(3) = 1
    For i = 2 To 255
        m_ptab(i) = m_ptab(i - 1) Xor Xtime(m_ptab(i - 1))
        m_ltab(m_ptab(i)) = i
    Next i
    m_fbsub(0) = &H63:    m_rbsub(&H63) = 0
    For i = 1 To 255
        ib = i:        y = ByteSub(ib)
        m_fbsub(i) = y:        m_rbsub(y) = i
    Next i
    y = 1
    For i = 0 To 29
        m_rco(i) = y:        y = Xtime(y)
    Next i
    For i = 0 To 255
        y = m_fbsub(i):        b(3) = y Xor Xtime(y)
        b(2) = y:               b(1) = y
        b(0) = Xtime(y):        m_ftable(i) = Pack(b)
        y = m_rbsub(i):        b(3) = Bmul(m_InCo(0), y)
        b(2) = Bmul(m_InCo(1), y): b(1) = Bmul(m_InCo(2), y)
        b(0) = Bmul(m_InCo(3), y): m_rtable(i) = Pack(b)
    Next i
End Sub
Private Sub gkey(ByVal nb As Long, ByVal nk As Long, Key() As Byte)
Dim i            As Long, j As Long, k As Long, m As Long
Dim N            As Long, C1 As Long, C2 As Long, C3 As Long
Dim CipherKey(7) As Long
    m_Nb = nb:    m_Nk = nk
    If m_Nb >= m_Nk Then
        m_Nr = 6 + m_Nb
    Else
        m_Nr = 6 + m_Nk
    End If
    C1 = 1
    If m_Nb < 8 Then
        C2 = 2:        C3 = 3
    Else
        C2 = 3:        C3 = 4
    End If
    For j = 0 To nb - 1
        m = j * 3
        m_fi(m) = (j + C1) Mod nb
        m_fi(m + 1) = (j + C2) Mod nb
        m_fi(m + 2) = (j + C3) Mod nb
        m_ri(m) = (nb + j - C1) Mod nb
        m_ri(m + 1) = (nb + j - C2) Mod nb
        m_ri(m + 2) = (nb + j - C3) Mod nb
    Next j
    N = m_Nb * (m_Nr + 1)
    For i = 0 To m_Nk - 1
        j = i * 4:        CipherKey(i) = PackFrom(Key, j)
    Next i
    For i = 0 To m_Nk - 1
        m_fkey(i) = CipherKey(i)
    Next i
    j = m_Nk:    k = 0
    Do While j < N
        m_fkey(j) = m_fkey(j - m_Nk) Xor SubByte(RotateLeft(m_fkey(j - 1), 24)) Xor m_rco(k)
        If m_Nk
            i = 1
            Do While i < m_Nk And (i + j) < N
                m_fkey(i + j) = m_fkey(i + j - m_Nk) Xor m_fkey(i + j - 1): i = i + 1
            Loop
        Else
            i = 1
            Do While i < 4 And (i + j) < N
                m_fkey(i + j) = m_fkey(i + j - m_Nk) Xor m_fkey(i + j - 1): i = i + 1
            Loop
            If j + 4 < N Then
                m_fkey(j + 4) = m_fkey(j + 4 - m_Nk) Xor SubByte(m_fkey(j + 3))
            End If
            i = 5
            Do While i < m_Nk And (i + j) < N
                m_fkey(i + j) = m_fkey(i + j - m_Nk) Xor m_fkey(i + j - 1): i = i + 1
            Loop
        End If
        j = j + m_Nk:        k = k + 1
    Loop
    For j = 0 To m_Nb - 1
        m_rkey(j + N - nb) = m_fkey(j)
    Next j
    i = m_Nb
    Do While i < N - m_Nb
        k = N - m_Nb - i
        For j = 0 To m_Nb - 1
            m_rkey(k + j) = InvMixCol(m_fkey(i + j))
        Next j
        i = i + m_Nb
    Loop
    j = N - m_Nb
    Do While j < N
        m_rkey(j - N + m_Nb) = m_fkey(j):        j = j + 1
    Loop
End Sub
Private Sub Encrypt(Buff() As Byte)
Dim i    As Long, j As Long, k As Long, m As Long
Dim a(7) As Long, b(7) As Long, x() As Long
Dim y()  As Long, t() As Long
    For i = 0 To m_Nb - 1
        j = i * 4: a(i) = PackFrom(Buff, j): a(i) = a(i) Xor m_fkey(i)
    Next i
    k = m_Nb:    x = a:    y = b
    For i = 1 To m_Nr - 1
        For j = 0 To m_Nb - 1
            m = j * 3
            y(j) = m_fkey(k) Xor m_ftable(x(j) And m_lOnBits(7)) Xor RotateLeft(m_ftable(RShift(x(m_fi(m)), 8) And m_lOnBits(7)), 8) Xor RotateLeft(m_ftable(RShift(x(m_fi(m + 1)), 16) And m_lOnBits(7)), 16) Xor RotateLeft(m_ftable(RShift(x(m_fi(m + 2)), 24) And m_lOnBits(7)), 24)
            k = k + 1
        Next j
        t = x:        x = y:        y = t
    Next i
    For j = 0 To m_Nb - 1
        m = j * 3
        y(j) = m_fkey(k) Xor m_fbsub(x(j) And m_lOnBits(7)) Xor RotateLeft(m_fbsub(RShift(x(m_fi(m)), 8) And m_lOnBits(7)), 8) Xor RotateLeft(m_fbsub(RShift(x(m_fi(m + 1)), 16) And m_lOnBits(7)), 16) Xor RotateLeft(m_fbsub(RShift(x(m_fi(m + 2)), 24) And m_lOnBits(7)), 24)
        k = k + 1
    Next j
    For i = 0 To m_Nb - 1
        j = i * 4: UnpackFrom y(i), Buff, j: x(i) = 0: y(i) = 0
    Next i
End Sub
Private Sub Decrypt(Buff() As Byte)
Dim i    As Long, j As Long, k As Long, m As Long
Dim a(7) As Long, b(7) As Long, x() As Long
Dim y()  As Long, t() As Long
    For i = 0 To m_Nb - 1
        j = i * 4: a(i) = PackFrom(Buff, j): a(i) = a(i) Xor m_rkey(i)
    Next i
    k = m_Nb:    x = a:    y = b
    For i = 1 To m_Nr - 1
        For j = 0 To m_Nb - 1
            m = j * 3
            y(j) = m_rkey(k) Xor m_rtable(x(j) And m_lOnBits(7)) Xor RotateLeft(m_rtable(RShift(x(m_ri(m)), 8) And m_lOnBits(7)), 8) Xor RotateLeft(m_rtable(RShift(x(m_ri(m + 1)), 16) And m_lOnBits(7)), 16) Xor RotateLeft(m_rtable(RShift(x(m_ri(m + 2)), 24) And m_lOnBits(7)), 24)
            k = k + 1
        Next j
        t = x:        x = y:        y = t
    Next i
    For j = 0 To m_Nb - 1
        m = j * 3
        y(j) = m_rkey(k) Xor m_rbsub(x(j) And m_lOnBits(7)) Xor RotateLeft(m_rbsub(RShift(x(m_ri(m)), 8) And m_lOnBits(7)), 8) Xor RotateLeft(m_rbsub(RShift(x(m_ri(m + 1)), 16) And m_lOnBits(7)), 16) Xor RotateLeft(m_rbsub(RShift(x(m_ri(m + 2)), 24) And m_lOnBits(7)), 24)
        k = k + 1
    Next j
    For i = 0 To m_Nb - 1
        j = i * 4: UnpackFrom y(i), Buff, j: x(i) = 0: y(i) = 0
    Next i
End Sub
Private Function IsInitialized(ByRef vArray As Variant) As Boolean
    On Local Error Resume Next
    IsInitialized = IsNumeric(UBound(vArray))
End Function
Public Function EncryptData(bytMessage() As Byte, bytPassword() As Byte) As Byte()
Dim bytKey(31)     As Byte, bytIn() As Byte, bytOut() As Byte
Dim bytTemp(31)    As Byte, lCount As Long, lLength As Long
Dim lEncodedLength As Long, bytLen(3) As Byte, lPosition As Long
    If Not IsInitialized(bytMessage) Then Exit Function
    If Not IsInitialized(bytPassword) Then Exit Function
    For lCount = 0 To UBound(bytPassword)
        bytKey(lCount) = bytPassword(lCount): If lCount = 31 Then Exit For
    Next lCount
    gentables
    gkey 8, 8, bytKey
    lLength = UBound(bytMessage) + 1:    lEncodedLength = lLength + 4
    If lEncodedLength Mod 32 0 Then lEncodedLength = lEncodedLength + 32 - (lEncodedLength Mod 32)
    ReDim bytIn(lEncodedLength - 1):    ReDim bytOut(lEncodedLength - 1)
    CopyMemory VarPtr(bytIn(0)), VarPtr(lLength), 4
    CopyMemory VarPtr(bytIn(4)), VarPtr(bytMessage(0)), lLength
    For lCount = 0 To lEncodedLength - 1 Step 32
        CopyMemory VarPtr(bytTemp(0)), VarPtr(bytIn(lCount)), 32
        Encrypt bytTemp
        CopyMemory VarPtr(bytOut(lCount)), VarPtr(bytTemp(0)), 32
    Next lCount
    EncryptData = bytOut
End Function
Public Function DecryptData(bytIn() As Byte, bytPassword() As Byte) As Byte()
Dim bytMessage()   As Byte, bytKey(31) As Byte, bytOut() As Byte
Dim bytTemp(31)    As Byte, lCount As Long, lLength As Long
Dim lEncodedLength As Long, bytLen(3) As Byte, lPosition As Long
    If Not IsInitialized(bytIn) Then Exit Function
    If Not IsInitialized(bytPassword) Then Exit Function
    lEncodedLength = UBound(bytIn) + 1
    If lEncodedLength Mod 32 0 Then Exit Function
    For lCount = 0 To UBound(bytPassword)
        bytKey(lCount) = bytPassword(lCount):  If lCount = 31 Then Exit For
    Next lCount
    gentables
    gkey 8, 8, bytKey
    ReDim bytOut(lEncodedLength - 1)
    For lCount = 0 To lEncodedLength - 1 Step 32
        CopyMemory VarPtr(bytTemp(0)), VarPtr(bytIn(lCount)), 32
        Decrypt bytTemp
        CopyMemory VarPtr(bytOut(lCount)), VarPtr(bytTemp(0)), 32
    Next lCount
    CopyMemory VarPtr(lLength), VarPtr(bytOut(0)), 4
    If lLength > lEncodedLength - 4 Then Exit Function
    ReDim bytMessage(lLength - 1)
    CopyMemory VarPtr(bytMessage(0)), VarPtr(bytOut(4)), lLength
    DecryptData = bytMessage
End Function
====================================================================
'MODUL:
Attribute VB_Name = "modCryptText"
Option Explicit
'   encrypt text messages using AES_Rijndael Block Cipher
'   by Dipankar Basu.
Private oTest  As CRijndael
Public Function strEncrypt(ByVal strMsg As String, ByVal pKey As String) As String
Dim ByteArray() As Byte, byteKey() As Byte, CryptText() As Byte
    On Local Error Resume Next
'   If strMsg = vbNullString Or pKey = vbNullString Then Exit Function
    Set oTest = New CRijndael
    ByteArray() = StrConv(strMsg, vbFromUnicode)
    byteKey() = StrConv(pKey, vbFromUnicode)
    CryptText() = oTest.EncryptData(ByteArray(), byteKey())
    Set oTest = Nothing
    strEncrypt = StrConv(CryptText(), vbUnicode)
End Function
Public Function strDecrypt(ByVal strMsg As String, ByVal pKey As String) As String
Dim ByteArray() As Byte, byteKey() As Byte, CryptText() As Byte
    On Local Error Resume Next
'   If strMsg = vbNullString Or pKey = vbNullString Then Exit Function
    Set oTest = New CRijndael
    ByteArray() = StrConv(strMsg, vbFromUnicode)
    byteKey() = StrConv(pKey, vbFromUnicode)
    CryptText() = oTest.DecryptData(ByteArray(), byteKey())
    Set oTest = Nothing
    strDecrypt = StrConv(CryptText(), vbUnicode)
End Function
Public Function Hex2Str(ByVal strData As String)
Dim i As Long, CryptString As String, tmpChar As String
    On Local Error Resume Next
    For i = 1 To Len(strData) Step 2
        CryptString = CryptString & Chr$(Val("&H" & Mid$(strData, i, 2)))
    Next i
    Hex2Str = CryptString
End Function
Public Function Str2Hex(ByVal strData As String)
Dim i As Long, CryptString As String, tmpAppend As String
    On Local Error Resume Next
    For i = 1 To Len(strData)
        tmpAppend = Hex$(Asc(Mid$(strData, i, 1)))
        If Len(tmpAppend) = 1 Then tmpAppend = Trim$(Str$(0)) & tmpAppend
        CryptString = CryptString & tmpAppend: DoEvents
    Next i
    Str2Hex = CryptString
End Function
Public Function FileExists(ByVal sFilename As String) As Boolean
Dim Fl As Integer: Fl = Len(Dir$(sFilename))
    On Local Error Resume Next
    FileExists = IIf(Err Or Fl = 0, False, True)
End Function
Private Function GenRaND() As Byte
Dim RandomSeed As Integer
    Randomize
    RandomSeed = Int(Rnd * 3) + 1
    If RandomSeed = 1 Then
        GenRaND = Int(26 * Rnd + 65)
    ElseIf RandomSeed = 2 Then
        GenRaND = Int(26 * Rnd + 97)
    Else ' RandomSeed = 3 Then
        GenRaND = Int(10 * Rnd + 48)
    End If
End Function
Public Function GenKey(ByVal PassLength As Integer) As String
Dim tempPassword As String, i As Integer
    For i = 1 To PassLength
        tempPassword = tempPassword & Chr$(GenRaND)
    Next i
    GenKey = tempPassword
End Function
'Copyright (c)2003 by Dipankar Basu
' http://www.geocities.com/basudip_in/
 ==================================================
'FORM 1:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmMain
   BorderStyle     =   1  'Fixed Single
   Caption         =   "CryptText"
   ClientHeight    =   6630
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7590
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6630
   ScaleWidth      =   7590
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdChPass
      Caption         =   "Change &Password"
      Height          =   495
      Left            =   360
      TabIndex        =   9
      ToolTipText     =   "change password for Private Key"
      Top             =   6000
      Width           =   1335
   End
   Begin VB.CommandButton cmdGenKey
      Caption         =   "&Generate Key"
      Height          =   495
      Left            =   4500
      TabIndex        =   8
      ToolTipText     =   "Create Private Key"
      Top             =   6000
      Width           =   1335
   End
   Begin VB.CommandButton cmdDwK
      Caption         =   "De&crypt with Key"
      Height          =   495
      Left            =   3120
      TabIndex        =   7
      ToolTipText     =   "decrypt using private key"
      Top             =   6000
      Width           =   1335
   End
   Begin VB.CommandButton cmdEwK
      Caption         =   "E&ncrypt with Key"
      Height          =   495
      Left            =   1740
      TabIndex        =   6
      ToolTipText     =   "encrypt using private key"
      Top             =   6000
      Width           =   1335
   End
   Begin MSComDlg.CommonDialog CommonDialog1
      Left            =   7560
      Top             =   2760
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton cmdOpen
      Caption         =   "&Open"
      Height          =   495
      Left            =   4500
      TabIndex        =   5
      ToolTipText     =   "open encrypted file"
      Top             =   5400
      Width           =   1335
   End
   Begin VB.CommandButton cmdSave
      Caption         =   "Sa&ve"
      Height          =   495
      Left            =   3120
      TabIndex        =   4
      ToolTipText     =   "save to a file"
      Top             =   5400
      Width           =   1335
   End
   Begin VB.CommandButton cmdExit
      Cancel          =   -1  'True
      Caption         =   "Clo&se"
      Height          =   1095
      Left            =   5880
      TabIndex        =   3
      ToolTipText     =   "Exit"
      Top             =   5400
      Width           =   1335
   End
   Begin VB.CommandButton cmdDecrypt
      Caption         =   "&Decrypt"
      Height          =   495
      Left            =   1740
      TabIndex        =   2
      ToolTipText     =   "decrypt text"
      Top             =   5400
      Width           =   1335
   End
   Begin VB.CommandButton cmdEncrypt
      Caption         =   "&Encrypt"
      Height          =   495
      Left            =   360
      TabIndex        =   1
      ToolTipText     =   "encrypt text"
      Top             =   5400
      Width           =   1335
   End
   Begin VB.TextBox Text1
      Height          =   4935
      Left            =   240
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   240
      Width           =   7095
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit '   CryptTextAES by Dipankar Basu
Private Sub cmdChPass_Click()
Dim myPassKey As String, currPass As String
    currPass = InputBox("Password for your key", "Input old password")
    If StrPtr(currPass) = 0 Then Exit Sub
    myPassKey = GetMyPassKey(currPass)
    If Len(myPassKey) = 25 Then  ' this is the length of PassPhrase, see GenKey(N)
        currPass = InputBox("Password for your key", "Input new password")
        If currPass = vbNullString Then Exit Sub
        myPassKey = Str2Hex(strEncrypt(myPassKey, currPass))
        SaveSetting "BasuDip Applications", "CryptTextAES", "PassPhraseKey", myPassKey
        myPassKey = Str2Hex(strEncrypt(currPass, StrReverse(currPass)))
        SaveSetting "BasuDip Applications", "CryptTextAES", "keyPassword", myPassKey
        MsgBox "Your password is successfully changed", , "Password Changed"
    Else
        MsgBox "The Password for your Key is Incorrect", , "Try again"
    End If
End Sub
Private Sub cmdDecrypt_Click()
Dim sTemp As String, sPassword As String
    sTemp = Trim$(Text1.Text)
    sPassword = InputBox("Input the password", "Decrypt with key", "Password Passphrase")
    If StrPtr(sPassword) = 0 Then Exit Sub
    sTemp = Hex2Str(sTemp)
    Text1.Text = strDecrypt(sTemp, sPassword)
End Sub
Private Sub cmdDwK_Click()
Dim sTemp As String, sPassword As String
    sTemp = Trim$(Text1.Text)
    sPassword = InputBox("PassPhrase Key Password", "Decrypt")
    If sPassword = vbNullString Then Exit Sub
    sPassword = GetMyPassKey(sPassword)
    If sPassword = vbNullString Then Exit Sub
    sTemp = Hex2Str(sTemp)
    Text1.Text = strDecrypt(sTemp, sPassword)
End Sub
Private Sub cmdEncrypt_Click()
Dim sTemp As String, sPassword As String
    sTemp = Text1.Text
    sPassword = InputBox("Input a password", "Encrypt with key", "Password Passphrase")
    If StrPtr(sPassword) = 0 Then Exit Sub
    sTemp = strEncrypt(sTemp, sPassword)
    Text1.Text = Str2Hex(sTemp)
End Sub
Private Sub cmdEwK_Click()
Dim sTemp As String, sPassword As String
    sTemp = Text1.Text
    sPassword = InputBox("PassPhrase Key Password", "Encrypt")
    If sPassword = vbNullString Then Exit Sub
    sPassword = GetMyPassKey(sPassword)
    If sPassword = vbNullString Then Exit Sub
    sTemp = strEncrypt(sTemp, sPassword)
    Text1.Text = Str2Hex(sTemp)
End Sub
Private Sub cmdExit_Click()
    Unload Me: End
End Sub
Private Sub cmdGenKey_Click()
Dim passPhrase As String, myKey As String, var As String, answer As Integer
    var = GetSetting("BasuDip Applications", "CryptTextAES", "PassPhraseKey")
    If var = vbNullString Then
        passPhrase = InputBox("Please provide a password to protect your key", "Create PassPhrase Private Key")
        If StrPtr(passPhrase) = 0 Or passPhrase = vbNullString Then Exit Sub
        myKey = Str2Hex(strEncrypt(GenKey(25), passPhrase))
        SaveSetting "BasuDip Applications", "CryptTextAES", "PassPhraseKey", myKey
        myKey = Str2Hex(strEncrypt(passPhrase, StrReverse(passPhrase)))
        SaveSetting "BasuDip Applications", "CryptTextAES", "keyPassword", myKey
        MsgBox "Password Key is Created, Please remember your password", vbInformation, "Create PassPhrase Key"
    Else
        answer = MsgBox("You are about to create a new key, any data that was encrypted with " & "your previous key becomes unrecoverable. You'll not be able to decrypt " & "any data encrypted with your old key." & vbNewLine & "Click on Change " & "Password to change the password for the existing key." & vbNewLine & "It is recommended to keep a backup of your old key, before creating a new key." & vbNewLine & "Do you wish to continue in creating a new PassPhrase key ?", vbYesNo + vbDefaultButton2 + vbCritical, "WARNING : Create a New Key")
        If answer = vbYes Then
            DeleteSetting "BasuDip Applications", "CryptTextAES", "PassPhraseKey"
            DeleteSetting "BasuDip Applications", "CryptTextAES", "keyPassword"
            Call cmdGenKey_Click
        End If
    End If
End Sub
Private Sub cmdOpen_Click()
Dim sFilename As String
    On Error GoTo eh:
    With CommonDialog1
        .CancelError = True
        .DialogTitle = "Open Encrypted File"
        .Filter = "Text Files(*.txt)|*.txt|Rich Text Files(*.rtf)|*.rtf|All Files(*.*)|*.*|"
        .InitDir = App.Path
        .Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
        .ShowOpen
        sFilename = .FileName
    End With
    Open sFilename For Input As #1
    Text1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)
    Close #1
    If Right$(Text1.Text, 2) = vbNewLine Then Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 2)
Exit Sub
eh:
    If Err.Number = 2755 Then Exit Sub ' CancelButton on OpenFile
End Sub
Private Sub cmdSave_Click()
Dim sFilePath As String, Fn As Integer
    sFilePath = IIf(Right$(App.Path, 1) = "\", App.Path, App.Path & "\")
fnExists:
    Fn = Fn + 1
    If FileExists(sFilePath & "crypt" & Fn & ".txt") Then GoTo fnExists
    Open sFilePath & "crypt" & Fn & ".txt" For Output As #1
    Print #1, Text1.Text: Close #1
    MsgBox "File is saved to ..." & vbNewLine & sFilePath & "Crypt" & Fn & ".txt", vbInformation, "Text Encryption"
End Sub
Private Function GetMyPassKey(ByVal myPassword As String) As String
Dim regData As String, myKey As String
    If myPassword = vbNullString Then Exit Function
    myKey = Str2Hex(strEncrypt(myPassword, StrReverse(myPassword)))
    regData = GetSetting("BasuDip Applications", "CryptTextAES", "keyPassword")
    If myKey = regData Then
        regData = GetSetting("BasuDip Applications", "CryptTextAES", "PassPhraseKey")
        GetMyPassKey = strDecrypt(Hex2Str(regData), myPassword)
    Else
        GetMyPassKey = vbNullString
    End If
End Function