CryEncryptBuf (XAPI2000)
| Deklaration VB
6.0 Function CryEncryptBuf (Buf As String, ByVal DataSize As Long, ByVal BufSize As Long, ByVal Key1 As Long, ByVal Key2 As Long) As Integer Deklaration VB.NET Function CryEncryptBuf (Buf As String, ByVal DataSize As Integer, ByVal BufSize As Integer, ByVal Key1 As Integer, ByVal Key2 As Integer) As Integer Beskrivning Krypterar data i en databuffert. Den krypterade datan lagras i samma buffert som indatan. Efter kryptering ökar datamängden med 8 ggr så bufferten måste ha tillräckligt med utrymme för att lagra den nya datan, annars kan minne i datorn skrivas över. Funktionen CryDecryptBuf används för att dekryptera data som krypterats med denna funktion. Funktionen använder följande parametrar: . |
|
| Buf | Databuffert (sträng) med data som ska krypteras. |
| DataSize | Storleken på datamängden i databufferten. Eftersom datamängden växer 8 ggr vid krypteringen får denna parameter inte vara större än BufSize / 8. |
| BufSize | Storleken på bufferten. Anger den maximala storleken som den krypterade datamängden får växa till. |
| 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 större än innan anropet. Vid fel returnerar funktionen 0. För att erhålla felorsak kan funktionen CryGetLastError anropas. Se även CryDecryptBuf |
|
Exempel (VB 6.0)
Dim Buf As String * 8000
Dim BufSize As Integer
Buf = "Testdata"
BufSize = CryEncryptBuf(Buf, 1000, 8000, 9781, 15892)
