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)
