CryptoPRO KEY Viewer 3.1
Скрипт который может:
- достать серийный номер крипто про 4 и 5 версии.
- Сбросить триал версию (востановление происходит автоматически)
- удалить серийный номер
- Экспортироать закрытую часть ЭЦП из реестра.
- Экспортировать открытую часть ЭЦП
- Импортировать открытую часть ЭЦП
- Вывести User ID для импорта закрытой части на другой пк.
- Лицензионный ключ КриптоАрм
- сохранить пароли контейнеров которые сохранены в системе.
информация как использовать Crypto_Pro_keys.reg и User ID
Как достать ЭЦП сертификат из нерабочего ПК
Складывает все данный в текушую папку где сам скрипт и лежит.
рекомендую оставлять его в папке.
CryptoPRO_KEY_3.0.zip (1,7 КиБ, 6 скачиваний)
CryptoPRO_KEY_3.0.zip (4,1 КиБ, 5 скачиваний)
@echo off
chcp 1251
color 0a
title CryptoPRO KEY Viewer 3.1 (12.03.25)
goto :MAINMENU
:Admin
cd /d "%~dp0" && ( if exist "%temp%\getadmin.vbs" del "%temp%\getadmin.vbs" ) && fsutil dirty query %systemdrive% 1>nul 2>nul || ( cmd /u /c echo Set UAC = CreateObject^("Shell.Application"^) : UAC.ShellExecute "cmd.exe", "/k cd ""%~sdp0"" && ""%~s0""", "", "runas", 1 >> "%temp%\getadmin.vbs" && "%temp%\getadmin.vbs" && exit /B )
:MAINMENU
::set cripto4="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\7AB5E7046046FB044ACD63458B5F481C\InstallProperties"
::set cripto5="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\08F19F05793DC7340B8C2621D83E5BE5\InstallProperties"
color 0a
@echo off
CLS
echo. :=======================================================:
echo. CryptoPRO KEY Viewer 3.1 (12.03.25)
echo. Atlant-pc.ru
echo. :=======================================================:
echo.
Echo. [1] CryptoPRO SerialNumber Key
Echo.
Echo. [2] Export KEY User
echo.
Echo. [3] Sertificate
Echo.
Echo. [4] User ID
Echo.
Echo. [5] Full Backup
Echo.
Echo. [6] Crypto Arm
Echo.
echo. :=======================================================:
choice /C:123456 /N /M "Enter Your Choice [1,2,3,4,5,6] : "
if errorlevel 5 goto :Cryptoarm
if errorlevel 5 goto :FullBackup
if errorlevel 4 goto :UserID
if errorlevel 3 goto :Sertificate
if errorlevel 2 goto :exportkey
if errorlevel 1 goto :CryptoKeys
:CryptoKeys
CLS
echo. :=======================================================:
echo. CryptoPRO KEY Viewer 3.1 (12.03.25)
echo. Atlant-pc.ru
echo. :=======================================================:
echo. Crypto Pro Key
echo. :=======================================================:
echo.
Echo. [1] MAIN MENU
Echo.
Echo. [2] CryptoPRO SerialNumber Key
Echo.
Echo. [3] Reset Trial
Echo.
Echo. [4] Del License
Echo.
echo. :=======================================================:
choice /C:1234 /N /M "Enter Your Choice [1,2,3,4] : "
if errorlevel 4 goto :DelKey
if errorlevel 3 goto :ResetTrial
if errorlevel 2 goto :CryptoKey
if errorlevel 1 goto :MAINMENU
:CryptoKey
:: Crypto_Pro 4.0
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\7AB5E7046046FB044ACD63458B5F481C\InstallProperties" /V DisplayName') Do (Set DisplayName=%%J)
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\7AB5E7046046FB044ACD63458B5F481C\InstallProperties" /V DisplayVersion') Do (Set DisplayVersion=%%J)
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\7AB5E7046046FB044ACD63458B5F481C\InstallProperties" /V ProductID') Do (Set ProductID=%%J)
ECHO %DisplayName% %DisplayVersion% %ProductID% >> %~dp0"%DisplayName% %DisplayVersion% SerialNumber.txt"
:: Crypto_Pro 5.0
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\08F19F05793DC7340B8C2621D83E5BE5\InstallProperties" /V DisplayName') Do (Set DisplayName=%%J)
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\08F19F05793DC7340B8C2621D83E5BE5\InstallProperties" /V DisplayVersion') Do (Set DisplayVersion=%%J)
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\08F19F05793DC7340B8C2621D83E5BE5\InstallProperties" /V ProductID') Do (Set ProductID=%%J)
ECHO %DisplayName% %DisplayVersion% %ProductID% >> %~dp0"%DisplayName% %DisplayVersion% SerialNumber.txt"
goto :MAINMENU
:DelKey
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\7AB5E7046046FB044ACD63458B5F481C\InstallProperties" /v ProductID /f
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\08F19F05793DC7340B8C2621D83E5BE5\InstallProperties" /v ProductID /f
if %ERRORLEVEL% EQU 1 goto Admin
goto :MAINMENU
:ResetTrial
reg delete "HKEY_CLASSES_ROOT\WOW6432Node\CLSID\{C8B655BB-28A0-4BB6-BDE1-D0826457B2DF}" /f
reg delete "HKEY_CLASSES_ROOT\WOW6432Node\CLSID\{4BE57065-DC50-4239-8E32-11FABAF5ECF5}" /f
if %ERRORLEVEL% EQU 1 goto Admin
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\7AB5E7046046FB044ACD63458B5F481C\InstallProperties" /V LocalPackage') Do (Set LocalPackage=%%J)
if errorlevel 0 goto :5.0-reset
:5.0-reset
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\08F19F05793DC7340B8C2621D83E5BE5\InstallProperties" /V LocalPackage') Do (Set LocalPackage=%%J)
msiexec /fa %LocalPackage% PROPERTY=VALUE
goto :MAINMENU
:Sertificate
CLS
echo. :=======================================================:
echo. CryptoPRO KEY Viewer 3.1 (12.03.25)
echo. Atlant-pc.ru
echo. :=======================================================:
echo. Sertificate
echo. :=======================================================:
echo.
Echo. [1] MAIN MENU
Echo.
Echo. [2] Export Sertificate
echo.
Echo. [3] Import Sertificate
echo.
echo. :=======================================================:
choice /C:123 /N /M "Enter Your Choice [1,2,3] : "
if errorlevel 3 goto :ImportSert
if errorlevel 2 goto :exportSert
if errorlevel 1 goto :MAINMENU
:ImportSert
xcopy %~dp0\SystemCertificates\My\Certificates\ %Appdata%\Microsoft\SystemCertificates\My\Certificates\ /s /e /h /y
goto :MAINMENU
:exportSert
xcopy %Appdata%\Microsoft\SystemCertificates\My\Certificates\ %~dp0\SystemCertificates\My\Certificates\ /s /e /h /y
goto :MAINMENU
:exportkey
CLS
echo. :=======================================================:
echo. CryptoPRO KEY Viewer 3.1 (12.03.25)
echo. Atlant-pc.ru
echo. :=======================================================:
echo. Export Key
echo. :=======================================================:
echo.
Echo. [1] MAIN MENU
Echo.
Echo. [2] Save Key to REG
echo.
Echo. [3] Password container save
echo.
echo. :=======================================================:
choice /C:123 /N /M "Enter Your Choice [1,2,3] : "
if errorlevel 3 goto :passwordKey
if errorlevel 2 goto :exportReg
if errorlevel 1 goto :MAINMENU
:exportReg
For /F "Tokens=2*" %%I In ('whoami /user') Do (Set userid=%%I)
echo. %userid%
REG EXPORT "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Crypto Pro\Settings\users\%userid%\keys" %~dp0Crypto_Pro_keys.reg
::if %ERRORLEVEL% EQU 0 goto export
if %ERRORLEVEL% EQU 1 goto error
GOTO MAINMENU
:passwordKey
SetLocal EnableExtensions EnableDelayedExpansion
copy "C:\Program Files\Crypto Pro\CSP\csptest.exe" >nul
chcp 1251
if exist %computername%.txt del /f /q %computername%.txt
if exist temp.txt del /f /q temp.txt
set NameK=""
for /f "usebackq tokens=3,4* delims=\" %%a in (`csptest -keyset -enum_cont -fqcn -verifycontext` ) do (
set NameK=%%a
;csptest -passwd -showsaved -container "!NameK!" >> temp.txt
)
del /f /q csptest.exe
set/a $ai=-1
set/a $bi=2
for /f "usebackq delims=" %%a in ("temp.txt") do @(set "$a=%%a"
if "!$a:~,14!"=="AcquireContext" echo:!$a! >> %computername%.txt
if "!$a:~,8!"=="An error" echo:Увы, ключевой носитель отсутствует или пароль не был сохранен. >> %computername%.txt & echo: >> %computername%.txt
if "!$a:~,5!"=="Saved" set/a $ai=1
if !$ai! geq 0 set/a $ai-=1 & set/a $bi-=1 & echo:!$a! >> %computername%.txt
if !$bi!==0 echo: >> %computername%.txt & set/a $bi=2
)
del /f /q temp.txt
EndLocal
echo on
goto :mainmenu
:UserID
CLS
echo. :=======================================================:
echo. CryptoPRO KEY Viewer 3.1 (12.03.25)
echo. Atlant-pc.ru
echo. :=======================================================:
echo. UserID
echo. :=======================================================:
Echo. [1] MAIN MENU
Echo.
Echo. [2] Save UserID
echo.
echo. :=======================================================:
choice /C:123 /N /M "Enter Your Choice [1,2] : "
if errorlevel 2 goto :userid2
if errorlevel 1 goto :MAINMENU
:userid2
For /F "Tokens=2*" %%I In ('whoami /user') Do (Set userid=%%I)
echo %userid%>>%~dp0USERID.txt
GOTO MAINMENU
:FullBackup
xcopy %Appdata%\Microsoft\SystemCertificates\My\Certificates\ %~dp0\SystemCertificates\My\Certificates\ /s /e /h /y
:: Crypto_Pro 4.0
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\7AB5E7046046FB044ACD63458B5F481C\InstallProperties" /V DisplayVersion') Do (Set DisplayVersion=%%J)
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\7AB5E7046046FB044ACD63458B5F481C\InstallProperties" /V ProductID') Do (Set ProductID=%%J)
ECHO Crypto Pro %DisplayVersion% %ProductID% >> %~dp0Crypto_Pro.txt
:: Crypto_Pro 5.0
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\08F19F05793DC7340B8C2621D83E5BE5\InstallProperties" /V DisplayVersion') Do (Set DisplayVersion=%%J)
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\08F19F05793DC7340B8C2621D83E5BE5\InstallProperties" /V ProductID') Do (Set ProductID=%%J)
ECHO Crypto Pro %DisplayVersion% %ProductID% >> %~dp0Crypto_Pro.txt
For /F "Tokens=2*" %%I In ('whoami /user') Do (Set userid=%%I)
echo %userid%>>%~dp0USERID.txt
REG EXPORT "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Crypto Pro\Settings\users\%userid%\keys" %~dp0Crypto_Pro_keys.reg /y
CLS
GOTO MAINMENU
:Cryptoarm
::For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\08F19F05793DC7340B8C2621D83E5BE5\InstallProperties" /V DisplayVersion') Do (Set DisplayVersion=%%J)
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\E5D95D5E119F3CE4F98495B9469850C9\InstallProperties" /V DisplayVersion') Do (Set DisplayVersion=%%J)
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\WOW6432Node\Digt\Trusted Desktop\License" /V SerialNumber') Do (Set SerialNumber=%%J)
ECHO Crypto ARM %DisplayVersion% %SerialNumber% >> %~dp0Crypto_Arm.txt
GOTO MAINMENU
:error
echo. ERROR
echo Press any key to continue...
pause >nul
CLS
GOTO MAINMENU
:exitt
CLS
GOTO MAINMENU