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)

    
 
  
SamLogic