this thread is so funny i go somewhere to come back and see someone tried to do what i did. if anyone actually go it downloaded i would like a screen shot of it my project was started back in beta one days for win 7
7Activate Thanks for your reply. I'd rather do it manually than trusting those binaries. Anyway, Windows was activated successfully after I restart by computer . I share the script I wrote and welcome anyone who tries it. View attachment 7activate.part1.rar View attachment 7activate.part2.rar View attachment 7activate.part3.rar It was tested successfully on my Windows 7 32bit and It would work on 64bit. Since It's batch files, you can inspect it anytime you want. There could be bugs, if you catch one of those, let me know via the email in the script. Sincerely,
Token Restore was written by MDL member and has been tested there is also autorestore tool you can add to dvd.
Sorry, I don't got it. Tested? You meant tested by whom? Can't it just send your data, like your product key for instance, over the internet? It's just I'm very paranoid about security.
Tested by members on this forum like most tools developed here, people are not allowed just to post programs not developed here. if you are that paranoid disconnect from the net while you at least look at the tools but i can assure you they are safe. also here is a small vbs script that will grab your windows key and save to desktop as ProductKey.txt save you using jellybean keyfinder. Code: '/-> Varibles Dim Act, Dtop, Fso, KeyXP, Sif, strXPKey, Ts, VBS '/-> Objects Set Act = CreateObject("WScript.Shell") Set Fso = CreateObject("Scripting.FileSystemObject") '/-> Varibles As Objects strXPKey = Act.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName") KeyXP = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId" Dtop = Act.SpecialFolders("Desktop") Sif = Dtop & "\ProductKey.txt" VBS = Act.ExpandEnvironmentStrings("%Systemdrive%\Key_Sif.vbs") '/-> Get The Key Function GetKey(rpk) Const rpkOffset=52:i=28 szPossibleChars="BCDFGHJKMPQRTVWXY2346789" Do dwAccumulator=0 : j=14 Do dwAccumulator=dwAccumulator*256 dwAccumulator=rpk(j+rpkOffset)+dwAccumulator rpk(j+rpkOffset)=(dwAccumulator\24) and 255 dwAccumulator=dwAccumulator Mod 24 j=j-1 Loop While j>=0 i=i-1 : szProductKey=mid(szPossibleChars,dwAccumulator+1,1)&szProductKey If (((29-i) Mod 6)=0) And (i<>-1) Then i=i-1 : szProductKey="-"&szProductKey End If Loop While i>=0 GetKey=szProductKey End Function '/-> Make The Sif With Ket Added Function MakeTheSif() Set Ts = Fso.CreateTextFile(Sif) Ts.WriteLine Space(4) & "ProductKey=" & GetKey(Act.RegRead(KeyXP)) & vbCrLf Ts.Close Act.Run("notepad.exe " & Sif) End Function '/-> Deletes the VBS File Function Cleanup() If Fso.FileExists(VBS) Then Fso.DeleteFile(VBS) End If End Function '/-> Start The Script Functions MakeTheSif : Cleanup also im sure if you ask some of the developers here they will give you code to add to your 7backup.bat to read key also you do not use bat files any more they are .cmd