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)
 

  
SamLogic