clsblowfish.cls

Inventory control system

  m_sBox(3, 173) = &H46FCD9B9
  m_sBox(0, 174) = &H7AEB2661
  m_sBox(1, 174) = &H8B1DDF84
  m_sBox(2, 174) = &H846A0E79
  m_sBox(3, 174) = &H915F95E2
  m_sBox(0, 175) = &H466E598E
  m_sBox(1, 175) = &H20B45770
  m_sBox(2, 175) = &H8CD55591
  m_sBox(3, 175) = &HC902DE4C
  m_sBox(0, 176) = &HB90BACE1
  m_sBox(1, 176) = &HBB8205D0
  m_sBox(2, 176) = &H11A86248
  m_sBox(3, 176) = &H7574A99E
  m_sBox(0, 177) = &HB77F19B6
  m_sBox(1, 177) = &HE0A9DC09
  m_sBox(2, 177) = &H662D09A1
  m_sBox(3, 177) = &HC4324633
  m_sBox(0, 178) = &HE85A1F02
  m_sBox(1, 178) = &H9F0BE8C
  m_sBox(2, 178) = &H4A99A025
  m_sBox(3, 178) = &H1D6EFE10
  m_sBox(0, 179) = &H1AB93D1D
  m_sBox(1, 179) = &HBA5A4DF
  m_sBox(2, 179) = &HA186F20F
  m_sBox(3, 179) = &H2868F169
  m_sBox(0, 180) = &HDCB7DA83
  m_sBox(1, 180) = &H573906FE
  m_sBox(2, 180) = &HA1E2CE9B
  m_sBox(3, 180) = &H4FCD7F52
  m_sBox(0, 181) = &H50115E01
  m_sBox(1, 181) = &HA70683FA
  m_sBox(2, 181) = &HA002B5C4
  m_sBox(3, 181) = &HDE6D027
  m_sBox(0, 182) = &H9AF88C27
  m_sBox(1, 182) = &H773F8641
  m_sBox(2, 182) = &HC3604C06
  m_sBox(3, 182) = &H61A806B5
  m_sBox(0, 183) = &HF0177A28
  m_sBox(1, 183) = &HC0F586E0
  m_sBox(2, 183) = &H6058AA
  m_sBox(3, 183) = &H30DC7D62
  m_sBox(0, 184) = &H11E69ED7
  m_sBox(1, 184) = &H2338EA63
  m_sBox(2, 184) = &H53C2DD94
  m_sBox(3, 184) = &HC2C21634
  m_sBox(0, 185) = &HBBCBEE56
  m_sBox(1, 185) = &H90BCB6DE
  m_sBox(2, 185) = &HEBFC7DA1
  m_sBox(3, 185) = &HCE591D76
  m_sBox(0, 186) = &H6F05E409
  m_sBox(1, 186) = &H4B7C0188
  m_sBox(2, 186) = &H39720A3D
  m_sBox(3, 186) = &H7C927C24
  m_sBox(0, 187) = &H86E3725F
  m_sBox(1, 187) = &H724D9DB9
  m_sBox(2, 187) = &H1AC15BB4
  m_sBox(3, 187) = &HD39EB8FC
  m_sBox(0, 188) = &HED545578
  m_sBox(1, 188) = &H8FCA5B5
  m_sBox(2, 188) = &HD83D7CD3
  m_sBox(3, 188) = &H4DAD0FC4
  m_sBox(0, 189) = &H1E50EF5E
  m_sBox(1, 189) = &HB161E6F8
  m_sBox(2, 189) = &HA28514D9
  m_sBox(3, 189) = &H6C51133C
  m_sBox(0, 190) = &H6FD5C7E7
  m_sBox(1, 190) = &H56E14EC4
  m_sBox(2, 190) = &H362ABFCE
  m_sBox(3, 190) = &HDDC6C837
  m_sBox(0, 191) = &HD79A3234
  m_sBox(1, 191) = &H92638212
  m_sBox(2, 191) = &H670EFA8E
  m_sBox(3, 191) = &H406000E0
  m_sBox(0, 192) = &H3A39CE37
  m_sBox(1, 192) = &HD3FAF5CF
  m_sBox(2, 192) = &HABC27737
  m_sBox(3, 192) = &H5AC52D1B
  m_sBox(0, 193) = &H5CB0679E
  m_sBox(1, 193) = &H4FA33742
  m_sBox(2, 193) = &HD3822740
  m_sBox(3, 193) = &H99BC9BBE
  m_sBox(0, 194) = &HD5118E9D
  m_sBox(1, 194) = &HBF0F7315
  m_sBox(2, 194) = &HD62D1C7E
  m_sBox(3, 194) = &HC700C47B
  m_sBox(0, 195) = &HB78C1B6B
  m_sBox(1, 195) = &H21A19045
  m_sBox(2, 195) = &HB26EB1BE
  m_sBox(3, 195) = &H6A366EB4
  m_sBox(0, 196) = &H5748AB2F
  m_sBox(1, 196) = &HBC946E79
  m_sBox(2, 196) = &HC6A376D2
  m_sBox(3, 196) = &H6549C2C8
  m_sBox(0, 197) = &H530FF8EE
  m_sBox(1, 197) = &H468DDE7D
  m_sBox(2, 197) = &HD5730A1D
  m_sBox(3, 197) = &H4CD04DC6
  m_sBox(0, 198) = &H2939BBDB
  m_sBox(1, 198) = &HA9BA4650
  m_sBox(2, 198) = &HAC9526E8
  m_sBox(3, 198) = &HBE5EE304
  m_sBox(0, 199) = &HA1FAD5F0
  m_sBox(1, 199) = &H6A2D519A
  m_sBox(2, 199) = &H63EF8CE2
  m_sBox(3, 199) = &H9A86EE22
  m_sBox(0, 200) = &HC089C2B8
  m_sBox(1, 200) = &H43242EF6
  m_sBox(2, 200) = &HA51E03AA
  m_sBox(3, 200) = &H9CF2D0A4
  m_sBox(0, 201) = &H83C061BA
  m_sBox(1, 201) = &H9BE96A4D
  m_sBox(2, 201) = &H8FE51550
  m_sBox(3, 201) = &HBA645BD6
  m_sBox(0, 202) = &H2826A2F9
  m_sBox(1, 202) = &HA73A3AE1
  m_sBox(2, 202) = &H4BA99586
  m_sBox(3, 202) = &HEF5562E9
  m_sBox(0, 203) = &HC72FEFD3
  m_sBox(1, 203) = &HF752F7DA
  m_sBox(2, 203) = &H3F046F69
  m_sBox(3, 203) = &H77FA0A59
  m_sBox(0, 204) = &H80E4A915
  m_sBox(1, 204) = &H87B08601
  m_sBox(2, 204) = &H9B09E6AD
  m_sBox(3, 204) = &H3B3EE593
  m_sBox(0, 205) = &HE990FD5A
  m_sBox(1, 205) = &H9E34D797
  m_sBox(2, 205) = &H2CF0B7D9
  m_sBox(3, 205) = &H22B8B51
  m_sBox(0, 206) = &H96D5AC3A
  m_sBox(1, 206) = &H17DA67D
  m_sBox(2, 206) = &HD1CF3ED6
  m_sBox(3, 206) = &H7C7D2D28
  m_sBox(0, 207) = &H1F9F25CF
  m_sBox(1, 207) = &HADF2B89B
  m_sBox(2, 207) = &H5AD6B472
  m_sBox(3, 207) = &H5A88F54C
  m_sBox(0, 208) = &HE029AC71
  m_sBox(1, 208) = &HE019A5E6
  m_sBox(2, 208) = &H47B0ACFD
  m_sBox(3, 208) = &HED93FA9B
  m_sBox(0, 209) = &HE8D3C48D
  m_sBox(1, 209) = &H283B57CC
  m_sBox(2, 209) = &HF8D56629
  m_sBox(3, 209) = &H79132E28
  m_sBox(0, 210) = &H785F0191
  m_sBox(1, 210) = &HED756055
  m_sBox(2, 210) = &HF7960E44
  m_sBox(3, 210) = &HE3D35E8C
  m_sBox(0, 211) = &H15056DD4
  m_sBox(1, 211) = &H88F46DBA
  m_sBox(2, 211) = &H3A16125
  m_sBox(3, 211) = &H564F0BD
  m_sBox(0, 212) = &HC3EB9E15
  m_sBox(1, 212) = &H3C9057A2
  m_sBox(2, 212) = &H97271AEC
  m_sBox(3, 212) = &HA93A072A
  m_sBox(0, 213) = &H1B3F6D9B
  m_sBox(1, 213) = &H1E6321F5
  m_sBox(2, 213) = &HF59C66FB
  m_sBox(3, 213) = &H26DCF319
  m_sBox(0, 214) = &H7533D928
  m_sBox(1, 214) = &HB155FDF5
  m_sBox(2, 214) = &H3563482
  m_sBox(3, 214) = &H8ABA3CBB
  m_sBox(0, 215) = &H28517711
  m_sBox(1, 215) = &HC20AD9F8
  m_sBox(2, 215) = &HABCC5167
  m_sBox(3, 215) = &HCCAD925F
  m_sBox(0, 216) = &H4DE81751
  m_sBox(1, 216) = &H3830DC8E
  m_sBox(2, 216) = &H379D5862
  m_sBox(3, 216) = &H9320F991
  m_sBox(0, 217) = &HEA7A90C2
  m_sBox(1, 217) = &HFB3E7BCE
  m_sBox(2, 217) = &H5121CE64
  m_sBox(3, 217) = &H774FBE32
  m_sBox(0, 218) = &HA8B6E37E
  m_sBox(1, 218) = &HC3293D46
  m_sBox(2, 218) = &H48DE5369
  m_sBox(3, 218) = &H6413E680
  m_sBox(0, 219) = &HA2AE0810
  m_sBox(1, 219) = &HDD6DB224
  m_sBox(2, 219) = &H69852DFD
  m_sBox(3, 219) = &H9072166
  m_sBox(0, 220) = &HB39A460A
  m_sBox(1, 220) = &H6445C0DD
  m_sBox(2, 220) = &H586CDECF
  m_sBox(3, 220) = &H1C20C8AE
  m_sBox(0, 221) = &H5BBEF7DD
  m_sBox(1, 221) = &H1B588D40
  m_sBox(2, 221) = &HCCD2017F
  m_sBox(3, 221) = &H6BB4E3BB
  m_sBox(0, 222) = &HDDA26A7E
  m_sBox(1, 222) = &H3A59FF45
  m_sBox(2, 222) = &H3E350A44
  m_sBox(3, 222) = &HBCB4CDD5
  m_sBox(0, 223) = &H72EACEA8
  m_sBox(1, 223) = &HFA6484BB
  m_sBox(2, 223) = &H8D6612AE
  m_sBox(3, 223) = &HBF3C6F47
  m_sBox(0, 224) = &HD29BE463
  m_sBox(1, 224) = &H542F5D9E
  m_sBox(2, 224) = &HAEC2771B
  m_sBox(3, 224) = &HF64E6370
  m_sBox(0, 225) = &H740E0D8D
  m_sBox(1, 225) = &HE75B1357
  m_sBox(2, 225) = &HF8721671
  m_sBox(3, 225) = &HAF537D5D
  m_sBox(0, 226) = &H4040CB08
  m_sBox(1, 226) = &H4EB4E2CC
  m_sBox(2, 226) = &H34D2466A
  m_sBox(3, 226) = &H115AF84
  m_sBox(0, 227) = &HE1B00428
  m_sBox(1, 227) = &H95983A1D
  m_sBox(2, 227) = &H6B89FB4
  m_sBox(3, 227) = &HCE6EA048
  m_sBox(0, 228) = &H6F3F3B82
  m_sBox(1, 228) = &H3520AB82
  m_sBox(2, 228) = &H11A1D4B
  m_sBox(3, 228) = &H277227F8
  m_sBox(0, 229) = &H611560B1
  m_sBox(1, 229) = &HE7933FDC
  m_sBox(2, 229) = &HBB3A792B
  m_sBox(3, 229) = &H344525BD
  m_sBox(0, 230) = &HA08839E1
  m_sBox(1, 230) = &H51CE794B
  m_sBox(2, 230) = &H2F32C9B7
  m_sBox(3, 230) = &HA01FBAC9
  m_sBox(0, 231) = &HE01CC87E
  m_sBox(1, 231) = &HBCC7D1F6
  m_sBox(2, 231) = &HCF0111C3
  m_sBox(3, 231) = &HA1E8AAC7
  m_sBox(0, 232) = &H1A908749
  m_sBox(1, 232) = &HD44FBD9A
  m_sBox(2, 232) = &HD0DADECB
  m_sBox(3, 232) = &HD50ADA38
  m_sBox(0, 233) = &H339C32A
  m_sBox(1, 233) = &HC6913667
  m_sBox(2, 233) = &H8DF9317C
  m_sBox(3, 233) = &HE0B12B4F
  m_sBox(0, 234) = &HF79E59B7
  m_sBox(1, 234) = &H43F5BB3A
  m_sBox(2, 234) = &HF2D519FF
  m_sBox(3, 234) = &H27D9459C
  m_sBox(0, 235) = &HBF97222C
  m_sBox(1, 235) = &H15E6FC2A
  m_sBox(2, 235) = &HF91FC71
  m_sBox(3, 235) = &H9B941525
  m_sBox(0, 236) = &HFAE59361
  m_sBox(1, 236) = &HCEB69CEB
  m_sBox(2, 236) = &HC2A86459
  m_sBox(3, 236) = &H12BAA8D1
  m_sBox(0, 237) = &HB6C1075E
  m_sBox(1, 237) = &HE3056A0C
  m_sBox(2, 237) = &H10D25065
  m_sBox(3, 237) = &HCB03A442
  m_sBox(0, 238) = &HE0EC6E0E
  m_sBox(1, 238) = &H1698DB3B
  m_sBox(2, 238) = &H4C98A0BE
  m_sBox(3, 238) = &H3278E964
  m_sBox(0, 239) = &H9F1F9532
  m_sBox(1, 239) = &HE0D392DF
  m_sBox(2, 239) = &HD3A0342B
  m_sBox(3, 239) = &H8971F21E
  m_sBox(0, 240) = &H1B0A7441
  m_sBox(1, 240) = &H4BA3348C
  m_sBox(2, 240) = &HC5BE7120
  m_sBox(3, 240) = &HC37632D8
  m_sBox(0, 241) = &HDF359F8D
  m_sBox(1, 241) = &H9B992F2E
  m_sBox(2, 241) = &HE60B6F47
  m_sBox(3, 241) = &HFE3F11D
  m_sBox(0, 242) = &HE54CDA54
  m_sBox(1, 242) = &H1EDAD891
  m_sBox(2, 242) = &HCE6279CF
  m_sBox(3, 242) = &HCD3E7E6F
  m_sBox(0, 243) = &H1618B166
  m_sBox(1, 243) = &HFD2C1D05
  m_sBox(2, 243) = &H848FD2C5
  m_sBox(3, 243) = &HF6FB2299
  m_sBox(0, 244) = &HF523F357
  m_sBox(1, 244) = &HA6327623
  m_sBox(2, 244) = &H93A83531
  m_sBox(3, 244) = &H56CCCD02
  m_sBox(0, 245) = &HACF08162
  m_sBox(1, 245) = &H5A75EBB5
  m_sBox(2, 245) = &H6E163697
  m_sBox(3, 245) = &H88D273CC
  m_sBox(0, 246) = &HDE966292
  m_sBox(1, 246) = &H81B949D0
  m_sBox(2, 246) = &H4C50901B
  m_sBox(3, 246) = &H71C65614
  m_sBox(0, 247) = &HE6C6C7BD
  m_sBox(1, 247) = &H327A140A
  m_sBox(2, 247) = &H45E1D006
  m_sBox(3, 247) = &HC3F27B9A
  m_sBox(0, 248) = &HC9AA53FD
  m_sBox(1, 248) = &H62A80F00
  m_sBox(2, 248) = &HBB25BFE2
  m_sBox(3, 248) = &H35BDD2F6
  m_sBox(0, 249) = &H71126905
  m_sBox(1, 249) = &HB2040222
  m_sBox(2, 249) = &HB6CBCF7C
  m_sBox(3, 249) = &HCD769C2B
  m_sBox(0, 250) = &H53113EC0
  m_sBox(1, 250) = &H1640E3D3
  m_sBox(2, 250) = &H38ABBD60
  m_sBox(3, 250) = &H2547ADF0
  m_sBox(0, 251) = &HBA38209C
  m_sBox(1, 251) = &HF746CE76
  m_sBox(2, 251) = &H77AFA1C5
  m_sBox(3, 251) = &H20756060
  m_sBox(0, 252) = &H85CBFE4E
  m_sBox(1, 252) = &H8AE88DD8
  m_sBox(2, 252) = &H7AAAF9B0
  m_sBox(3, 252) = &H4CF9AA7E
  m_sBox(0, 253) = &H1948C25C
  m_sBox(1, 253) = &H2FB8A8C
  m_sBox(2, 253) = &H1C36AE4
  m_sBox(3, 253) = &HD6EBE1F9
  m_sBox(0, 254) = &H90D4F869
  m_sBox(1, 254) = &HA65CDEA0
  m_sBox(2, 254) = &H3F09252D
  m_sBox(3, 254) = &HC208E69F
  m_sBox(0, 255) = &HB74E6132
  m_sBox(1, 255) = &HCE77E25B
  m_sBox(2, 255) = &H578FDFE3
  m_sBox(3, 255) = &H3AC372E6
End Sub



Public Function EncryptFile(InFile As String, OutFile As String, Overwrite As Boolean, Optional Key As String, Optional OutputIn64 As Boolean) As Boolean
    Class_Initialize
    If FileExist(InFile) = False Then
        EncryptFile = False
        Exit Function
    End If
    If FileExist(OutFile) = True And Overwrite = False Then
        EncryptFile = False
        Exit Function
    End If
    Dim Buffer() As Byte, FileO As Integer
    FileO = FreeFile
    Open InFile For Binary As #FileO
        ReDim Buffer(0 To LOF(FileO) - 1)
        Get #FileO, , Buffer()
    Close #FileO
    Call EncryptByte(Buffer(), Key)
    If FileExist(OutFile) = True Then Kill OutFile
    FileO = FreeFile
    Open OutFile For Binary As #FileO
        If OutputIn64 = True Then
            Put #FileO, , EncodeArray64(Buffer())
        Else
            Put #FileO, , Buffer()
        End If
    Close #FileO
    EncryptFile = True
    Erase Buffer(): Key = "": InFile = "": OutFile = ""
    Exit Function

ErrorHandler:
    Erase Buffer(): Key = "": InFile = "": OutFile = ""
    EncryptFile = False
End Function
Public Function DecryptFile(InFile As String, OutFile As String, Overwrite As Boolean, Optional Key As String, Optional IsFileIn64 As Boolean) As Boolean
    On Error GoTo ErrorHandler
    If FileExist(InFile) = False Then
        DecryptFile = False
        Exit Function
    End If
    If FileExist(OutFile) = True And Overwrite = False Then
        DecryptFile = False
        Exit Function
    End If
    Dim Buffer() As Byte, FileO As Integer
    FileO = FreeFile
    Open InFile For Binary As #FileO
        ReDim Buffer(0 To LOF(FileO) - 1)
        Get #FileO, , Buffer()
    Close #FileO
    If IsFileIn64 = True Then Buffer() = DecodeArray64(StrConv(Buffer(), vbUnicode))
    Call DecryptByte(Buffer(), Key)
    If FileExist(OutFile) = True Then Kill OutFile
    Open OutFile For Binary As #FileO
        Put #FileO, , Buffer()
    Close #FileO
    DecryptFile = True
    Erase Buffer(): Key = "": InFile = "": OutFile = ""
    Exit Function

ErrorHandler:
    Erase Buffer(): Key = "": InFile = "": OutFile = ""
    DecryptFile = False
End Function
Private Function FileExist(FilePath As String) As Boolean
    On Error GoTo ErrorHandler
    Call FileLen(FilePath)
    FileExist = True
    Exit Function

ErrorHandler:
    FileExist = False
End Function