Lines Matching full:as

12             ByRef pPlainText As DATA_BLOB, _
13             ByVal szDescription As String, _
14             ByRef pEntropy As DATA_BLOB, _
15             ByVal pReserved As IntPtr, _
16             ByRef pPrompt As CRYPTPROTECT_PROMPTSTRUCT, _
17             ByVal dwFlags As Integer, _
18             ByRef pCipherText As DATA_BLOB _
19         ) As Boolean
24             ByRef pCipherText As DATA_BLOB, _
25             ByRef pszDescription As String, _
26             ByRef pEntropy As DATA_BLOB, _
27             ByVal pReserved As IntPtr, _
28             ByRef pPrompt As CRYPTPROTECT_PROMPTSTRUCT, _
29             ByVal dwFlags As Integer, _
30             ByRef pPlainText As DATA_BLOB _
31         ) As Boolean
36             Public cbData As Integer
37             Public pbData As IntPtr
42             Public cbSize As Integer
43             Public dwPromptFlags As Integer
44             Public hwndApp As IntPtr
45             Public szPrompt As String
48         Private Const CRYPTPROTECT_UI_FORBIDDEN As Integer = 1
49         Private Const CRYPTPROTECT_LOCAL_MACHINE As Integer = 4
53             ByRef ps As CRYPTPROTECT_PROMPTSTRUCT _
63             ByVal data As Byte(), _
64             ByRef blob As DATA_BLOB _
90         Private Shared defaultKeyType As KeyType = KeyType.UserKey
94             ByVal keyType As KeyType, _
95             ByVal plainText As String, _
96             ByVal entropy As String, _
97             ByVal description As String _
98         ) As String
106             Dim result As Byte()
107             Dim encrypted As String = ""
108             Dim i As Integer
121             ByVal keyType As KeyType, _
122             ByVal plainTextBytes As Byte(), _
123             ByVal entropyBytes As Byte(), _
124             ByVal description As String _
125         ) As Byte()
138             Dim plainTextBlob As DATA_BLOB = New DATA_BLOB
139             Dim cipherTextBlob As DATA_BLOB = New DATA_BLOB
140             Dim entropyBlob As DATA_BLOB = New DATA_BLOB
142             Dim prompt As  _
149                 Catch ex As Exception
155                 Catch ex As Exception
159                 Dim flags As Integer = CRYPTPROTECT_UI_FORBIDDEN
165                 Dim success As Boolean = CryptProtectData( _
175                     Dim errCode As Integer = Marshal.GetLastWin32Error()
181                 Dim cipherTextBytes(cipherTextBlob.cbData) As Byte
187             Catch ex As Exception
206     Sub Main(ByVal args As String())
208             Dim text As String = args(0)
209             Dim encrypted As String
215         Catch ex As Exception