Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement