Advertisement
Guest User

VampireColor

a guest
Nov 27th, 2015
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 2.66 KB | None | 0 0
  1. @echo off
  2. title Vampire_Color
  3. call :Couleur
  4. set VampireColor=%temp%\txtcolor.exe
  5. move "txtcolor.exe" "%temp%"
  6. cls
  7. REM <===== CODE =====>
  8.  
  9. ICI VOTRE CODE
  10.  
  11. REM <===== CODE =====>
  12. Del /f /q /a "%temp%\txtcolor.exe" >nul 2>&1
  13. exit /b
  14. :Couleur
  15. Echo.Const W=^2>Vampire.vbs&Echo.Set o=WScript.StdOut>>Vampire.vbs
  16. For %%b In (
  17. "4D53434600000000BA030000000000002C000000000000000301010001000000000000"
  18. "004900000001000100D20700000000000000009E3B8A662000747874636F6C6F722E65"
  19. "78650063EB078D6903D207434BDD544B681341189E6D538D35352AE2030F4EC44A458D"
  20. "55113C88D4C75A85AA5B5A2F8AD66D324997A6BB7177A2297868498B9450ECA182871E"
  21. "7AF0E0C183878AA98844DA83828288074FE24549B1A00785452AEB3F8F3C5A7C54BD39"
  22. "F0E77F7FF3CD9FD9397976045523847C209E87500E89D5847EBFFA40566C7AB0024D2C"
  23. "7B1ECA292DCF43ED5D868393B615B7F51E1CD14DD3A2B893603B6562C3C4474FB7E11E"
  24. "2B4AC27575B55B2486A622D4A254CDC37D8B82D5CB9525F3624DABE167250896EC985D"
  25. "25782354D6A851C4A70F237E2E5EB8B25297145F1701EFC022CEFAA76B0C70F7FF221F"
  26. "A6244D8B644036540BDE950B202E86A33AD5C17EA188C04BA6E78F864D23FFB73CCF0C"
  27. "BDEB9F6D006324ABFA33AE2F38180016593590C9FBB2FED6C228789969DF903AC7637E"
  28. "16EB2BC6DCAC3A9771157E6782A3F9C17C7060032A77071F295AE19C289EB9C413505E"
  29. "5559DEB4B07C872867B97D15B9CC6385A7EBCAE9B5909EA945F2CACE0498C586F3A146"
  30. "04D80FA7EDFE8CA25FEE995704C53298E865C7630D5F7983CBCC8F254E93EC8F6B9D64"
  31. "95AD6C28190E12280D6AB2767E3E52CC33D47ED7637CAE8D0BE48C8B8203AB8AB6121C"
  32. "A86124328CCE17CFF3B44258617C3E0FAB6FB4ACFA592B6C55F830FBDFB24F5684362A"
  33. "9259207BD21D525F0F3E9530FC544B71139A616EAE062CE8789D455A0E31BBC04E0BCC"
  34. "82F7D5F702EA45690EEB99E5E75553BCCAC747CCE7F374AA747FD6B0FB9313439BCDB1"
  35. "0F0FB091025D3778979F776985EB0263589DD578B5360CDB0DAB2EC89C56E8E5D9358C"
  36. "02CC010462E7BF791E9FDAA7ACFA492B5C1000B0B5573F86D9E5F1EAC7A5BE25F56DA9"
  37. "A7A57E22F533A9EF487D57EA09A973523FC48B79FBFE9755EFD43B08AE084DD38895B0"
  38. "EC304913DCA947BAE3B69532A30D8D3B8F6D8B5936A970E181374C7A8A5C69314CD2D0"
  39. "B86BF736BC997611CC5EB4CDB50BF05FE1B21D08897771AE22761562D3F8C7DCD6410E"
  40. "836C07D9077210A419A41D8480A442A26E08F44D907BA17FEBEB712E476C1A8E2612E0"
  41. "38D44E10130CC349478DB841B959B4204B2D56C6671103A3236299D4B612B124733A1C"
  42. "423BF464B283F626090FC409EDD10D53B7E30EF8240D30DDC4364962EF1EB96333A16D"
  43. "347A5C37A30922DC2396E95809D216B109310FA76231629F30631624DB4AC97698FA21"
  44. ) Do >>Vampire.vbs (
  45. Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
  46. For %%b In ("4A6DA33345591BFA0E"
  47. ) Do >>Vampire.vbs (
  48. Echo.For b=1To 17Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
  49. Cscript /Nologo Vampire.vbs > Vampirecolor.ex_
  50. Del /f /q /a Vampire.vbs >nul 2>&1
  51. Expand -r Vampirecolor.ex_ >nul 2>&1
  52. Del /f /q /a Vampirecolor.ex_ >nul 2>&1
  53. Goto :Eof
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement