|
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)
|
