![]() ![]() Exec ( strCommand ) sAdobeEncryptedKey = output. ScriptName ))) strCacheFile = FindCacheFile ( strCacheFile ) strCommand = strCurrentDirectory & "sqlite3.exe " & Chr ( 34 ) & strCacheFile & Chr ( 34 ) & " " & chr ( 34 ) & "select value from domain_data where key='SN' " & chr ( 34 ) set output = objShell. strCacheFile = "" Set objFSO = CreateObject ( "Scripting.FileSystemObject" ) Set objShell = CreateObject ( "Wscript.Shell" ) strCurrentDirectory = left ( WScript. 'SQLITE3 source and binaries can be found at Dim strCacheFile 'If you want to specyfy the location of your cache file type it in between the quotes. 'Written by Ryan Williams I am not a programmer so please excuse the messy code 'Now to give credit where credit is due: 'Cipher code converted from Sam Gleske's javascript found at: 'His code was Converted from the source for "Enchanted Keyfinder" 'original algorithm by Dave Hope () 'To run this program make sure that sqlite3.exe is in the same folder as this vbs file.
0 Comments
Leave a Reply. |