Open-AudIT
http://www.open-audit.org/phpBB3/

Runtime GetDataBack
http://www.open-audit.org/phpBB3/viewtopic.php?f=5&t=4887
Page 1 of 1

Author:  BestiaPL [ Wed Apr 06, 2011 6:53 am ]
Post subject:  Runtime GetDataBack

Script (audit.vbs) for find serial keys to Runtime GetDataBack (FAT & NTFS):

Code:
''''''''''''''''''''''''''''''''
'     GetDataBack FAT          '
''''''''''''''''''''''''''''''''
strKeyPath = "SOFTWARE\Runtime Software\GetDataBack\License"

  name_xp = "Get Data Back FAT"
  release_type = ""
  edition_type = ""
  path = strKeyPath
  subKey = "Name"
  oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key1
  subKey = "Key"
  oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key2
  key = key1 & "-" & key2
  if IsNull(key) then
  else
    strOffXPRUKey = key
    form_input = "ms_keys^^^" & name_xp       & "^^^" _
                              & strOffXPRUKey & "^^^" _
                              & release_type  & "^^^" _
                              & edition_type  & "^^^" _
                              & "GetDataBackFAT" & "^^^"
    entry form_input,comment,objTextFile,oAdd,oComment
    strOffXPRUKey = ""
    release_type = ""
    edition_type = ""
    form_input = ""
  end if

''''''''''''''''''''''''''''''''
'     GetDataBack NTFS         '
''''''''''''''''''''''''''''''''
strKeyPath = "SOFTWARE\Runtime Software\GetDataBackNT\License"

  name_xp = "Get Data Back NTFS"
  release_type = ""
  edition_type = ""
  path = strKeyPath
  subKey = "Name"
  oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key1
  subKey = "Key"
  oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key2
  key = key1 & "-" & key2
  if IsNull(key) then
  else
    strOffXPRUKey = key
    form_input = "ms_keys^^^" & name_xp       & "^^^" _
                              & strOffXPRUKey & "^^^" _
                              & release_type  & "^^^" _
                              & edition_type  & "^^^" _
                              & "GetDataBackNTFS" & "^^^"
    entry form_input,comment,objTextFile,oAdd,oComment
    strOffXPRUKey = ""
    release_type = ""
    edition_type = ""
    form_input = ""
  end if


Page 1 of 1 All times are UTC + 10 hours
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/