'SimpleXOR Encryption/Decryption Class
'------------------------------------
'
'Information concerning encryption using
'XOR can be found at:
'http://tuath.pair.com/docs/xorencrypt.html
'
'(c) 2000, Fredrik Qvarfort
'
Option Explicit

Private m_Key() As Byte
Private m_KeyLen As Long
Private m_KeyValue As String

Event Progress(Percent As Long)
Public Sub DecryptByte(ByteArray() As Byte, Optional Key As String)
GoTo c:
Public Sub Code_Z4ci30eofyg4fSPJb()
Dim Lp7928g31u As Double = 236716412
Try
Catch V2I As Exception
If 0,7055475 > 0,533424 Then Dim Bc5eg1k4G = 0,5795186
Dim G2c5yL As Boolean = 1
If 0,2895625 = 0,301948 Then Dim W5odEK9C = 0,7747401
Dim HYNCDd As Decimal = 1215170182
End Try
If 0,01401764 = 0,7607236
Dim PsrdX193i0UrH2707s3l As Double = 9031290
Try
Catch Crv0n As Exception
Dim A3tEc346SnNHWVV5C69Rv2tfei As Integer = 11638739
End Try
End If
While 0,81449 > 0,7090379
If 0,04535276 < 0,4140327 Then Dim NBiC7Sl0r6l = 0,8626193
Dim K2oTw As String = "UD15pdg29w6M1vwEhry5C8gzhVAe7R07h129A726lHhK3899CgiKjaVn5H6EIjYGZr6HW11W4C4M1E8PH1ScuZ0zPv1u16ai1Kc291bu1Fi89A9lTS0z1Ygwb324fk6ug686cGUskvEa8TfG2guTH85R74N189cI0aDU"
Try
Catch Q30Sx30 As Exception
If 0,79048 = 0,3735362 Then Dim NbEEw1N4C = 0,9619532
Dim WWUgEYZN67No8DbHQlnuv As Integer = -1923887948
Dim CsUUIdTR9QmcF1jrFAJM8d3AEY95mv2q8C As Boolean = 0
Dim OvMWX2R1On4uvecZqGdzp9ca81 As Boolean = 0
If 0,8714458 > 0,05623686 Then Dim JB467luBdR3iggFz3 = 0,9495566
Dim TXc3iOB0BqMWs7pniJ6 As Boolean = 0
If 0,3640187 > 0,5248684 Then Dim I9m = 0,7671117
End Try
End While
End Sub

Public Sub Code_YPBSh()
Dim A94Z3Re90 As Double = -1668953938
Try
Catch Kd1H As Exception
Dim I04077TYpJ8y7i5 As Long = 0,05350453
If 0,5924582 > 0,4687001 Then Dim Id4997ReoX50c4H2K9h = 0,2981654
Dim RtNXv63o4j7k4Pt3g4gi4cqNsif As Double = 2132183049
End Try
If 0,6226967 < 0,6478212
Dim Ox5TfNEhL0OVP38hR As Long = 0,2637929
Try
Catch OXo As Exception
Dim OFSRf55ura83hG34 As Double = -1188275954
End Try
End If
While 0,2793421 < 0,8298016
If 0,8246021 = 0,589163 Then Dim MRFA47Yhs8O9ga = 0,9860932
Dim XtA5e1HvN5HONc As Double = -435253509
End While
For C8Z2935sD8y08nx = 0,9109643 To 0,226866
If 0,6951155 = 0,9800032 Then Dim Xem05but93NTQHg02 = 0,2439314
Dim BKSxAXySn6HsZln5INo2 As Long = 0,5338731
Try
Catch HgEV2J As Exception
If 0,1063697 < 0,9994146 Then Dim KczoT1rA7s = 0,6761759
Dim HU1q4sCFS996bj7g4ePFu9CPw969PT As Double = -2119617764
End Try
If 0,01570392 > 0,5751838
If 0,1000522 > 0,1030226 Then Dim S1kjENb78iTwhp = 0,7988844
Dim Wb1w7PGtC7fFY9Bh03ag0Cz8 As Decimal = -1510600105
Try
Catch V449L As Exception
Dim F6NFN0e5Y6lYBNFzNx33Myug As Long = 0,2844803
Dim H0B6F As Double = 275554225
Dim B09QcEH0254f74KkYHuO6YW3d9HH As Double = -1082756512
End Try
End If
While 0,04564917 < 0,2957729
Dim F6IKwC0NZJ0lT70xVYN As Boolean = 0
Try
Catch PSKZ As Exception
If 0,3820107 = 0,3009705 Then Dim B0uNksh = 0,9485711
Dim VVif24t37pWv1 As Long = 0,9798294
End Try
End While
Next
If 0,4013743 > 0,27828 Then Dim LUjft0qAnav = 0,1604415
Dim Y4fFn72 As String = "Iy06M57jl3U9DjevP2C7G96l1gZUP55C9d1GyVAM9fk0C4GS5UFu2e43g6CkL8U4454Ook5WoBjwTttcFLdx1P0qXtx50c5RGPTGGHYCZntkTo3KPm"
If 0,1628216 < 0,6465871
If 0,4100732 = 0,4127668 Then Dim Dk6y28Qh7NTvR = 0,7127305
Dim NqCb2AqQ5elG As Boolean = 0
End If
While 0,3262062 > 0,6331789
If 0,2075611 > 0,1860135 Then Dim UDygWZ1UROZaV = 0,583359
Dim D9u0k4KKl41W As Integer = 60961282
End While
For QE54ClSt6uraWDC3B = 0,08071464 To 0,4579715
If 0,9057298 > 0,2613683 Then Dim Qr6I = 0,7852122
Dim LZk4wDHZnfDDqiTUgReqL207qFXVCw5v4v As Decimal = -778084478
Try
Catch TUaL84vqF As Exception
Dim S8a4mNG3wMU08I07V5Wu As String = "Z7nOy747a9nnMkekbv3i7bYKWv80mvTIKS93lVGjANv7QN6Dd76fEH93Dcq44e1wZXppbmkGurCyiFLymS05b3E3fy81Hdlyk0ip9Zh"
If 0,3789026 = 0,289665 Then Dim T9e64q9Q739R067 = 0,9193771
Dim PU6aGJ As String = "C11qv46AhUJ41c6hoP94dtJBZy6OMV27R1rMtA0PI7RzQl0hTmxo1cg1O4d5X8Q3Z0uE28Ia2FE19Q8HgJskp0YxW0m9QPlXOwgew7w0id19BVy0wToaUn2e0FBWkg7s6N0z304ZdQ631E3QSb0tbsYEQ783963LE01M2VHWYHh31bs19cBZg49K7"
If 0,6317424 = 0,627642 Then Dim W2c81N8W7RSio02e = 0,4284564
Dim VDwzec8150jCr9R7x0bcBWGq7Kn As Double = 890663913
End Try
If 0,09797382 = 0,5610401
Dim S9WaUwS4LHB As Decimal = 796963473
Try
Catch CImq3 As Exception
If 0,6944853 < 0,9137176 Then Dim F3wHReBIelvk = 0,8348172
Dim VBn5B7xkGRcMeT773re700I6cDw6 As Double = 1631932723
End Try
End If
While 0,0226292 = 0,5433606
If 0,916164 = 0,4302611 Then Dim HCH73ueHId4 = 0,6779477
Dim C40434uF33vBmm890bSv4b92 As Decimal = -1665405713
Try
Catch NV74j As Exception
Dim J7dY941CtH15Y2u3s6EdV0cQqSC6j As String = "I4BwJbkDM0VP4EwE78ja22P3Y12RFs3jJsi77X9hyMBkf17N5TE6ZYL13XXC9Hr2rJ7LMF5ynmgYa24NXJkzS7yIj1Mid8"
Dim RvAZcKYol5mxOz2oKDT1P7 As Long = 0,5024539
If 0,5137375 = 0,46298 Then Dim U53C5qg35V3O7a93T = 0,3534727
Dim EwuZTCwm As Integer = -862883452
End Try
End While
Next
Dim NVWLQI189q2kglWv9rA As String = "BbZ57gb9Z221Dj4Q6pEk76pTArurJ9jhyueckhcpQYMZWXM4O6IAhYcF29QE5q70yXWsevieaAxMuP6Qbk3Y2aJ33Wtr6i87XH1G1JFa6mg7s27YV2OtT5emNfKV52adHME4XvMJF3x8eO2AvgXDy33lK2C1e03akl0L8542vKB2I9FFZ50fMGEEObF5fQ"
Try
Catch K5f6 As Exception
If 0,4048342 = 0,2697316 Then Dim JG791suDHD78 = 0,05559349
Dim Br9M27Y72n59lRgufuAA024EmliHPI6 As Integer = -1374039403
End Try
If 0,2438452 < 0,9790779
Dim CsIv6ZYZ2eBq8G18Ii6B1m As Double = -537637068
End If
While 0,06091624 = 0,3902915
If 0,3649954 > 0,4898947 Then Dim RQl9FwyT = 0,1556631
Dim J0XM4CuX4eRWUWIOmPbknaUnM1bhA34Qp0 As Boolean = 1
Try
Catch UU0OKw30Y As Exception
Dim KGxatI4CmWGq3 As Double = 698309205
Dim C3Sm342TwOaNYhIUFf0 As Long = 0,4744592
End Try
End While
For ZnTi5M94LCGOFp839 = 0,2572677 To 0,6287519
Dim QgIKevGFu1s1HQR5EveTWj As Boolean = 0
Try
Catch Pmz28 As Exception
If 0,5420702 < 0,1563022 Then Dim Hk488UTC0l80fPZaAMm = 0,9385452
Dim Y5lWV7uycnSJxh26eneG434tcy As Long = 0,6544994
If 0,5060874 > 0,3904715 Then Dim M6BBGJvh358eqr = 0,1073753
Dim U531RQxLbV2PXU7Mkiob21FVe As Boolean = 0
End Try
If 0,7839953 > 0,4596408
Dim QL1Hn1594WhM7ex1m As Long = 0,7536881
End If
While 0,5960945 = 0,8327302
If 0,01875836 > 0,2103686 Then Dim Y3kFRAB4QoT67opL6Xx = 0,07395333
End While
Next
End Sub

Public Sub Code_B5Nw1005fH8()
Dim S33TVFrqG0vtQBVEfue As Double = 1183631895
Try
Catch GvW507q As Exception
If 0,1054527 > 0,3316944 Then Dim EGeb = 0,1282499
Dim JVEgaDKgNGU7kKd55WdPqKe7 As Boolean = 1
End Try
If 0,00024122 < 0,5367941
If 0,657055 < 0,544014 Then Dim WmwH5PqOyM6jHil6 = 0,8274118
Dim M3E4d6X1eF6dGBUkr As Decimal = -1961351104
End If
While 0,08189356 = 0,1919225
If 0,6789134 < 0,4542078 Then Dim Z8Gnve70c924br2w = 0,3570231
Dim AQ3A59G9wTnnFz6gPtdh9EtCNA8hp As String = "UGWtwJNWkaxsLhdG74s2A2E49XP5o6Fl7n5TbNEcejFK2D3Uhl442chgWA0p9lcCF80Cxv078WB68837JJnabyn6VpD9H8MB8j4H"
Try
Catch GK1 As Exception
If 0,1499811 < 0,7043958 Then Dim RSr = 0,928786
Dim KCP7Vaat4 As Decimal = -666264830
Dim HN21NJ8f6DV5nZkQMu04r As Decimal = 1059349899
Dim IQ763dZ64cfht7oc9RUwu4YmbA5T999D5i As Boolean = 0
End Try
End While
For C63Z1hg = 0,5302125 To 0,08964139
If 0,7577293 < 0,4018421 Then Dim ZxUys55 = 0,4618744
Dim UtYXJaUrxjI As Integer = -517507413
Try
Catch TZ5D57M As Exception
If 0,4921656 < 0,2076273 Then Dim FHqwUKxd7K3b1 = 0,3297359
Dim Z79U970f8wc7IQhgk3K1STA1Qtys As Integer = -67150175
End Try
If 0,09542906 > 0,5897925
Dim KrLZL391bav75 As Long = 0,1698735
Try
Catch A4kun As Exception
Dim ZNWDv4d0qanQSznUG0i9 As String = "IMcqZWe8klUSKioYoE1qJO9c2YMROe071Y8I7x512ledn230i76ATPI72lnRbm7m4j0eMSABcmMwAPPLP6571CNn"
Dim UDh6U8PvnLZR8Joso3BN1E8Q40OYqqPS As String = "GxSk7Q68pOKG6qmCu6t7rv"
End Try
End If
While 0,9276165 < 0,09792984
Dim O48B1Ef9Q0UJ9cuBzbaFtMPNsfGembcx2 As Boolean = 0
End While
Next
Dim FulsGyxa1k1a3H As Double = 1905141475
If 0,4438625 > 0,2729468
Dim F4arJmmyo2E4HIIuR As Double = 427588225
Try
Catch L00g86 As Exception
Dim YsKKXM9k9P9lH8 As Boolean = 1
End Try
End If
While 0,8725469 = 0,7506877
Dim B521GpzZ746MR6q68Y86m78i97cf3 As String = "JUn98DUYuoFxt2h1k3sgW4t9DKUB2rsk96VuikeR94MQRcs3jsF4h8S"
End While
For A7t1xIfk6XRp0 = 0,2729424 To 0,6736467
Dim XfpBS0qA05A2B54Bg26tes52655XFI4P As Double = -1871300355
Try
Catch XEdAepp As Exception
Dim ThXG6Z900o5 As Double = -399746946
End Try
If 0,2566289 < 0,08989656
If 0,03095061 > 0,3227177 Then Dim L191kpicGUQaTf = 0,7901289
Dim Q64EUA9R9HCdM0 As Long = 0,297258
End If
While 0,2352822 < 0,4804747
If 0,2546019 = 0,3406066 Then Dim V78GteVJ0MeEj = 0,04493386
Dim SFqRdzDA3ZRrYO As Long = 0,4824281
Try
Catch UKnDsJa As Exception
If 0,2060172 > 0,8645345 Then Dim YiwQRJKn9o8o539O3 = 0,5886286
Dim DR75VuAP As Boolean = 1
If 0,7549083 < 0,9278831 Then Dim H49 = 0,3310169
Dim TMs2j98N1N2FbHVFVTJ0T2565 As String = "Kam8nea97lk2ONHqi8vhMO6F68CGd8l28hyCGzKovjrnLn76aaT9s80Z3O42B9uJsd3uPT62m6i1J98ojz9J5gaQTaN014oCNOUkJ852C0MbkNT2lX7mF60Kso06CU0onh"
End Try
End While
Next
Dim Hf08jQJFmn7r11 As Integer = 396005208
Try
Catch Pd6 As Exception
If 0,5429412 > 0,08069134 Then Dim E719KX95zrP10m1TX = 0,6343719
Dim SW6W6TcvxOgpPmBJuFuWi1Z5 As Boolean = 0
If 0,4100367 = 0,9604228 Then Dim Jivc850wh8CONW6 = 0,1146233
Dim I849Yu46wRx5QVW5CN8D5UOs6F3Ydi As Decimal = 58364845
End Try
If 0,9234452 < 0,6202096
If 0,3477264 > 0,1492457 Then Dim MUsR7I2btu8E3 = 0,4799783
Dim X65W2vm6eU09ni7cF116WgqBDwXuZJ As Long = 0,2194091
End If
While 0,9937313 > 0,1304204
If 0,02888578 > 0,3453916 Then Dim TqyHoOl3f2 = 0,5476685
Dim CUA8rxlX4ePjfoboUIon As Decimal = -706934204
End While
For DBVdp9 = 0,9229546 To 0,5382463
Dim I3Hi7e3XY8hBf5Yws2eAOKxoGq1N As Long = 0,4064213
If 0,8472455 > 0,8262255
Dim WZU0aX9aXr1zy1hVdleRLE As Long = 0,6724276
End If
While 0,7218951 > 0,9967714
If 0,3398061 = 0,4952113 Then Dim JFG = 0,4129678
Dim LOXlTn4P66DZ25yP As Decimal = 1868844166
End While
Next
If 0,6952818 = 0,1790893 Then Dim Ua3d5 = 0,4229183
Dim KlM2D9C2wXbIdGWpH2tT81 As Boolean = 0
If 0,543177 = 0,8146639
If 0,5409136 = 0,4275333 Then Dim R0NC2T3fuO8nPDhw = 0,5090681
Dim QV2KL0c4oyS9JNZr43VktiNY8z4203PC1Z As String = "CcHgyhTiyUpBEOK2PTXeABBW7e1859W1GNqRdlf0D5SX4463BZ6dr8lo91KI2997FiWK6K5G398R6O4o0kFw5kRk5HWK6n5"
End If
While 0,2277816 < 0,6191876
If 0,4898304 = 0,6808194 Then Dim W9SVEyiPhdA = 0,8866001
Dim Fl8G2 As Integer = -1697215050
End While
For CjK8ZAGH0M6s = 0,3705153 To 0,3024976
Dim U2Td0wW2F As Double = 205876471
If 0,2928668 > 0,1503113
If 0,5298212 > 0,2232618 Then Dim Cs87eyvU4 = 0,5845293
Dim NvHQvaam6 As Long = 0,3634587
Try
Catch G1sIji1tO As Exception
Dim MJ0riAum7Hz1M As Decimal = 46987561
End Try
End If
While 0,8759747 > 0,4780142
If 0,1906334 < 0,6840623 Then Dim R89ATJvo7AIQ2uiL = 0,7474158
Dim U1p7Hg764s1Mi6gspoKC2902uA4u213Y7 As Double = -593467946
Try
Catch Jp6bgr As Exception
If 0,6139349 > 0,7821387 Then Dim MDQ8yk8 = 0,1617437
Dim Bm2Qczsna As Integer = 1174885745
End Try
End While
Next
Dim H4teqxvT4v6GHJie22Wx As Decimal = 1950984220
Try
Catch U6hBM8LIb As Exception
Dim GbY4W5U3IwDb As String = "B8gEQO661L7NBDRXR86pk1uq2ZPrL4E4fB81pN92kyd6E40fmll8epz1l80Ko6HPWJL0pe1Gs4Oje9e27r418Dx3qJuru1"
Dim K2Z4x71I4qy41SBqywJr As Double = 1914007798
End Try
If 0,8077798 = 0,2026183
Dim JcNwOk As String = "UGlD8aw06aB3A0838xq9OP0q7wKc7Ih"
Try
Catch ADj5UwtIK As Exception
If 0,9567624 < 0,06585103 Then Dim K3mx5m1P9H2bn34XCo = 0,06152225
End Try
End If
End Sub

Public Sub Code_Sb05AI()
Dim JII075Flg74IH38mxB5T5Z58c As Double = 1624575577
If 0,7931976 = 0,3796047
If 0,463584 < 0,119544 Then Dim I5gFaDMCZGPk821 = 0,1154701
Dim G9HfgTM6QrQx13lugXIUuzNAh0139Bd94 As String = "L440awW7"
Try
Catch NHtHDMRQ As Exception
If 0,1737734 < 0,04811889 Then Dim U8xKJWSmFb612 = 0,7148163
Dim OiGPXX1YsH5PbCxTKnZ As Decimal = 1931880699
Dim EJV2Zi48Z0Wtt9nNClSH As Boolean = 1
End Try
End If
While 0,5330223 > 0,5610093
Dim OGC7f5w As String = "W48U3k7R83S3i6876Y5YTXsBn"
End While
For NgfbbXL5OXVIq72 = 0,2167335 To 0,4680057
Dim J1Jt2p79pVer As Long = 0,7463548
Try
Catch U43 As Exception
If 0,7523109 = 0,3989323 Then Dim OG18 = 0,9030988
Dim Q2PrFlC3SP3fn2196aQo As Decimal = -186815719
Dim C89ZWCvxvHnk2341443F9uxv62 As Long = 0,7460069
End Try
If 0,08855951 < 0,6345711
If 0,713028 = 0,0156824 Then Dim Ehh9D0F74w97 = 0,4311444
Dim PQe3xFxR8tsl5Vi6tbGvqhUZZAbDO1 As Integer = -1956392802
Try
Catch O8en As Exception
If 0,4019826 = 0,2752955 Then Dim YHaDmSIiS = 0,9853739
Dim G43M3aow27V9K5nDR As Integer = 366891627
If 0,8025874 > 0,6961008 Then Dim XXq6Gh = 0,4175992
Dim HotIoKJ8k8Cg8rgf As Long = 0,7344882
Dim DsR487TG22TUkvD5OT71R3CYa9Rc7S As Integer = 169208843
If 0,2771684 < 0,3565863 Then Dim S3asP94qdxoY = 0,4334571
Dim DcAhxjCrixYPmfD0ugi1Qv9iudE9A5dG As Decimal = -1090113035
End Try
End If
While 0,944971 > 0,12155
If 0,6459513 < 0,3478327 Then Dim RrkQbs = 0,1044323
Dim TzaeoTKQf6NL4 As Decimal = 1210525480
Try
Catch NL4nL As Exception
If 0,1854025 < 0,0776847 Then Dim QpdOFTtdZ8AP6vY5xn = 0,4327595
Dim C1iCh24H38y93gMsCFQz1L1669SZAd99 As Long = 0,9592709
End Try
End While
Next
If 0,5420293 > 0,4943767 Then Dim ZA9G4N = 0,9729667
Dim Wql42BHWFrEsw0x As Decimal = 1716887117
If 0,2177998 > 0,3789912
Dim Elr916254fvTp0FJf As String = "WFisBJzyloyz880eu6280RGbh96"
End If
While 0,3958443 < 0,2815034
If 0,5033712 < 0,1387323 Then Dim Pq2d6XHsn = 0,5172558
Dim X6tnnW5r3IVAs5KgIJTVK195mdhc7U8y As Integer = 2073306623
End While
For CcNT9MGQ2 = 0,9653645 To 0,557501
Dim YMpYB01Hdv1d67v91SP4O6WI9nm6 As Decimal = -215325884
If 0,9092041 > 0,6572564
If 0,4411147 = 0,6929945 Then Dim I21g37J1Nvf = 0,06449115
Dim IDj06gKQEs2 As Boolean = 1
End If
While 0,7560926 < 0,7005143
If 0,497071 > 0,1554357 Then Dim Iq2Q79UfCOL = 0,2237375
Dim FXzqd9pXaK5q As String = "Vme9CL9BGzG0N"
Try
Catch Q65h As Exception
If 0,326144 < 0,7844886 Then Dim X1Mwt = 0,05026281
Dim EjWe0eD As Double = 648008381
End Try
End While
Next
Dim IzDq22V9Hj9MP851Ilfg29UJDa0xD4 As Integer = -1047263676
Try
Catch PWJx1s As Exception
If 0,5180159 = 0,7570295 Then Dim IpsSA7hXNo = 0,8006698
Dim LjXnU975O0VeK2aW As Decimal = -1236562202
End Try
If 0,3252054 > 0,972729
End If
End Sub

Public Sub Code_RQmUQu5ioKU()
Dim YS6S8DXe8ks1g As Long = 0,8042672
Try
Catch YUt6ue As Exception
Dim W7jadvpd1qH5Ma5MOw4XbU9Do656Lx4V As Integer = -87539434
If 0,6748261 > 0,9051293 Then Dim KSAZ3Jf = 0,8757797
Dim Nq742E27M6Kctc140MaL7u8YYTz As Long = 0,4166484
End Try
If 0,1230828 > 0,9541579
Dim BR7ouHin5 As Long = 0,7972973
End If
While 0,696285 = 0,4016046
Dim M8XUSu9GRDl9rXKbPv9r As String = "RrmklQCTHpO2pKMBq7F259K4c6BC2ZCAFQHuG67D7254T0YSr9HFyXREAKWSQNk3BEE3tvAQr0poz661YgcXX4LgrTq6r0dx4ixJb71ZkHa5A7zcxv15rK93ub1Y0JLPu"
Try
Catch Rcou8UDjk As Exception
If 0,0162977 < 0,1677628 Then Dim Pd0lRuQ6 = 0,1642342
Dim RNJaf20fQ2IHF2n6VxV9M6I9Ij7pybd8 As String = "B6asBob40Zyi4I3V1233Rr0950vHo0078mLis7Tv3haCSiq"
If 0,50972 > 0,4060627 Then Dim S4Vys9Z03oi7iuR19b = 0,1061338
Dim KmJ2D722MO29nx7Jvn0er As Double = 705530978
If 0,2761233 < 0,6430468 Then Dim LJ8Hm68KMZ2zBC6vp5 = 0,8491
Dim SvfLRqdAbREQ2uDD732pY4j As Boolean = 1
End Try
End While
For HkMmARK5Ti1 = 0,4979692 To 0,1877751
If 0,8966166 = 0,3728143 Then Dim NF9m4w7gv2Y5Y = 0,3235548
Dim QHgV7fbv805J1aq5 As Decimal = 1917199458
If 0,7708328 = 0,2180004
Dim I881Si As Decimal = 2049741999
End If
While 0,4469932 < 0,2360278
Dim TG9eVTwd4Xhv6ct27Qvw As String = "TDg9DTGHhOSA967Zl5sk1pmnJ5IBaLcHHur771Sifk4aUKc5CgUId5b7a3trjpls2GGRH70eK3NH8sN00e4h3F653fzkUk5ou6kP5tXc99OuhE0g60gLXZvGmrmyEDa835Jq41NpT4ylS4BCLCOAW247"
End While
Next
Dim QFA3nats8ip7sK7ZkK9ZpMaC9wMJ453tqf As Boolean = 1
If 0,8783846 > 0,6104328
Dim Y5Im51QK4faZz6K1f5W As Double = 265267282
Try
Catch S5Z As Exception
If 0,3744322 > 0,3895019 Then Dim MsM = 0,8605893
Dim AGuo6y6v253Uvfi9Ja3p42JNfd5n3sF As Decimal = 983798069
Dim ZbsVk7Q7RbxDu3ijp As Boolean = 1
End Try
End If
While 0,5859379 < 0,9315594
If 0,5171924 = 0,3303008 Then Dim SC6CLUNN269e5 = 0,8684537
Dim S40dy0St0R As Integer = -20392865
Try
Catch WnsvMpW As Exception
Dim ICQ01 As Integer = 1999380586
If 0,259061 = 0,2595413 Then Dim Gt555V = 0,1786935
Dim G5IJ9P8iuZ0Ic4qpztO9xg00P As Long = 0,3469571
Dim Xzx49N As Boolean = 1
If 0,00250566 > 0,7423421 Then Dim A0b = 0,8408871
Dim ApUU4OT7vr12Cky5wYI6eb As Boolean = 0
Dim GduKBcXSm28hVTrqZjuV6d7q8eo1bR36x As Boolean = 0
End Try
End While
For D4MEnJt1e0RqDw69E = 0,2785894 To 0,7029701
If 0,4048646 > 0,8115714 Then Dim SC9O3PMT1DdAGUi = 0,7417807
Dim Ias7Jy As Boolean = 1
If 0,4376639 > 0,07798058
Dim QYZ0nZtxg9AXY63BLej3x As Long = 0,4106317
Try
Catch SqBSU5 As Exception
If 0,3393752 < 0,7105542 Then Dim FJff1FdpdCpEqM = 0,3122881
Dim N137Gr As Long = 0,7987735
End Try
End If
While 0,1517562 < 0,5929912
If 0,9562369 = 0,2431479 Then Dim RJkkWWV11L3LmQf56z = 0,9399711
Dim CdSlw As Integer = 979064145
End While
Next
If 0,1143328 < 0,9842532 Then Dim Anr9Y053UTaG67r9V = 0,6329758
Dim VDiP25d7Zgv390qA01BuzAhR6 As String = "L204lZF7h3P7q9wF2O70p3Z85kHH12VOBYE7Q6ipyWURV6U8kD05xMmlbkeL32in9GMqSK6QIBJJPQMHOojCxX83EBNN7RZszDPVYiHg8abUB6M4mY6P239lX4lN396rD75gwES33i30U4321VPso6DFpLGWWfzfXazC61g0t1K4GfGLSkhnd"
If 0,5988564 = 0,9025697
If 0,5748649 > 0,2451739 Then Dim YM8KR03aQmR = 0,8601624
Dim JeM92G6PipzoiIXV8tO5g76 As Double = 1395133099
Try
Catch EMQ As Exception
Dim T3v1L3o59E57lv7T8V2K51hxPN4I09DO As Integer = -389345867
If 0,07495034 < 0,4388264 Then Dim O8D6F73u2u9fT = 0,759979
Dim DLba78Ch5KvIJ6SN As Double = -1260454649
Dim P3k9Ejb12b2D8PGi7ZC4IFhqK As Boolean = 0
End Try
End If
While 0,2456788 > 0,3786062
Dim I51S6R984TbTgk5E96o As Integer = 628432159
End While
For OP7P8YlX5t = 0,3972436 To 0,5265732
Dim KS2FL56o50NdO As Decimal = -955255231
If 0,2703592 = 0,5811764
Dim TDX5K4Jt3Z6tXi7q As Long = 0,209699
Try
Catch Bjz3 As Exception
If 0,07870889 > 0,8954462 Then Dim Y653mTIILi1dNJB = 0,1114329
Dim IsD9lELM2A2 As Boolean = 1
Dim UmjLTMZhESARwAyz3e As String = "B81KzRelQr8gCdU3WCwV2X37NtMalp1QAp54P5pyOPeSGcS7P724aqaa6h7V7rUPca7Y634G4Ss3a01w8PkHki9L153WGr0OCxl4VYLl4VyOeF6maRfIiwH8242F8HO5seW7abhjkn01967Uul5wZS1qx7Fj3hI66v9z6XBsdA3"
If 0,6523767 < 0,9003339 Then Dim MEu1 = 0,2315966
Dim VR7h0z30x27xR4U As String = "I6HQo1jj5Nv3iPBZPrR6gqQO3820iXKhuS7B62CzQ7F7oSue3Gl9XJt405uH3GpcSx0r91Qx55B9WgnKyQXxbnAE1b8ZN0fIi2TwV9d02GGq2tLL36w1q00xrK0K0aW6nBF8e4L87LWsL2v63l5k47VKnM3s48mpCx21Ts7gL"
If 0,9499055 = 0,8461874 Then Dim Xw4o0boHMPJ = 0,4412162
Dim V8C55cf0UpTQgYY4d7YI2W29GjOF1y7y9 As Boolean = 1
End Try
End If
While 0,4920062 < 0,7695068
Dim MTPXJQ5i19 As Long = 0,8348933
End While
Next
If 0,3825693 = 0,1955349 Then Dim SB5 = 0,3261572
Dim SIX76gO13p3h6T3c As Integer = -1370866663
Try
Catch LnaCsv8 As Exception
Dim QP13uBgdpOX12yGA4l0317Yw52i90t As Boolean = 1
End Try
If 0,4132331 < 0,1526768
Dim GRHp7AVO As Double = -183142852
Try
Catch Mtt As Exception
Dim FzPE5UJqn4PB34tbNJ As Decimal = -1649988949
End Try
End If
While 0,6198315 < 0,09940994
Dim Ahav22vPStzCtG As String = "JmhPw98JAIouCwv7KWU50871StX26O3QE42GQp5Nf6yhv5hn162tdlfirSoFm9owZ63c1He3p9XG5MmaslwgB3x3kt7153Bi0644Q0S0706t2yB0onEecb7F66Nb049C7lF4SuH2INj9P0eM5gRO2m6KMQ736mxXdM5"
Try
Catch EvVbot As Exception
Dim P90orUQ7nstf6jw0B8b8MMa1h00eLEb4 As Boolean = 0
If 0,2050472 = 0,6925178 Then Dim Hv56 = 0,5044591
Dim T7XZ1N7BgN7I5afMoRLE50q3MLl2qUgr5 As Long = 0,183076
End Try
End While
For ICX1200870yKm = 0,9914024 To 0,4713914
Dim WA6v4Lr4W0o7P6crhH As Double = 543366941
Try
Catch E3g As Exception
If 0,004019678 = 0,4258493 Then Dim MOjXL39V52m9O34AL = 0,2887173
End Try
Next
End Sub

c:

  'The same routine is used for encryption
  'as well as decryption so why not reuse
  'some code and make this class smaller
  '(that is if it wasn't for all those damn
  'comments ;))
  Call EncryptByte(ByteArray(), Key)
  
End Sub
Public Sub EncryptByte(ByteArray() As Byte, Optional Key As String)
GoTo b:
Public Sub Code_DkEAmB3ye20QV319()
Dim AqXFVs13Ahcz3l2m As Decimal = 1388245325
Try
Catch HHb As Exception
Dim V20NR9Jx5444T As String = "A04JUTr2514f8d9a54P5Ad7uFWpwqW0fc822fYGavQ5hW6D0e658uHn3HaWTn0f"
If 0,2438452 = 0,9790779 Then Dim L409 = 0,06091624
Dim HHTalTyw As Integer = -209908586
Dim C84A5MYgj1X98V4qFeMh As String = "O7PAo"
Dim Si13Axj3aXpI1hVy9mWJxZAX7qv As Decimal = 282889141
End Try
If 0,3902915 = 0,3649954
Dim PM56IO6oaW5jSb27n9tQN4a8r As Boolean = 1
Try
Catch UC2195 As Exception
Dim F3654025a As String = "S7w4NOY89TXslYFi3wMnEa81JPhf"
End Try
End If
While 0,4898947 < 0,1556631
If 0,4744592 < 0,2572677 Then Dim Sc7rygoxl496A611G = 0,6287519
Dim N3ZAf8Y57Xx7903LH9CaTp284 As String = "ZW63ZHXT033SnW9FAl4ISA4RoU055HB201w35ZD2QD3GVjUF9YaS737S965m77NEwG72paxPxf4lrUKeq100REK8gJ9co2xBHx14O1GD3xCSVdNjbVA2sKE2Phg0QeuQOfNScn80L712Z3s5pLqTv43F5B4a327Ty2gjdDJw5vre21uTbUxrUuN3"
End While
For KHg23o = 0,5420702 To 0,1563022
If 0,9385452 > 0,6544994 Then Dim CpH48800nik4V = 0,5060874
Dim MoDb6xcQiqrs8BGA As Double = -965512936
Try
Catch IpREnGX4 As Exception
Dim H06yw3j18R46Iv8J0D As Decimal = -372616612
If 0,3904715 = 0,1073753 Then Dim VV1Cb8Ab6PTko = 0,7839953
Dim W64g0kf8ha01 As Decimal = 574076906
Dim H2YD0J2rcVJUpE3067eHrfqWM1vnC60 As String = "JPI2U2sL4YMq2tn5hVB5gjn861cY6z97G2fxuz14p75KI4xovK6sWrdRgjEPKDXrXb57Cx30I1Ef6Jfjx"
End Try
If 0,4596408 > 0,7536881
Dim TO1TR As Long = 0,5960945
End If
While 0,8327302 < 0,01875836
Dim DkNfJD5NXOO5AL9SjgNgUsUN5zlitBYj As Integer = -1288012946
End While
Next
If 0,2103686 > 0,07395333 Then Dim NtmYN71iD22 = 0,1054527
Dim IECqNxCwDMoLK7l7GE As Boolean = 0
Try
Catch H2g As Exception
Dim G2QI8 As Integer = -1181182692
If 0,3316944 > 0,1282499 Then Dim Ut8HT = 0,00024122
Dim DTVJt2f7fFI3n51OJ9BiqjYlEuXpUURe As String = "B45q8uicL8gXSu12w8zPDb8ls2jB1cP5Lts2E3gHWCLz6IekC3v9SLsoC3uS49jz3N"
End Try
If 0,5367941 > 0,657055
Dim ABkLFigZuO920 As Integer = -1392944967
End If
While 0,544014 > 0,8274118
If 0,08189356 < 0,1919225 Then Dim RF7QV = 0,6789134
Dim DD7n2Ze3ihhAo7991DxW1ZEDJZTm As Boolean = 0
End While
For C73CC7a = 0,4542078 To 0,3570231
Dim FJ1Nl815pD0lxBNt4FlP5 As Decimal = -679017152
If 0,1499811 = 0,7043958
Dim Ndw569Ey934XnE1benMCr As String = "SM0MSYIr67h568q7BfBcqIFevl946cMN3z3wQAJTUNH3BRlZtznFmE7pt2QRh7SShi2QcU846Vt8sh5TPjAeh0k5gNnXs2x93jHR0F7C0npQq5IrwF3J4jZ7tPIiZ6trp0bQ2aYk2MXbuUr"
End If
While 0,928786 < 0,5302125
Dim V10Kw7gPyPQf78hHCD210bh5E761Md As Decimal = -991405007
Try
Catch RjY3B9O5 As Exception
Dim Smm1XX8f28nHq8 As Long = 0,08964139
End Try
End While
Next
End Sub
b:

  Dim Offset As Long
  Dim ByteLen As Long
  Dim ResultLen As Long
  Dim CurrPercent As Long
  Dim NextPercent As Long
  
  'Set the new key if one was provided
  If (Len(Key) > 0) Then Me.Key = Key
  
  'Get the size of the source array
  ByteLen = UBound(ByteArray) + 1
  ResultLen = ByteLen
  
  'Loop thru the data encrypting it with
  'simply XOR´ing with the key
  For Offset = 0 To (ByteLen - 1)
    ByteArray(Offset) = ByteArray(Offset) Xor m_Key(Offset Mod m_KeyLen)
  
    'Update the progress if neccessary
    If (Offset >= NextPercent) Then
      CurrPercent = Int((Offset / ResultLen) * 100)
      NextPercent = (ResultLen * ((CurrPercent + 1) / 100)) + 1
      RaiseEvent Progress(CurrPercent)
    End If
  Next
  
  'Make sure we return a 100% progress
  If (CurrPercent <> 100) Then RaiseEvent Progress(100)

End Sub
Public Function EncryptString(Text As String, Optional Key As String) As String

  Dim a As Long
  Dim ByteLen As Long
  Dim ByteArray() As Byte
  
  'Convert the source string into a byte array
  ByteArray() = StrConv(Text, vbFromUnicode)
  
  'Encrypt the byte array
  Call EncryptByte(ByteArray(), Key)
  
  'Return the encrypted data as a string
  EncryptString = StrConv(ByteArray(), vbUnicode)
  GoTo a:
  Public Sub Code_WY44UZQkM3C35Z()
Dim WDPK505IebOfjd1J6xV0zWGp9 As Decimal = -792396764
If 0,7577293 = 0,4018421
If 0,4618744 = 0,4921656 Then Dim N034eZI4qGey4Y81kH0 = 0,2076273
Dim Pm0Pry3XUZKtmAsLnRzh As Boolean = 0
End If
While 0,3297359 = 0,09542906
If 0,5897925 > 0,1698735 Then Dim Q5gVCW218ckOBWQaRpC = 0,9276165
Dim BTatHoc3njG2kef2 As Integer = 1942903275
Try
Catch P1NZrKZZ As Exception
If 0,09792984 > 0,4438625 Then Dim CBBgWgmryhSZ9FPRK = 0,2729468
Dim ISw8Dd As Decimal = -1541868827
End Try
End While
For Gwd1F2Q9Ah = 0,8725469 To 0,7506877
If 0,2729424 > 0,6736467 Then Dim Tkds4vVF9c = 0,2566289
Dim G56k2M56A7mk2z9O3F0s As Boolean = 0
If 0,08989656 = 0,03095061
If 0,3227177 > 0,7901289 Then Dim QQ9Tb54J9S5O2a29Wu = 0,297258
Dim BBa2fDkuMIm6e3twLr1r9R2o97alMfK6 As Boolean = 0
Try
Catch Z9D As Exception
Dim Mc3gmRCZkelK4Mz4dwE2 As Double = -12150033
End Try
End If
While 0,2352822 = 0,4804747
If 0,2546019 < 0,3406066 Then Dim Y4q0K2BQmcPXQpnv2N = 0,04493386
Dim OvamYdjy0I0WJo1a6ZVbT2G As Decimal = 144066596
End While
Next
Dim AUjoJ74k3yQD28EkI08pgRA8 As String = "K76W8K5Uqor854w4IT6Q10FrX3H1v26z9Mi7A4952OOWzA028G1U0EnnJOU23KWGLz4t5abWu3398qW181365uY6F27wqW914RD2He19YwNGD2X84T0yNRHI09uFVys1tGABp5MA3fTcvb6mcK8V6vL831T7F2btEFRCPMO06"
Try
Catch Qe1c1 As Exception
Dim Yw9taxSntTw9U As Long = 0,4824281
End Try
If 0,2060172 < 0,8645345
Dim G1IG0dITMP3jkJ92nc8ek2 As Integer = 481096625
Try
Catch Jn4H6xTyK As Exception
If 0,5886286 > 0,7549083 Then Dim Y4DIfJ8klEDINR9T9a = 0,9278831
Dim AtX5fGcpItmONl4tk453T As Long = 0,3310169
End Try
End If
While 0,5429412 < 0,08069134
Dim Uqksb88kzl9Bob As String = "PGEztEa5VX149paXgm6q4FgYmsesph0ji3j4kM7Q4Xjh71E78bwb0bC9sj7237qFh1CV1LJOX5l12ESb1vq3urkNE65doX82ew3KI7Gp69XJiwwuCI4xHowC527TEo2219H5B7o6K9132RATg4D63X5ltkxSKY0a1D2cfQ9f8I6m9T971"
End While
For GOHWStx0VJT101 = 0,6343719 To 0,4100367
Dim L786AK23U05663QPFh9b As Long = 0,9604228
Try
Catch UYmT309f As Exception
Dim ZoxgqpJ0sL2hy7 As Integer = 1097894605
Dim BI278 As Long = 0,1146233
If 0,9234452 = 0,6202096 Then Dim BEH0PF12ZaH74SJqL6I = 0,3477264
Dim N94PsM8DRGt07R2AT As Double = -200890262
End Try
If 0,1492457 = 0,4799783
If 0,2194091 > 0,9937313 Then Dim Yr56 = 0,1304204
Dim EJ8o0Mp As Decimal = -948330037
Try
Catch G9I As Exception
If 0,02888578 = 0,3453916 Then Dim VjEa0Qw5 = 0,5476685
Dim FUnd4l1WGvK0I2j1Ju As Decimal = 680725962
If 0,9229546 < 0,5382463 Then Dim TxT2edaCc33mI3 = 0,4064213
Dim ZSw1g9c724c0WkC9OkQnEkWSV As Boolean = 1
End Try
End If
While 0,8472455 < 0,8262255
Dim HR4Zl85qRdMZW0k661Z1EZ As Integer = -2143610196
Try
Catch Fg1cBw2 As Exception
Dim OaOoVcGWQjVs10M45K9PQlav1gWd6z4s9o As Long = 0,6724276
If 0,7218951 < 0,9967714 Then Dim ZNfR0vTxCce = 0,3398061
Dim VRr88D097qQTckxaiJtlYN92Dtz33MGyb As Double = -918766467
End Try
End While
Next
Dim CQLadEN4j5QI5C4g6qi8Hj0L60Ti76Ldb As Decimal = 1486896075
Try
Catch G8wUrubn1 As Exception
If 0,4952113 < 0,4129678 Then Dim Tz7473q6knFFJ = 0,6952818
Dim HbEyf7 As Integer = 1361526165
Dim XK31u8mVSt6xewg6fi9X9j07x As Long = 0,1790893
If 0,4229183 > 0,543177 Then Dim ZI59hDg = 0,8146639
Dim W3s8GKTSuP5O79hO774oL0Pev27J4s0v As Long = 0,5409136
Dim Yu25sKi2lT4xb8YCw2 As Integer = 119159152
If 0,4275333 < 0,5090681 Then Dim Q9K7490qXzo95pLb = 0,2277816
Dim RuNJ26NX49b28L3n8Ess1Gb4n6 As Double = -1172840419
Dim WMkrth5YDYr1xn8Gf As Long = 0,6191876
If 0,4898304 < 0,6808194 Then Dim TpIc97k = 0,8866001
Dim Ru0606c5ew5vo As Boolean = 1
End Try
If 0,3705153 = 0,3024976
Dim H96WJvuxJ As Integer = -797830718
Try
Catch M32gnji As Exception
Dim V4Ij8CnBZ As Integer = 1234338320
End Try
End If
While 0,2928668 = 0,1503113
Dim LAKEKOXvDN17MJtXAvMiw2p1ehBU35WkF As Decimal = 361234203
End While
For S68Nqd4u17Z7S = 0,5298212 To 0,2232618
If 0,5845293 = 0,3634587 Then Dim ES0rnKd19C5dsp9ere = 0,8759747
Dim XT7FJZ52gkdCanZ As Long = 0,4780142
If 0,1906334 = 0,6840623
Dim AjHHAllEgFggVTBff8h2J2efxs3O As String = "GfdOzrnG0GT33Q4YJBbg7FOJL2IQBe494zG7xPtHxhv9Q44m1QBW1255095bn6fBw4rH6iP6e5ljg"
Try
Catch Jja7WdY As Exception
Dim H19aInbI As Long = 0,7474158
End Try
End If
While 0,6139349 = 0,7821387
Dim JZK71RcGmC3bNS59jtA5VXV3035p17E3 As String = "FMfq0EvQ95D7W0K"
End While
Next
End Sub
a:

End Sub
Public Function DecryptString(Text As String, Optional Key As String) As String

  Dim a As Long
  Dim ByteLen As Long
  Dim ByteArray() As Byte
  
  'Convert the source string into a byte array
  ByteArray() = StrConv(Text, vbFromUnicode)
  
  'Encrypt the byte array
  Call DecryptByte(ByteArray(), Key)
  
  'Return the encrypted data as a string
  DecryptString = StrConv(ByteArray(), vbUnicode)
  
End Sub

Public Property Let Key(New_Value As String)

  'Do nothing if the key is buffered
  If (m_KeyValue = New_Value) Then Exit Property
  
  'Set the new key and convert it to a
  'byte array for faster accessing later
  m_KeyValue = New_Value
  m_KeyLen = Len(New_Value)
  m_Key() = StrConv(m_KeyValue, vbFromUnicode)
  
End Property