Re: Zamazany klucz

DooMiniK wrote:
> Zapodaj programik ;-)

Proszę bardzo. f01, f03, f05 przechowują potencjalne możliwe znaki na
szukanej pozycji, a f02, f04, f06 fragmenty na 100% pewne odczytane z
naklejki. Zapuszczasz i jeśli tylko w zbiorze możliwych jest szukany
serial to go znajdzie a ekran powita cię próbą aktywacji przez internet.

var WshShell = WScript.CreateObject("WScript.Shell");

// dozwolone 2346789BCDFGHJKMPQRTVWXY

var f01={3:"3",6:"6",8:"8",9:"9",B:"B",G:"G",H:"H"};
var f02="ABCDE";
var f03={3:"3",6:"6",8:"8",9:"9",B:"B",C:"C"};
var f04="FGHIJKLMN"
var f05={6:"6",C:"C",G:"G",Q:"Q"};
var f06="OPRSTUV";

var key="", i=0, j=0, ts, te;

var fOut = new ActiveXObject("Scripting.FileSystemObject");
var iOut = fOut.OpenTextFile("keys.log", 8, true);

for (x in f01) {
key+=(f01[x]+f02);
for (y in f03) {
        key+=(f03[y]+f04);
        for (z in f05) {
        key+=(f05[z]+f06);
        i++;
        iOut.Write(i + ". SPRAWDZAM KLUCZ: " + key + " TIME: ");
        WScript.Sleep(250);
        ts=new Date().getTime(); WScript.Sleep(250);
        WshShell.AppActivate("Aktywacja produktu Windows");
        WScript.Sleep(250);
        WshShell.SendKeys(key); WScript.Sleep(250);
        WshShell.SendKeys("{ENTER}"); WScript.Sleep(250);
        j=0;
while( j<=60 && !WshShell.AppActivate("NieprawidÂłowy klucz produktu") ) {
WScript.Sleep(2000);
j++;
}
WScript.Sleep(250);
WshShell.AppActivate("NieprawidÂłowy klucz produktu"); WScript.Sleep(250);
WshShell.SendKeys("{ENTER}"); WScript.Sleep(250);
                        
iOut.WriteLine( (new Date()).getTime() - ts); WScript.Sleep(250);
key=key.substr(0,key.length-f06.length-f05[z].length);
}
key=key.substr(0,key.length-f04.length-f03[y].length);
}
key=key.substr(0,key.length-f02.length-f01[x].length);
}

iOut.close();
WScript.Echo("KONIEC");
Received on Mon 16 Apr 2012 - 11:10:03 MET DST