|
CryDecryptBuf
(XAPI2000)
Deklaration
VB 6.0
Function CryDecryptBuf (Buf As String, ByVal DataSize As Long,
ByVal Key1 As Long, ByVal Key2 As Long) As Integer
Deklaration VB.NET
Function CryDecryptBuf (Buf As String, ByVal DataSize As Integer,
ByVal Key1 As Integer, ByVal Key2 As Integer) As Integer
Beskrivning
Dekrypterar data i en databuffert. Datan måste ha krypterats
med funktionen CryEncryptBuf. Den
dekrypterade datan lagras i samma buffert som indatan. Efter kryptering
minskar datamängden med 8 ggr.
Funktionen använder följande
parametrar:
. |
| Buf |
Databuffert med data
som ska dekrypteras. |
| DataSize |
Storleken på datamängden
i databufferten. |
| Key1 |
Nyckel 1. |
| Key2 |
Nyckel 2. |
|
. |
Returvärden
Funktionen returnerar den nya storleken på databufferten. Om allt
gått bra ska den vara exakt 8 ggr mindre än innan anropet. Vid fel
returnerar funktionen 0. För att erhålla felorsak kan funktionen
CryGetLastError anropas.
Se även
CryEncryptBuf |
Exempel (VB 6.0)
Dim Buf As String * 8000
Dim BufSize As Integer
...
BufSize = CryDecryptBuf(Buf, 8000,
9781, 15892)
|
