w10key
Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen angezeigt.
| w10key [2021-05-27 16:02] – angelegt fzap | w10key [2021-05-27 16:08] (aktuell) – gelöscht fzap | ||
|---|---|---|---|
| Zeile 1: | Zeile 1: | ||
| - | < | ||
| - | Set WshShell = CreateObject(" | ||
| - | MsgBox ConvertToKey(WshShell.RegRead(" | ||
| - | |||
| - | Function ConvertToKey(Key) | ||
| - | Const KeyOffset = 52 | ||
| - | i = 28 | ||
| - | Chars = " | ||
| - | Do | ||
| - | Cur = 0 | ||
| - | x = 14 | ||
| - | Do | ||
| - | Cur = Cur * 256 | ||
| - | Cur = Key(x + KeyOffset) + Cur | ||
| - | Key(x + KeyOffset) = (Cur \ 24) And 255 | ||
| - | Cur = Cur Mod 24 | ||
| - | x = x -1 | ||
| - | Loop While x >= 0 | ||
| - | i = i -1 | ||
| - | KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput | ||
| - | If (((29 - i) Mod 6) = 0) And (i <> -1) Then | ||
| - | i = i -1 | ||
| - | KeyOutput = " | ||
| - | End If | ||
| - | Loop While i >= 0 | ||
| - | ConvertToKey = KeyOutput | ||
| - | End Function | ||
| - | </ | ||
w10key.1622124142.txt.gz · Zuletzt geändert: 2021-05-27 16:02 von fzap
Seiten-Werkzeuge
