Voici un petit programme en VBS\u00a0pour conna\u00eetre sa cl\u00e9 d'activation Windows.<\/p>\n
Utilisation :<\/strong> Ouvrir le bloc note,\u00a0copier l'ensemble des lignes ci-dessous et\u00a0enregistrer le fichier avec une extension \"vbs\" (Exemple : macle.vbs).<\/p>\n Fonctionne sous Windows 7,8,8.1,10<\/p>\n T\u00e9l\u00e9charger le programme\u00a0ici<\/a><\/p>\n","protected":false},"excerpt":{"rendered":" Voici un petit programme en VBS\u00a0pour conna\u00eetre sa cl\u00e9 d'activation Windows. Utilisation : Ouvrir le bloc note,\u00a0copier l'ensemble des lignes ci-dessous et\u00a0enregistrer le fichier avec une extension \"vbs\" (Exemple : macle.vbs). Set WshShell = CreateObject(\"WScript.Shell\") MsgBox ConvertToKey(WshShell.RegRead(\"HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\DigitalProductId\")) Function ConvertToKey(Key) Const KeyOffset = 52 i = 28 Chars = \"BCDFGHJKMPQRTVWXY2346789\" Do Cur = 0 x\u2026 Lire la suite »<\/a><\/span><\/p>\n","protected":false},"author":11,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2],"tags":[],"class_list":["post-23","post","type-post","status-publish","format-standard","hentry","category-windows"],"_links":{"self":[{"href":"https:\/\/bitsparadise.info\/index.php\/wp-json\/wp\/v2\/posts\/23","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/bitsparadise.info\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/bitsparadise.info\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/bitsparadise.info\/index.php\/wp-json\/wp\/v2\/users\/11"}],"replies":[{"embeddable":true,"href":"https:\/\/bitsparadise.info\/index.php\/wp-json\/wp\/v2\/comments?post=23"}],"version-history":[{"count":13,"href":"https:\/\/bitsparadise.info\/index.php\/wp-json\/wp\/v2\/posts\/23\/revisions"}],"predecessor-version":[{"id":822,"href":"https:\/\/bitsparadise.info\/index.php\/wp-json\/wp\/v2\/posts\/23\/revisions\/822"}],"wp:attachment":[{"href":"https:\/\/bitsparadise.info\/index.php\/wp-json\/wp\/v2\/media?parent=23"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/bitsparadise.info\/index.php\/wp-json\/wp\/v2\/categories?post=23"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/bitsparadise.info\/index.php\/wp-json\/wp\/v2\/tags?post=23"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}Set WshShell = CreateObject(\"WScript.Shell\")\r\nMsgBox ConvertToKey(WshShell.RegRead(\"HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\DigitalProductId\"))\r\n\r\nFunction ConvertToKey(Key)\r\nConst KeyOffset = 52\r\ni = 28\r\nChars = \"BCDFGHJKMPQRTVWXY2346789\"\r\nDo\r\nCur = 0\r\nx = 14\r\nDo\r\nCur = Cur * 256\r\nCur = Key(x + KeyOffset) + Cur\r\nKey(x + KeyOffset) = (Cur \\ 24) And 255\r\nCur = Cur Mod 24\r\nx = x -1\r\nLoop While x >= 0\r\ni = i -1\r\nKeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput\r\nIf (((29 - i) Mod 6) = 0) And (i <> -1) Then\r\ni = i -1\r\nKeyOutput = \"-\" & KeyOutput\r\nEnd If\r\nLoop While i >= 0\r\nConvertToKey = KeyOutput\r\nEnd Function<\/pre>\n