/
aprogrammer
/
dotnet-docs
Обзор
Документация
Войти
/
aprogrammer
/
dotnet-docs
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
samples/snippets/visualbasic/VS_Snippets_CLR/Cryptography.SmartCardCSP/VB/example.vb
44 строки
2 KB
Nick Schonning
fix: various typos in code samples (#31546)
04 апр 2023, 23:19
Не верифицирован
04 апр 2023, 23:19
5aa042b
Код
Авторство
О чём код?
'<SNIPPET1> Imports System.Security.Cryptography Module SCSign Sub Main(ByVal args() As String) ' To identify the Smart Card CryptoGraphic Providers on your ' computer, use the Microsoft Registry Editor (Regedit.exe). ' The available Smart Card CryptoGraphic Providers are listed ' in HKEY_LOCAL_MACHINE\Software\Microsoft\Cryptography\Defaults\Provider. ' Create a new CspParameters object that identifies a ' Smart Card CryptoGraphic Provider. ' The 1st parameter comes from HKEY_LOCAL_MACHINE\Software\Microsoft\Cryptography\Defaults\Provider Types. ' The 2nd parameter comes from HKEY_LOCAL_MACHINE\Software\Microsoft\Cryptography\Defaults\Provider. Dim csp As New CspParameters(1, "Schlumberger Cryptographic Service Provider") csp.Flags = CspProviderFlags.UseDefaultKeyContainer ' Initialize an RSACryptoServiceProvider object using ' the CspParameters object. Dim rsa As New RSACryptoServiceProvider(csp) ' Create some data to sign. Dim data() As Byte = {0, 1, 2, 3, 4, 5, 6, 7} Console.WriteLine("Data : " + BitConverter.ToString(data)) ' Sign the data using the Smart Card CryptoGraphic Provider. Dim sig As Byte() = rsa.SignData(data, "SHA1") Console.WriteLine("Signature : " + BitConverter.ToString(sig)) ' Verify the data using the Smart Card CryptoGraphic Provider. Dim verified As Boolean = rsa.VerifyData(data, "SHA1", sig) Console.WriteLine("Verified") End Sub End Module '</SNIPPET1>