online 1
gast (50)

/ Forum / Anwendungen(Java,C++...)

Anwendungen(Java,C++...)Anwendungen(Java,C++...)

Fragevon ersdfg vom 21.09.2021, 16:45 Options

Delphi: Product Key auslesen

Wie kann man unter Delphi alle möglichen Product Keys von Windows herausfinden?

Es heißt nicht, dass ich irgendwas *Z*en will, nur wäre es interessant zu wissen, wie der Quelltext aussieht.


Antwort schreiben

Antwort 1 von son_quatsch vom 22.09.2021, 07:36 Options

Windows hat doch immer nur einen Product Key.

Wie der Quellcode aussieht? Wie in allen anderen Programmiersprachen abseits Pascal auch: man liest aus der Registry mit Hilfe der Win32-API-Funktionen.

Antwort 2 von SecurebyDesign vom 22.09.2021, 13:21 Options

nix Delphi


#include <iostream>
#include <windows.h>

int main () {
    //Zeichenvorrat Buchstaben,Ziffern ohne AEIOU01 (24)
    UCHAR digits[] = {'B','C','D','F','G','H','J','K','M','P','Q','R','T','V','W','X','Y','2','3','4','6','7','8','9'};
    PUCHAR strresult = new UCHAR[26];
    PUCHAR buf = new UCHAR[200];
   
    HKEY key = NULL;
    DWORD datasize = 200;
    DWORD dwRet = 0;

    ZeroMemory((PVOID)strresult,26);

    dwRet = RegOpenKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion",0,KEY_READ,&key);                      
    dwRet = RegQueryValueEx(key,"DigitalProductID",NULL,NULL,(LPBYTE)buf,&datasize);
   
    if (dwRet != ERROR_SUCCESS) {
        return -1;
    }
   
    RegCloseKey(key);

    for (int i=24;i>=0;i--) {
        int x=0;

        for (int j=14;j>=0;j--) {
            x = (x<<8) + (buf+0x34)[j];
            (buf+0x34)[j] = x / 24;
            x = x % 24;
        }
        strresult[i]=digits[x];
    }
   
    std::cout << strresult;
   
    std::cin.get();
    return 0;
}

Antwort 3 von SecurebyDesign vom 22.09.2021, 13:28 Options

Ähnliche Themen

Memo in Delphi
tera  09.08.2008 - 44 Hits - 7 Antworten

zone alarm und product key
gast11  18.08.2008 - 23 Hits - 21 Antworten

Delphi Tipps
YipMan  07.02.2009 - 153 Hits - 1 Antwort

Delphi: Zwischenablage
gxxfds  16.02.2009 - 180 Hits - 1 Antwort

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026