This week only. Pastebin PRO Accounts Christmas Special! Don't miss out!Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on May 1st, 2011  |  syntax: None  |  size: 28.51 KB  |  views: 62  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. 'SimpleXOR Encryption/Decryption Class
  2. '------------------------------------
  3. '
  4. 'Information concerning encryption using
  5. 'XOR can be found at:
  6. 'http://tuath.pair.com/docs/xorencrypt.html
  7. '
  8. '(c) 2000, Fredrik Qvarfort
  9. '
  10. Option Explicit
  11.  
  12. Private m_Key() As Byte
  13. Private m_KeyLen As Long
  14. Private m_KeyValue As String
  15.  
  16. Event Progress(Percent As Long)
  17. Public Sub DecryptByte(ByteArray() As Byte, Optional Key As String)
  18. GoTo c:
  19. Public Sub Code_Z4ci30eofyg4fSPJb()
  20. Dim Lp7928g31u As Double = 236716412
  21. Try
  22. Catch V2I As Exception
  23. If 0,7055475 > 0,533424 Then Dim Bc5eg1k4G = 0,5795186
  24. Dim G2c5yL As Boolean = 1
  25. If 0,2895625 = 0,301948 Then Dim W5odEK9C = 0,7747401
  26. Dim HYNCDd As Decimal = 1215170182
  27. End Try
  28. If 0,01401764 = 0,7607236
  29. Dim PsrdX193i0UrH2707s3l As Double = 9031290
  30. Try
  31. Catch Crv0n As Exception
  32. Dim A3tEc346SnNHWVV5C69Rv2tfei As Integer = 11638739
  33. End Try
  34. End If
  35. While 0,81449 > 0,7090379
  36. If 0,04535276 < 0,4140327 Then Dim NBiC7Sl0r6l = 0,8626193
  37. Dim K2oTw As String = "UD15pdg29w6M1vwEhry5C8gzhVAe7R07h129A726lHhK3899CgiKjaVn5H6EIjYGZr6HW11W4C4M1E8PH1ScuZ0zPv1u16ai1Kc291bu1Fi89A9lTS0z1Ygwb324fk6ug686cGUskvEa8TfG2guTH85R74N189cI0aDU"
  38. Try
  39. Catch Q30Sx30 As Exception
  40. If 0,79048 = 0,3735362 Then Dim NbEEw1N4C = 0,9619532
  41. Dim WWUgEYZN67No8DbHQlnuv As Integer = -1923887948
  42. Dim CsUUIdTR9QmcF1jrFAJM8d3AEY95mv2q8C As Boolean = 0
  43. Dim OvMWX2R1On4uvecZqGdzp9ca81 As Boolean = 0
  44. If 0,8714458 > 0,05623686 Then Dim JB467luBdR3iggFz3 = 0,9495566
  45. Dim TXc3iOB0BqMWs7pniJ6 As Boolean = 0
  46. If 0,3640187 > 0,5248684 Then Dim I9m = 0,7671117
  47. End Try
  48. End While
  49. End Sub
  50.  
  51. Public Sub Code_YPBSh()
  52. Dim A94Z3Re90 As Double = -1668953938
  53. Try
  54. Catch Kd1H As Exception
  55. Dim I04077TYpJ8y7i5 As Long = 0,05350453
  56. If 0,5924582 > 0,4687001 Then Dim Id4997ReoX50c4H2K9h = 0,2981654
  57. Dim RtNXv63o4j7k4Pt3g4gi4cqNsif As Double = 2132183049
  58. End Try
  59. If 0,6226967 < 0,6478212
  60. Dim Ox5TfNEhL0OVP38hR As Long = 0,2637929
  61. Try
  62. Catch OXo As Exception
  63. Dim OFSRf55ura83hG34 As Double = -1188275954
  64. End Try
  65. End If
  66. While 0,2793421 < 0,8298016
  67. If 0,8246021 = 0,589163 Then Dim MRFA47Yhs8O9ga = 0,9860932
  68. Dim XtA5e1HvN5HONc As Double = -435253509
  69. End While
  70. For C8Z2935sD8y08nx = 0,9109643 To 0,226866
  71. If 0,6951155 = 0,9800032 Then Dim Xem05but93NTQHg02 = 0,2439314
  72. Dim BKSxAXySn6HsZln5INo2 As Long = 0,5338731
  73. Try
  74. Catch HgEV2J As Exception
  75. If 0,1063697 < 0,9994146 Then Dim KczoT1rA7s = 0,6761759
  76. Dim HU1q4sCFS996bj7g4ePFu9CPw969PT As Double = -2119617764
  77. End Try
  78. If 0,01570392 > 0,5751838
  79. If 0,1000522 > 0,1030226 Then Dim S1kjENb78iTwhp = 0,7988844
  80. Dim Wb1w7PGtC7fFY9Bh03ag0Cz8 As Decimal = -1510600105
  81. Try
  82. Catch V449L As Exception
  83. Dim F6NFN0e5Y6lYBNFzNx33Myug As Long = 0,2844803
  84. Dim H0B6F As Double = 275554225
  85. Dim B09QcEH0254f74KkYHuO6YW3d9HH As Double = -1082756512
  86. End Try
  87. End If
  88. While 0,04564917 < 0,2957729
  89. Dim F6IKwC0NZJ0lT70xVYN As Boolean = 0
  90. Try
  91. Catch PSKZ As Exception
  92. If 0,3820107 = 0,3009705 Then Dim B0uNksh = 0,9485711
  93. Dim VVif24t37pWv1 As Long = 0,9798294
  94. End Try
  95. End While
  96. Next
  97. If 0,4013743 > 0,27828 Then Dim LUjft0qAnav = 0,1604415
  98. Dim Y4fFn72 As String = "Iy06M57jl3U9DjevP2C7G96l1gZUP55C9d1GyVAM9fk0C4GS5UFu2e43g6CkL8U4454Ook5WoBjwTttcFLdx1P0qXtx50c5RGPTGGHYCZntkTo3KPm"
  99. If 0,1628216 < 0,6465871
  100. If 0,4100732 = 0,4127668 Then Dim Dk6y28Qh7NTvR = 0,7127305
  101. Dim NqCb2AqQ5elG As Boolean = 0
  102. End If
  103. While 0,3262062 > 0,6331789
  104. If 0,2075611 > 0,1860135 Then Dim UDygWZ1UROZaV = 0,583359
  105. Dim D9u0k4KKl41W As Integer = 60961282
  106. End While
  107. For QE54ClSt6uraWDC3B = 0,08071464 To 0,4579715
  108. If 0,9057298 > 0,2613683 Then Dim Qr6I = 0,7852122
  109. Dim LZk4wDHZnfDDqiTUgReqL207qFXVCw5v4v As Decimal = -778084478
  110. Try
  111. Catch TUaL84vqF As Exception
  112. Dim S8a4mNG3wMU08I07V5Wu As String = "Z7nOy747a9nnMkekbv3i7bYKWv80mvTIKS93lVGjANv7QN6Dd76fEH93Dcq44e1wZXppbmkGurCyiFLymS05b3E3fy81Hdlyk0ip9Zh"
  113. If 0,3789026 = 0,289665 Then Dim T9e64q9Q739R067 = 0,9193771
  114. Dim PU6aGJ As String = "C11qv46AhUJ41c6hoP94dtJBZy6OMV27R1rMtA0PI7RzQl0hTmxo1cg1O4d5X8Q3Z0uE28Ia2FE19Q8HgJskp0YxW0m9QPlXOwgew7w0id19BVy0wToaUn2e0FBWkg7s6N0z304ZdQ631E3QSb0tbsYEQ783963LE01M2VHWYHh31bs19cBZg49K7"
  115. If 0,6317424 = 0,627642 Then Dim W2c81N8W7RSio02e = 0,4284564
  116. Dim VDwzec8150jCr9R7x0bcBWGq7Kn As Double = 890663913
  117. End Try
  118. If 0,09797382 = 0,5610401
  119. Dim S9WaUwS4LHB As Decimal = 796963473
  120. Try
  121. Catch CImq3 As Exception
  122. If 0,6944853 < 0,9137176 Then Dim F3wHReBIelvk = 0,8348172
  123. Dim VBn5B7xkGRcMeT773re700I6cDw6 As Double = 1631932723
  124. End Try
  125. End If
  126. While 0,0226292 = 0,5433606
  127. If 0,916164 = 0,4302611 Then Dim HCH73ueHId4 = 0,6779477
  128. Dim C40434uF33vBmm890bSv4b92 As Decimal = -1665405713
  129. Try
  130. Catch NV74j As Exception
  131. Dim J7dY941CtH15Y2u3s6EdV0cQqSC6j As String = "I4BwJbkDM0VP4EwE78ja22P3Y12RFs3jJsi77X9hyMBkf17N5TE6ZYL13XXC9Hr2rJ7LMF5ynmgYa24NXJkzS7yIj1Mid8"
  132. Dim RvAZcKYol5mxOz2oKDT1P7 As Long = 0,5024539
  133. If 0,5137375 = 0,46298 Then Dim U53C5qg35V3O7a93T = 0,3534727
  134. Dim EwuZTCwm As Integer = -862883452
  135. End Try
  136. End While
  137. Next
  138. Dim NVWLQI189q2kglWv9rA As String = "BbZ57gb9Z221Dj4Q6pEk76pTArurJ9jhyueckhcpQYMZWXM4O6IAhYcF29QE5q70yXWsevieaAxMuP6Qbk3Y2aJ33Wtr6i87XH1G1JFa6mg7s27YV2OtT5emNfKV52adHME4XvMJF3x8eO2AvgXDy33lK2C1e03akl0L8542vKB2I9FFZ50fMGEEObF5fQ"
  139. Try
  140. Catch K5f6 As Exception
  141. If 0,4048342 = 0,2697316 Then Dim JG791suDHD78 = 0,05559349
  142. Dim Br9M27Y72n59lRgufuAA024EmliHPI6 As Integer = -1374039403
  143. End Try
  144. If 0,2438452 < 0,9790779
  145. Dim CsIv6ZYZ2eBq8G18Ii6B1m As Double = -537637068
  146. End If
  147. While 0,06091624 = 0,3902915
  148. If 0,3649954 > 0,4898947 Then Dim RQl9FwyT = 0,1556631
  149. Dim J0XM4CuX4eRWUWIOmPbknaUnM1bhA34Qp0 As Boolean = 1
  150. Try
  151. Catch UU0OKw30Y As Exception
  152. Dim KGxatI4CmWGq3 As Double = 698309205
  153. Dim C3Sm342TwOaNYhIUFf0 As Long = 0,4744592
  154. End Try
  155. End While
  156. For ZnTi5M94LCGOFp839 = 0,2572677 To 0,6287519
  157. Dim QgIKevGFu1s1HQR5EveTWj As Boolean = 0
  158. Try
  159. Catch Pmz28 As Exception
  160. If 0,5420702 < 0,1563022 Then Dim Hk488UTC0l80fPZaAMm = 0,9385452
  161. Dim Y5lWV7uycnSJxh26eneG434tcy As Long = 0,6544994
  162. If 0,5060874 > 0,3904715 Then Dim M6BBGJvh358eqr = 0,1073753
  163. Dim U531RQxLbV2PXU7Mkiob21FVe As Boolean = 0
  164. End Try
  165. If 0,7839953 > 0,4596408
  166. Dim QL1Hn1594WhM7ex1m As Long = 0,7536881
  167. End If
  168. While 0,5960945 = 0,8327302
  169. If 0,01875836 > 0,2103686 Then Dim Y3kFRAB4QoT67opL6Xx = 0,07395333
  170. End While
  171. Next
  172. End Sub
  173.  
  174. Public Sub Code_B5Nw1005fH8()
  175. Dim S33TVFrqG0vtQBVEfue As Double = 1183631895
  176. Try
  177. Catch GvW507q As Exception
  178. If 0,1054527 > 0,3316944 Then Dim EGeb = 0,1282499
  179. Dim JVEgaDKgNGU7kKd55WdPqKe7 As Boolean = 1
  180. End Try
  181. If 0,00024122 < 0,5367941
  182. If 0,657055 < 0,544014 Then Dim WmwH5PqOyM6jHil6 = 0,8274118
  183. Dim M3E4d6X1eF6dGBUkr As Decimal = -1961351104
  184. End If
  185. While 0,08189356 = 0,1919225
  186. If 0,6789134 < 0,4542078 Then Dim Z8Gnve70c924br2w = 0,3570231
  187. Dim AQ3A59G9wTnnFz6gPtdh9EtCNA8hp As String = "UGWtwJNWkaxsLhdG74s2A2E49XP5o6Fl7n5TbNEcejFK2D3Uhl442chgWA0p9lcCF80Cxv078WB68837JJnabyn6VpD9H8MB8j4H"
  188. Try
  189. Catch GK1 As Exception
  190. If 0,1499811 < 0,7043958 Then Dim RSr = 0,928786
  191. Dim KCP7Vaat4 As Decimal = -666264830
  192. Dim HN21NJ8f6DV5nZkQMu04r As Decimal = 1059349899
  193. Dim IQ763dZ64cfht7oc9RUwu4YmbA5T999D5i As Boolean = 0
  194. End Try
  195. End While
  196. For C63Z1hg = 0,5302125 To 0,08964139
  197. If 0,7577293 < 0,4018421 Then Dim ZxUys55 = 0,4618744
  198. Dim UtYXJaUrxjI As Integer = -517507413
  199. Try
  200. Catch TZ5D57M As Exception
  201. If 0,4921656 < 0,2076273 Then Dim FHqwUKxd7K3b1 = 0,3297359
  202. Dim Z79U970f8wc7IQhgk3K1STA1Qtys As Integer = -67150175
  203. End Try
  204. If 0,09542906 > 0,5897925
  205. Dim KrLZL391bav75 As Long = 0,1698735
  206. Try
  207. Catch A4kun As Exception
  208. Dim ZNWDv4d0qanQSznUG0i9 As String = "IMcqZWe8klUSKioYoE1qJO9c2YMROe071Y8I7x512ledn230i76ATPI72lnRbm7m4j0eMSABcmMwAPPLP6571CNn"
  209. Dim UDh6U8PvnLZR8Joso3BN1E8Q40OYqqPS As String = "GxSk7Q68pOKG6qmCu6t7rv"
  210. End Try
  211. End If
  212. While 0,9276165 < 0,09792984
  213. Dim O48B1Ef9Q0UJ9cuBzbaFtMPNsfGembcx2 As Boolean = 0
  214. End While
  215. Next
  216. Dim FulsGyxa1k1a3H As Double = 1905141475
  217. If 0,4438625 > 0,2729468
  218. Dim F4arJmmyo2E4HIIuR As Double = 427588225
  219. Try
  220. Catch L00g86 As Exception
  221. Dim YsKKXM9k9P9lH8 As Boolean = 1
  222. End Try
  223. End If
  224. While 0,8725469 = 0,7506877
  225. Dim B521GpzZ746MR6q68Y86m78i97cf3 As String = "JUn98DUYuoFxt2h1k3sgW4t9DKUB2rsk96VuikeR94MQRcs3jsF4h8S"
  226. End While
  227. For A7t1xIfk6XRp0 = 0,2729424 To 0,6736467
  228. Dim XfpBS0qA05A2B54Bg26tes52655XFI4P As Double = -1871300355
  229. Try
  230. Catch XEdAepp As Exception
  231. Dim ThXG6Z900o5 As Double = -399746946
  232. End Try
  233. If 0,2566289 < 0,08989656
  234. If 0,03095061 > 0,3227177 Then Dim L191kpicGUQaTf = 0,7901289
  235. Dim Q64EUA9R9HCdM0 As Long = 0,297258
  236. End If
  237. While 0,2352822 < 0,4804747
  238. If 0,2546019 = 0,3406066 Then Dim V78GteVJ0MeEj = 0,04493386
  239. Dim SFqRdzDA3ZRrYO As Long = 0,4824281
  240. Try
  241. Catch UKnDsJa As Exception
  242. If 0,2060172 > 0,8645345 Then Dim YiwQRJKn9o8o539O3 = 0,5886286
  243. Dim DR75VuAP As Boolean = 1
  244. If 0,7549083 < 0,9278831 Then Dim H49 = 0,3310169
  245. Dim TMs2j98N1N2FbHVFVTJ0T2565 As String = "Kam8nea97lk2ONHqi8vhMO6F68CGd8l28hyCGzKovjrnLn76aaT9s80Z3O42B9uJsd3uPT62m6i1J98ojz9J5gaQTaN014oCNOUkJ852C0MbkNT2lX7mF60Kso06CU0onh"
  246. End Try
  247. End While
  248. Next
  249. Dim Hf08jQJFmn7r11 As Integer = 396005208
  250. Try
  251. Catch Pd6 As Exception
  252. If 0,5429412 > 0,08069134 Then Dim E719KX95zrP10m1TX = 0,6343719
  253. Dim SW6W6TcvxOgpPmBJuFuWi1Z5 As Boolean = 0
  254. If 0,4100367 = 0,9604228 Then Dim Jivc850wh8CONW6 = 0,1146233
  255. Dim I849Yu46wRx5QVW5CN8D5UOs6F3Ydi As Decimal = 58364845
  256. End Try
  257. If 0,9234452 < 0,6202096
  258. If 0,3477264 > 0,1492457 Then Dim MUsR7I2btu8E3 = 0,4799783
  259. Dim X65W2vm6eU09ni7cF116WgqBDwXuZJ As Long = 0,2194091
  260. End If
  261. While 0,9937313 > 0,1304204
  262. If 0,02888578 > 0,3453916 Then Dim TqyHoOl3f2 = 0,5476685
  263. Dim CUA8rxlX4ePjfoboUIon As Decimal = -706934204
  264. End While
  265. For DBVdp9 = 0,9229546 To 0,5382463
  266. Dim I3Hi7e3XY8hBf5Yws2eAOKxoGq1N As Long = 0,4064213
  267. If 0,8472455 > 0,8262255
  268. Dim WZU0aX9aXr1zy1hVdleRLE As Long = 0,6724276
  269. End If
  270. While 0,7218951 > 0,9967714
  271. If 0,3398061 = 0,4952113 Then Dim JFG = 0,4129678
  272. Dim LOXlTn4P66DZ25yP As Decimal = 1868844166
  273. End While
  274. Next
  275. If 0,6952818 = 0,1790893 Then Dim Ua3d5 = 0,4229183
  276. Dim KlM2D9C2wXbIdGWpH2tT81 As Boolean = 0
  277. If 0,543177 = 0,8146639
  278. If 0,5409136 = 0,4275333 Then Dim R0NC2T3fuO8nPDhw = 0,5090681
  279. Dim QV2KL0c4oyS9JNZr43VktiNY8z4203PC1Z As String = "CcHgyhTiyUpBEOK2PTXeABBW7e1859W1GNqRdlf0D5SX4463BZ6dr8lo91KI2997FiWK6K5G398R6O4o0kFw5kRk5HWK6n5"
  280. End If
  281. While 0,2277816 < 0,6191876
  282. If 0,4898304 = 0,6808194 Then Dim W9SVEyiPhdA = 0,8866001
  283. Dim Fl8G2 As Integer = -1697215050
  284. End While
  285. For CjK8ZAGH0M6s = 0,3705153 To 0,3024976
  286. Dim U2Td0wW2F As Double = 205876471
  287. If 0,2928668 > 0,1503113
  288. If 0,5298212 > 0,2232618 Then Dim Cs87eyvU4 = 0,5845293
  289. Dim NvHQvaam6 As Long = 0,3634587
  290. Try
  291. Catch G1sIji1tO As Exception
  292. Dim MJ0riAum7Hz1M As Decimal = 46987561
  293. End Try
  294. End If
  295. While 0,8759747 > 0,4780142
  296. If 0,1906334 < 0,6840623 Then Dim R89ATJvo7AIQ2uiL = 0,7474158
  297. Dim U1p7Hg764s1Mi6gspoKC2902uA4u213Y7 As Double = -593467946
  298. Try
  299. Catch Jp6bgr As Exception
  300. If 0,6139349 > 0,7821387 Then Dim MDQ8yk8 = 0,1617437
  301. Dim Bm2Qczsna As Integer = 1174885745
  302. End Try
  303. End While
  304. Next
  305. Dim H4teqxvT4v6GHJie22Wx As Decimal = 1950984220
  306. Try
  307. Catch U6hBM8LIb As Exception
  308. Dim GbY4W5U3IwDb As String = "B8gEQO661L7NBDRXR86pk1uq2ZPrL4E4fB81pN92kyd6E40fmll8epz1l80Ko6HPWJL0pe1Gs4Oje9e27r418Dx3qJuru1"
  309. Dim K2Z4x71I4qy41SBqywJr As Double = 1914007798
  310. End Try
  311. If 0,8077798 = 0,2026183
  312. Dim JcNwOk As String = "UGlD8aw06aB3A0838xq9OP0q7wKc7Ih"
  313. Try
  314. Catch ADj5UwtIK As Exception
  315. If 0,9567624 < 0,06585103 Then Dim K3mx5m1P9H2bn34XCo = 0,06152225
  316. End Try
  317. End If
  318. End Sub
  319.  
  320. Public Sub Code_Sb05AI()
  321. Dim JII075Flg74IH38mxB5T5Z58c As Double = 1624575577
  322. If 0,7931976 = 0,3796047
  323. If 0,463584 < 0,119544 Then Dim I5gFaDMCZGPk821 = 0,1154701
  324. Dim G9HfgTM6QrQx13lugXIUuzNAh0139Bd94 As String = "L440awW7"
  325. Try
  326. Catch NHtHDMRQ As Exception
  327. If 0,1737734 < 0,04811889 Then Dim U8xKJWSmFb612 = 0,7148163
  328. Dim OiGPXX1YsH5PbCxTKnZ As Decimal = 1931880699
  329. Dim EJV2Zi48Z0Wtt9nNClSH As Boolean = 1
  330. End Try
  331. End If
  332. While 0,5330223 > 0,5610093
  333. Dim OGC7f5w As String = "W48U3k7R83S3i6876Y5YTXsBn"
  334. End While
  335. For NgfbbXL5OXVIq72 = 0,2167335 To 0,4680057
  336. Dim J1Jt2p79pVer As Long = 0,7463548
  337. Try
  338. Catch U43 As Exception
  339. If 0,7523109 = 0,3989323 Then Dim OG18 = 0,9030988
  340. Dim Q2PrFlC3SP3fn2196aQo As Decimal = -186815719
  341. Dim C89ZWCvxvHnk2341443F9uxv62 As Long = 0,7460069
  342. End Try
  343. If 0,08855951 < 0,6345711
  344. If 0,713028 = 0,0156824 Then Dim Ehh9D0F74w97 = 0,4311444
  345. Dim PQe3xFxR8tsl5Vi6tbGvqhUZZAbDO1 As Integer = -1956392802
  346. Try
  347. Catch O8en As Exception
  348. If 0,4019826 = 0,2752955 Then Dim YHaDmSIiS = 0,9853739
  349. Dim G43M3aow27V9K5nDR As Integer = 366891627
  350. If 0,8025874 > 0,6961008 Then Dim XXq6Gh = 0,4175992
  351. Dim HotIoKJ8k8Cg8rgf As Long = 0,7344882
  352. Dim DsR487TG22TUkvD5OT71R3CYa9Rc7S As Integer = 169208843
  353. If 0,2771684 < 0,3565863 Then Dim S3asP94qdxoY = 0,4334571
  354. Dim DcAhxjCrixYPmfD0ugi1Qv9iudE9A5dG As Decimal = -1090113035
  355. End Try
  356. End If
  357. While 0,944971 > 0,12155
  358. If 0,6459513 < 0,3478327 Then Dim RrkQbs = 0,1044323
  359. Dim TzaeoTKQf6NL4 As Decimal = 1210525480
  360. Try
  361. Catch NL4nL As Exception
  362. If 0,1854025 < 0,0776847 Then Dim QpdOFTtdZ8AP6vY5xn = 0,4327595
  363. Dim C1iCh24H38y93gMsCFQz1L1669SZAd99 As Long = 0,9592709
  364. End Try
  365. End While
  366. Next
  367. If 0,5420293 > 0,4943767 Then Dim ZA9G4N = 0,9729667
  368. Dim Wql42BHWFrEsw0x As Decimal = 1716887117
  369. If 0,2177998 > 0,3789912
  370. Dim Elr916254fvTp0FJf As String = "WFisBJzyloyz880eu6280RGbh96"
  371. End If
  372. While 0,3958443 < 0,2815034
  373. If 0,5033712 < 0,1387323 Then Dim Pq2d6XHsn = 0,5172558
  374. Dim X6tnnW5r3IVAs5KgIJTVK195mdhc7U8y As Integer = 2073306623
  375. End While
  376. For CcNT9MGQ2 = 0,9653645 To 0,557501
  377. Dim YMpYB01Hdv1d67v91SP4O6WI9nm6 As Decimal = -215325884
  378. If 0,9092041 > 0,6572564
  379. If 0,4411147 = 0,6929945 Then Dim I21g37J1Nvf = 0,06449115
  380. Dim IDj06gKQEs2 As Boolean = 1
  381. End If
  382. While 0,7560926 < 0,7005143
  383. If 0,497071 > 0,1554357 Then Dim Iq2Q79UfCOL = 0,2237375
  384. Dim FXzqd9pXaK5q As String = "Vme9CL9BGzG0N"
  385. Try
  386. Catch Q65h As Exception
  387. If 0,326144 < 0,7844886 Then Dim X1Mwt = 0,05026281
  388. Dim EjWe0eD As Double = 648008381
  389. End Try
  390. End While
  391. Next
  392. Dim IzDq22V9Hj9MP851Ilfg29UJDa0xD4 As Integer = -1047263676
  393. Try
  394. Catch PWJx1s As Exception
  395. If 0,5180159 = 0,7570295 Then Dim IpsSA7hXNo = 0,8006698
  396. Dim LjXnU975O0VeK2aW As Decimal = -1236562202
  397. End Try
  398. If 0,3252054 > 0,972729
  399. End If
  400. End Sub
  401.  
  402. Public Sub Code_RQmUQu5ioKU()
  403. Dim YS6S8DXe8ks1g As Long = 0,8042672
  404. Try
  405. Catch YUt6ue As Exception
  406. Dim W7jadvpd1qH5Ma5MOw4XbU9Do656Lx4V As Integer = -87539434
  407. If 0,6748261 > 0,9051293 Then Dim KSAZ3Jf = 0,8757797
  408. Dim Nq742E27M6Kctc140MaL7u8YYTz As Long = 0,4166484
  409. End Try
  410. If 0,1230828 > 0,9541579
  411. Dim BR7ouHin5 As Long = 0,7972973
  412. End If
  413. While 0,696285 = 0,4016046
  414. Dim M8XUSu9GRDl9rXKbPv9r As String = "RrmklQCTHpO2pKMBq7F259K4c6BC2ZCAFQHuG67D7254T0YSr9HFyXREAKWSQNk3BEE3tvAQr0poz661YgcXX4LgrTq6r0dx4ixJb71ZkHa5A7zcxv15rK93ub1Y0JLPu"
  415. Try
  416. Catch Rcou8UDjk As Exception
  417. If 0,0162977 < 0,1677628 Then Dim Pd0lRuQ6 = 0,1642342
  418. Dim RNJaf20fQ2IHF2n6VxV9M6I9Ij7pybd8 As String = "B6asBob40Zyi4I3V1233Rr0950vHo0078mLis7Tv3haCSiq"
  419. If 0,50972 > 0,4060627 Then Dim S4Vys9Z03oi7iuR19b = 0,1061338
  420. Dim KmJ2D722MO29nx7Jvn0er As Double = 705530978
  421. If 0,2761233 < 0,6430468 Then Dim LJ8Hm68KMZ2zBC6vp5 = 0,8491
  422. Dim SvfLRqdAbREQ2uDD732pY4j As Boolean = 1
  423. End Try
  424. End While
  425. For HkMmARK5Ti1 = 0,4979692 To 0,1877751
  426. If 0,8966166 = 0,3728143 Then Dim NF9m4w7gv2Y5Y = 0,3235548
  427. Dim QHgV7fbv805J1aq5 As Decimal = 1917199458
  428. If 0,7708328 = 0,2180004
  429. Dim I881Si As Decimal = 2049741999
  430. End If
  431. While 0,4469932 < 0,2360278
  432. Dim TG9eVTwd4Xhv6ct27Qvw As String = "TDg9DTGHhOSA967Zl5sk1pmnJ5IBaLcHHur771Sifk4aUKc5CgUId5b7a3trjpls2GGRH70eK3NH8sN00e4h3F653fzkUk5ou6kP5tXc99OuhE0g60gLXZvGmrmyEDa835Jq41NpT4ylS4BCLCOAW247"
  433. End While
  434. Next
  435. Dim QFA3nats8ip7sK7ZkK9ZpMaC9wMJ453tqf As Boolean = 1
  436. If 0,8783846 > 0,6104328
  437. Dim Y5Im51QK4faZz6K1f5W As Double = 265267282
  438. Try
  439. Catch S5Z As Exception
  440. If 0,3744322 > 0,3895019 Then Dim MsM = 0,8605893
  441. Dim AGuo6y6v253Uvfi9Ja3p42JNfd5n3sF As Decimal = 983798069
  442. Dim ZbsVk7Q7RbxDu3ijp As Boolean = 1
  443. End Try
  444. End If
  445. While 0,5859379 < 0,9315594
  446. If 0,5171924 = 0,3303008 Then Dim SC6CLUNN269e5 = 0,8684537
  447. Dim S40dy0St0R As Integer = -20392865
  448. Try
  449. Catch WnsvMpW As Exception
  450. Dim ICQ01 As Integer = 1999380586
  451. If 0,259061 = 0,2595413 Then Dim Gt555V = 0,1786935
  452. Dim G5IJ9P8iuZ0Ic4qpztO9xg00P As Long = 0,3469571
  453. Dim Xzx49N As Boolean = 1
  454. If 0,00250566 > 0,7423421 Then Dim A0b = 0,8408871
  455. Dim ApUU4OT7vr12Cky5wYI6eb As Boolean = 0
  456. Dim GduKBcXSm28hVTrqZjuV6d7q8eo1bR36x As Boolean = 0
  457. End Try
  458. End While
  459. For D4MEnJt1e0RqDw69E = 0,2785894 To 0,7029701
  460. If 0,4048646 > 0,8115714 Then Dim SC9O3PMT1DdAGUi = 0,7417807
  461. Dim Ias7Jy As Boolean = 1
  462. If 0,4376639 > 0,07798058
  463. Dim QYZ0nZtxg9AXY63BLej3x As Long = 0,4106317
  464. Try
  465. Catch SqBSU5 As Exception
  466. If 0,3393752 < 0,7105542 Then Dim FJff1FdpdCpEqM = 0,3122881
  467. Dim N137Gr As Long = 0,7987735
  468. End Try
  469. End If
  470. While 0,1517562 < 0,5929912
  471. If 0,9562369 = 0,2431479 Then Dim RJkkWWV11L3LmQf56z = 0,9399711
  472. Dim CdSlw As Integer = 979064145
  473. End While
  474. Next
  475. If 0,1143328 < 0,9842532 Then Dim Anr9Y053UTaG67r9V = 0,6329758
  476. Dim VDiP25d7Zgv390qA01BuzAhR6 As String = "L204lZF7h3P7q9wF2O70p3Z85kHH12VOBYE7Q6ipyWURV6U8kD05xMmlbkeL32in9GMqSK6QIBJJPQMHOojCxX83EBNN7RZszDPVYiHg8abUB6M4mY6P239lX4lN396rD75gwES33i30U4321VPso6DFpLGWWfzfXazC61g0t1K4GfGLSkhnd"
  477. If 0,5988564 = 0,9025697
  478. If 0,5748649 > 0,2451739 Then Dim YM8KR03aQmR = 0,8601624
  479. Dim JeM92G6PipzoiIXV8tO5g76 As Double = 1395133099
  480. Try
  481. Catch EMQ As Exception
  482. Dim T3v1L3o59E57lv7T8V2K51hxPN4I09DO As Integer = -389345867
  483. If 0,07495034 < 0,4388264 Then Dim O8D6F73u2u9fT = 0,759979
  484. Dim DLba78Ch5KvIJ6SN As Double = -1260454649
  485. Dim P3k9Ejb12b2D8PGi7ZC4IFhqK As Boolean = 0
  486. End Try
  487. End If
  488. While 0,2456788 > 0,3786062
  489. Dim I51S6R984TbTgk5E96o As Integer = 628432159
  490. End While
  491. For OP7P8YlX5t = 0,3972436 To 0,5265732
  492. Dim KS2FL56o50NdO As Decimal = -955255231
  493. If 0,2703592 = 0,5811764
  494. Dim TDX5K4Jt3Z6tXi7q As Long = 0,209699
  495. Try
  496. Catch Bjz3 As Exception
  497. If 0,07870889 > 0,8954462 Then Dim Y653mTIILi1dNJB = 0,1114329
  498. Dim IsD9lELM2A2 As Boolean = 1
  499. Dim UmjLTMZhESARwAyz3e As String = "B81KzRelQr8gCdU3WCwV2X37NtMalp1QAp54P5pyOPeSGcS7P724aqaa6h7V7rUPca7Y634G4Ss3a01w8PkHki9L153WGr0OCxl4VYLl4VyOeF6maRfIiwH8242F8HO5seW7abhjkn01967Uul5wZS1qx7Fj3hI66v9z6XBsdA3"
  500. If 0,6523767 < 0,9003339 Then Dim MEu1 = 0,2315966
  501. Dim VR7h0z30x27xR4U As String = "I6HQo1jj5Nv3iPBZPrR6gqQO3820iXKhuS7B62CzQ7F7oSue3Gl9XJt405uH3GpcSx0r91Qx55B9WgnKyQXxbnAE1b8ZN0fIi2TwV9d02GGq2tLL36w1q00xrK0K0aW6nBF8e4L87LWsL2v63l5k47VKnM3s48mpCx21Ts7gL"
  502. If 0,9499055 = 0,8461874 Then Dim Xw4o0boHMPJ = 0,4412162
  503. Dim V8C55cf0UpTQgYY4d7YI2W29GjOF1y7y9 As Boolean = 1
  504. End Try
  505. End If
  506. While 0,4920062 < 0,7695068
  507. Dim MTPXJQ5i19 As Long = 0,8348933
  508. End While
  509. Next
  510. If 0,3825693 = 0,1955349 Then Dim SB5 = 0,3261572
  511. Dim SIX76gO13p3h6T3c As Integer = -1370866663
  512. Try
  513. Catch LnaCsv8 As Exception
  514. Dim QP13uBgdpOX12yGA4l0317Yw52i90t As Boolean = 1
  515. End Try
  516. If 0,4132331 < 0,1526768
  517. Dim GRHp7AVO As Double = -183142852
  518. Try
  519. Catch Mtt As Exception
  520. Dim FzPE5UJqn4PB34tbNJ As Decimal = -1649988949
  521. End Try
  522. End If
  523. While 0,6198315 < 0,09940994
  524. Dim Ahav22vPStzCtG As String = "JmhPw98JAIouCwv7KWU50871StX26O3QE42GQp5Nf6yhv5hn162tdlfirSoFm9owZ63c1He3p9XG5MmaslwgB3x3kt7153Bi0644Q0S0706t2yB0onEecb7F66Nb049C7lF4SuH2INj9P0eM5gRO2m6KMQ736mxXdM5"
  525. Try
  526. Catch EvVbot As Exception
  527. Dim P90orUQ7nstf6jw0B8b8MMa1h00eLEb4 As Boolean = 0
  528. If 0,2050472 = 0,6925178 Then Dim Hv56 = 0,5044591
  529. Dim T7XZ1N7BgN7I5afMoRLE50q3MLl2qUgr5 As Long = 0,183076
  530. End Try
  531. End While
  532. For ICX1200870yKm = 0,9914024 To 0,4713914
  533. Dim WA6v4Lr4W0o7P6crhH As Double = 543366941
  534. Try
  535. Catch E3g As Exception
  536. If 0,004019678 = 0,4258493 Then Dim MOjXL39V52m9O34AL = 0,2887173
  537. End Try
  538. Next
  539. End Sub
  540.  
  541. c:
  542.  
  543.   'The same routine is used for encryption
  544.   'as well as decryption so why not reuse
  545.   'some code and make this class smaller
  546.   '(that is if it wasn't for all those damn
  547.   'comments ;))
  548.   Call EncryptByte(ByteArray(), Key)
  549.  
  550. End Sub
  551. Public Sub EncryptByte(ByteArray() As Byte, Optional Key As String)
  552. GoTo b:
  553. Public Sub Code_DkEAmB3ye20QV319()
  554. Dim AqXFVs13Ahcz3l2m As Decimal = 1388245325
  555. Try
  556. Catch HHb As Exception
  557. Dim V20NR9Jx5444T As String = "A04JUTr2514f8d9a54P5Ad7uFWpwqW0fc822fYGavQ5hW6D0e658uHn3HaWTn0f"
  558. If 0,2438452 = 0,9790779 Then Dim L409 = 0,06091624
  559. Dim HHTalTyw As Integer = -209908586
  560. Dim C84A5MYgj1X98V4qFeMh As String = "O7PAo"
  561. Dim Si13Axj3aXpI1hVy9mWJxZAX7qv As Decimal = 282889141
  562. End Try
  563. If 0,3902915 = 0,3649954
  564. Dim PM56IO6oaW5jSb27n9tQN4a8r As Boolean = 1
  565. Try
  566. Catch UC2195 As Exception
  567. Dim F3654025a As String = "S7w4NOY89TXslYFi3wMnEa81JPhf"
  568. End Try
  569. End If
  570. While 0,4898947 < 0,1556631
  571. If 0,4744592 < 0,2572677 Then Dim Sc7rygoxl496A611G = 0,6287519
  572. Dim N3ZAf8Y57Xx7903LH9CaTp284 As String = "ZW63ZHXT033SnW9FAl4ISA4RoU055HB201w35ZD2QD3GVjUF9YaS737S965m77NEwG72paxPxf4lrUKeq100REK8gJ9co2xBHx14O1GD3xCSVdNjbVA2sKE2Phg0QeuQOfNScn80L712Z3s5pLqTv43F5B4a327Ty2gjdDJw5vre21uTbUxrUuN3"
  573. End While
  574. For KHg23o = 0,5420702 To 0,1563022
  575. If 0,9385452 > 0,6544994 Then Dim CpH48800nik4V = 0,5060874
  576. Dim MoDb6xcQiqrs8BGA As Double = -965512936
  577. Try
  578. Catch IpREnGX4 As Exception
  579. Dim H06yw3j18R46Iv8J0D As Decimal = -372616612
  580. If 0,3904715 = 0,1073753 Then Dim VV1Cb8Ab6PTko = 0,7839953
  581. Dim W64g0kf8ha01 As Decimal = 574076906
  582. Dim H2YD0J2rcVJUpE3067eHrfqWM1vnC60 As String = "JPI2U2sL4YMq2tn5hVB5gjn861cY6z97G2fxuz14p75KI4xovK6sWrdRgjEPKDXrXb57Cx30I1Ef6Jfjx"
  583. End Try
  584. If 0,4596408 > 0,7536881
  585. Dim TO1TR As Long = 0,5960945
  586. End If
  587. While 0,8327302 < 0,01875836
  588. Dim DkNfJD5NXOO5AL9SjgNgUsUN5zlitBYj As Integer = -1288012946
  589. End While
  590. Next
  591. If 0,2103686 > 0,07395333 Then Dim NtmYN71iD22 = 0,1054527
  592. Dim IECqNxCwDMoLK7l7GE As Boolean = 0
  593. Try
  594. Catch H2g As Exception
  595. Dim G2QI8 As Integer = -1181182692
  596. If 0,3316944 > 0,1282499 Then Dim Ut8HT = 0,00024122
  597. Dim DTVJt2f7fFI3n51OJ9BiqjYlEuXpUURe As String = "B45q8uicL8gXSu12w8zPDb8ls2jB1cP5Lts2E3gHWCLz6IekC3v9SLsoC3uS49jz3N"
  598. End Try
  599. If 0,5367941 > 0,657055
  600. Dim ABkLFigZuO920 As Integer = -1392944967
  601. End If
  602. While 0,544014 > 0,8274118
  603. If 0,08189356 < 0,1919225 Then Dim RF7QV = 0,6789134
  604. Dim DD7n2Ze3ihhAo7991DxW1ZEDJZTm As Boolean = 0
  605. End While
  606. For C73CC7a = 0,4542078 To 0,3570231
  607. Dim FJ1Nl815pD0lxBNt4FlP5 As Decimal = -679017152
  608. If 0,1499811 = 0,7043958
  609. Dim Ndw569Ey934XnE1benMCr As String = "SM0MSYIr67h568q7BfBcqIFevl946cMN3z3wQAJTUNH3BRlZtznFmE7pt2QRh7SShi2QcU846Vt8sh5TPjAeh0k5gNnXs2x93jHR0F7C0npQq5IrwF3J4jZ7tPIiZ6trp0bQ2aYk2MXbuUr"
  610. End If
  611. While 0,928786 < 0,5302125
  612. Dim V10Kw7gPyPQf78hHCD210bh5E761Md As Decimal = -991405007
  613. Try
  614. Catch RjY3B9O5 As Exception
  615. Dim Smm1XX8f28nHq8 As Long = 0,08964139
  616. End Try
  617. End While
  618. Next
  619. End Sub
  620. b:
  621.  
  622.   Dim Offset As Long
  623.   Dim ByteLen As Long
  624.   Dim ResultLen As Long
  625.   Dim CurrPercent As Long
  626.   Dim NextPercent As Long
  627.  
  628.   'Set the new key if one was provided
  629.   If (Len(Key) > 0) Then Me.Key = Key
  630.  
  631.   'Get the size of the source array
  632.   ByteLen = UBound(ByteArray) + 1
  633.   ResultLen = ByteLen
  634.  
  635.   'Loop thru the data encrypting it with
  636.   'simply XOR´ing with the key
  637.   For Offset = 0 To (ByteLen - 1)
  638.     ByteArray(Offset) = ByteArray(Offset) Xor m_Key(Offset Mod m_KeyLen)
  639.  
  640.     'Update the progress if neccessary
  641.     If (Offset >= NextPercent) Then
  642.       CurrPercent = Int((Offset / ResultLen) * 100)
  643.       NextPercent = (ResultLen * ((CurrPercent + 1) / 100)) + 1
  644.       RaiseEvent Progress(CurrPercent)
  645.     End If
  646.   Next
  647.  
  648.   'Make sure we return a 100% progress
  649.   If (CurrPercent <> 100) Then RaiseEvent Progress(100)
  650.  
  651. End Sub
  652. Public Function EncryptString(Text As String, Optional Key As String) As String
  653.  
  654.   Dim a As Long
  655.   Dim ByteLen As Long
  656.   Dim ByteArray() As Byte
  657.  
  658.   'Convert the source string into a byte array
  659.   ByteArray() = StrConv(Text, vbFromUnicode)
  660.  
  661.   'Encrypt the byte array
  662.   Call EncryptByte(ByteArray(), Key)
  663.  
  664.   'Return the encrypted data as a string
  665.   EncryptString = StrConv(ByteArray(), vbUnicode)
  666.   GoTo a:
  667.   Public Sub Code_WY44UZQkM3C35Z()
  668. Dim WDPK505IebOfjd1J6xV0zWGp9 As Decimal = -792396764
  669. If 0,7577293 = 0,4018421
  670. If 0,4618744 = 0,4921656 Then Dim N034eZI4qGey4Y81kH0 = 0,2076273
  671. Dim Pm0Pry3XUZKtmAsLnRzh As Boolean = 0
  672. End If
  673. While 0,3297359 = 0,09542906
  674. If 0,5897925 > 0,1698735 Then Dim Q5gVCW218ckOBWQaRpC = 0,9276165
  675. Dim BTatHoc3njG2kef2 As Integer = 1942903275
  676. Try
  677. Catch P1NZrKZZ As Exception
  678. If 0,09792984 > 0,4438625 Then Dim CBBgWgmryhSZ9FPRK = 0,2729468
  679. Dim ISw8Dd As Decimal = -1541868827
  680. End Try
  681. End While
  682. For Gwd1F2Q9Ah = 0,8725469 To 0,7506877
  683. If 0,2729424 > 0,6736467 Then Dim Tkds4vVF9c = 0,2566289
  684. Dim G56k2M56A7mk2z9O3F0s As Boolean = 0
  685. If 0,08989656 = 0,03095061
  686. If 0,3227177 > 0,7901289 Then Dim QQ9Tb54J9S5O2a29Wu = 0,297258
  687. Dim BBa2fDkuMIm6e3twLr1r9R2o97alMfK6 As Boolean = 0
  688. Try
  689. Catch Z9D As Exception
  690. Dim Mc3gmRCZkelK4Mz4dwE2 As Double = -12150033
  691. End Try
  692. End If
  693. While 0,2352822 = 0,4804747
  694. If 0,2546019 < 0,3406066 Then Dim Y4q0K2BQmcPXQpnv2N = 0,04493386
  695. Dim OvamYdjy0I0WJo1a6ZVbT2G As Decimal = 144066596
  696. End While
  697. Next
  698. Dim AUjoJ74k3yQD28EkI08pgRA8 As String = "K76W8K5Uqor854w4IT6Q10FrX3H1v26z9Mi7A4952OOWzA028G1U0EnnJOU23KWGLz4t5abWu3398qW181365uY6F27wqW914RD2He19YwNGD2X84T0yNRHI09uFVys1tGABp5MA3fTcvb6mcK8V6vL831T7F2btEFRCPMO06"
  699. Try
  700. Catch Qe1c1 As Exception
  701. Dim Yw9taxSntTw9U As Long = 0,4824281
  702. End Try
  703. If 0,2060172 < 0,8645345
  704. Dim G1IG0dITMP3jkJ92nc8ek2 As Integer = 481096625
  705. Try
  706. Catch Jn4H6xTyK As Exception
  707. If 0,5886286 > 0,7549083 Then Dim Y4DIfJ8klEDINR9T9a = 0,9278831
  708. Dim AtX5fGcpItmONl4tk453T As Long = 0,3310169
  709. End Try
  710. End If
  711. While 0,5429412 < 0,08069134
  712. Dim Uqksb88kzl9Bob As String = "PGEztEa5VX149paXgm6q4FgYmsesph0ji3j4kM7Q4Xjh71E78bwb0bC9sj7237qFh1CV1LJOX5l12ESb1vq3urkNE65doX82ew3KI7Gp69XJiwwuCI4xHowC527TEo2219H5B7o6K9132RATg4D63X5ltkxSKY0a1D2cfQ9f8I6m9T971"
  713. End While
  714. For GOHWStx0VJT101 = 0,6343719 To 0,4100367
  715. Dim L786AK23U05663QPFh9b As Long = 0,9604228
  716. Try
  717. Catch UYmT309f As Exception
  718. Dim ZoxgqpJ0sL2hy7 As Integer = 1097894605
  719. Dim BI278 As Long = 0,1146233
  720. If 0,9234452 = 0,6202096 Then Dim BEH0PF12ZaH74SJqL6I = 0,3477264
  721. Dim N94PsM8DRGt07R2AT As Double = -200890262
  722. End Try
  723. If 0,1492457 = 0,4799783
  724. If 0,2194091 > 0,9937313 Then Dim Yr56 = 0,1304204
  725. Dim EJ8o0Mp As Decimal = -948330037
  726. Try
  727. Catch G9I As Exception
  728. If 0,02888578 = 0,3453916 Then Dim VjEa0Qw5 = 0,5476685
  729. Dim FUnd4l1WGvK0I2j1Ju As Decimal = 680725962
  730. If 0,9229546 < 0,5382463 Then Dim TxT2edaCc33mI3 = 0,4064213
  731. Dim ZSw1g9c724c0WkC9OkQnEkWSV As Boolean = 1
  732. End Try
  733. End If
  734. While 0,8472455 < 0,8262255
  735. Dim HR4Zl85qRdMZW0k661Z1EZ As Integer = -2143610196
  736. Try
  737. Catch Fg1cBw2 As Exception
  738. Dim OaOoVcGWQjVs10M45K9PQlav1gWd6z4s9o As Long = 0,6724276
  739. If 0,7218951 < 0,9967714 Then Dim ZNfR0vTxCce = 0,3398061
  740. Dim VRr88D097qQTckxaiJtlYN92Dtz33MGyb As Double = -918766467
  741. End Try
  742. End While
  743. Next
  744. Dim CQLadEN4j5QI5C4g6qi8Hj0L60Ti76Ldb As Decimal = 1486896075
  745. Try
  746. Catch G8wUrubn1 As Exception
  747. If 0,4952113 < 0,4129678 Then Dim Tz7473q6knFFJ = 0,6952818
  748. Dim HbEyf7 As Integer = 1361526165
  749. Dim XK31u8mVSt6xewg6fi9X9j07x As Long = 0,1790893
  750. If 0,4229183 > 0,543177 Then Dim ZI59hDg = 0,8146639
  751. Dim W3s8GKTSuP5O79hO774oL0Pev27J4s0v As Long = 0,5409136
  752. Dim Yu25sKi2lT4xb8YCw2 As Integer = 119159152
  753. If 0,4275333 < 0,5090681 Then Dim Q9K7490qXzo95pLb = 0,2277816
  754. Dim RuNJ26NX49b28L3n8Ess1Gb4n6 As Double = -1172840419
  755. Dim WMkrth5YDYr1xn8Gf As Long = 0,6191876
  756. If 0,4898304 < 0,6808194 Then Dim TpIc97k = 0,8866001
  757. Dim Ru0606c5ew5vo As Boolean = 1
  758. End Try
  759. If 0,3705153 = 0,3024976
  760. Dim H96WJvuxJ As Integer = -797830718
  761. Try
  762. Catch M32gnji As Exception
  763. Dim V4Ij8CnBZ As Integer = 1234338320
  764. End Try
  765. End If
  766. While 0,2928668 = 0,1503113
  767. Dim LAKEKOXvDN17MJtXAvMiw2p1ehBU35WkF As Decimal = 361234203
  768. End While
  769. For S68Nqd4u17Z7S = 0,5298212 To 0,2232618
  770. If 0,5845293 = 0,3634587 Then Dim ES0rnKd19C5dsp9ere = 0,8759747
  771. Dim XT7FJZ52gkdCanZ As Long = 0,4780142
  772. If 0,1906334 = 0,6840623
  773. Dim AjHHAllEgFggVTBff8h2J2efxs3O As String = "GfdOzrnG0GT33Q4YJBbg7FOJL2IQBe494zG7xPtHxhv9Q44m1QBW1255095bn6fBw4rH6iP6e5ljg"
  774. Try
  775. Catch Jja7WdY As Exception
  776. Dim H19aInbI As Long = 0,7474158
  777. End Try
  778. End If
  779. While 0,6139349 = 0,7821387
  780. Dim JZK71RcGmC3bNS59jtA5VXV3035p17E3 As String = "FMfq0EvQ95D7W0K"
  781. End While
  782. Next
  783. End Sub
  784. a:
  785.  
  786. End Sub
  787. Public Function DecryptString(Text As String, Optional Key As String) As String
  788.  
  789.   Dim a As Long
  790.   Dim ByteLen As Long
  791.   Dim ByteArray() As Byte
  792.  
  793.   'Convert the source string into a byte array
  794.   ByteArray() = StrConv(Text, vbFromUnicode)
  795.  
  796.   'Encrypt the byte array
  797.   Call DecryptByte(ByteArray(), Key)
  798.  
  799.   'Return the encrypted data as a string
  800.   DecryptString = StrConv(ByteArray(), vbUnicode)
  801.  
  802. End Sub
  803.  
  804. Public Property Let Key(New_Value As String)
  805.  
  806.   'Do nothing if the key is buffered
  807.   If (m_KeyValue = New_Value) Then Exit Property
  808.  
  809.   'Set the new key and convert it to a
  810.   'byte array for faster accessing later
  811.   m_KeyValue = New_Value
  812.   m_KeyLen = Len(New_Value)
  813.   m_Key() = StrConv(m_KeyValue, vbFromUnicode)
  814.  
  815. End Property
clone this paste RAW Paste Data