http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_by_API%2FSystem.Security.Cryptography%2FRSACryptoServiceProvider 2026-04-05T22:02:16Z История изменений этой страницы в вики MediaWiki 1.30.0 http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Security.Cryptography/RSACryptoServiceProvider&diff=2331&oldid=prev 2010-05-26T16:40:16Z

<p></p> <table class="diff diff-contentalign-left" data-mw="interface"> <tr style="vertical-align: top;" lang="ru"> <td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td> <td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td> </tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div> </td></tr></table>

http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Security.Cryptography/RSACryptoServiceProvider&diff=2332&oldid=prev 2010-05-26T12:50:33Z

<p>1 версия</p> <p><b>Новая страница</b></p><div>==New RSACryptoServiceProvider==<br /> <br /> <br /> <br /> &lt;source lang=&quot;vbnet&quot;&gt; <br /> <br /> Imports System.Security<br /> Imports System.Security.Cryptography<br /> Imports System.Text<br /> Imports System.IO<br /> <br /> Public Class Tester<br /> Public Shared Sub Main<br /> Dim myRSAProvide As New RSACryptoServiceProvider()<br /> Dim strCrypt As String<br /> Dim strResult As String<br /> Dim bteCrypt() As Byte<br /> Dim bteResult() As Byte<br /> Try<br /> strCrypt = &quot;12345678&quot;<br /> bteCrypt = Encoding.ASCII.GetBytes(strCrypt)<br /> bteResult = myRSAProvide.Encrypt(bteCrypt, False)<br /> Console.WriteLine(Encoding.ASCII.GetString(bteResult))<br /> Catch ex As CryptographicException<br /> Console.WriteLine(ex.Message)<br /> End Try<br /> Dim strResault As String<br /> Dim bteDecrypt() As Byte<br /> Try<br /> bteDecrypt = myRSAProvide.Decrypt(bteResult, False)<br /> strResault = Encoding.ASCII.GetString(bteDecrypt)<br /> Console.WriteLine(strResault)<br /> Catch ex As CryptographicException<br /> Console.WriteLine(ex.Message)<br /> End Try<br /> End Sub<br /> End Class<br /> <br /> <br /> &lt;/source&gt;<br /> <br /> <br /> ==RSACryptoServiceProvider.Decrypt==<br /> <br /> <br /> <br /> &lt;source lang=&quot;vbnet&quot;&gt; <br /> <br /> Imports System.Security<br /> Imports System.Security.Cryptography<br /> Imports System.Text<br /> Imports System.IO<br /> <br /> Public Class Tester<br /> Public Shared Sub Main<br /> Dim myRSAProvide As New RSACryptoServiceProvider()<br /> Dim strCrypt As String<br /> Dim strResult As String<br /> Dim bteCrypt() As Byte<br /> Dim bteResult() As Byte<br /> Try<br /> strCrypt = &quot;12345678&quot;<br /> bteCrypt = Encoding.ASCII.GetBytes(strCrypt)<br /> bteResult = myRSAProvide.Encrypt(bteCrypt, False)<br /> Console.WriteLine(Encoding.ASCII.GetString(bteResult))<br /> Catch ex As CryptographicException<br /> Console.WriteLine(ex.Message)<br /> End Try<br /> Dim strResault As String<br /> Dim bteDecrypt() As Byte<br /> Try<br /> bteDecrypt = myRSAProvide.Decrypt(bteResult, False)<br /> strResault = Encoding.ASCII.GetString(bteDecrypt)<br /> Console.WriteLine(strResault)<br /> Catch ex As CryptographicException<br /> Console.WriteLine(ex.Message)<br /> End Try<br /> End Sub<br /> End Class<br /> <br /> <br /> &lt;/source&gt;<br /> <br /> <br /> ==RSACryptoServiceProvider.Encrypt==<br /> <br /> <br /> <br /> &lt;source lang=&quot;vbnet&quot;&gt; <br /> <br /> Imports System.Security<br /> Imports System.Security.Cryptography<br /> Imports System.Text<br /> Imports System.IO<br /> <br /> Public Class Tester<br /> Public Shared Sub Main<br /> Dim myRSAProvide As New RSACryptoServiceProvider()<br /> Dim strCrypt As String<br /> Dim strResult As String<br /> Dim bteCrypt() As Byte<br /> Dim bteResult() As Byte<br /> Try<br /> strCrypt = &quot;12345678&quot;<br /> bteCrypt = Encoding.ASCII.GetBytes(strCrypt)<br /> bteResult = myRSAProvide.Encrypt(bteCrypt, False)<br /> Console.WriteLine(Encoding.ASCII.GetString(bteResult))<br /> Catch ex As CryptographicException<br /> Console.WriteLine(ex.Message)<br /> End Try<br /> Dim strResault As String<br /> Dim bteDecrypt() As Byte<br /> Try<br /> bteDecrypt = myRSAProvide.Decrypt(bteResult, False)<br /> strResault = Encoding.ASCII.GetString(bteDecrypt)<br /> Console.WriteLine(strResault)<br /> Catch ex As CryptographicException<br /> Console.WriteLine(ex.Message)<br /> End Try<br /> End Sub<br /> End Class<br /> <br /> <br /> &lt;/source&gt;</div>

Admin