|
CryEncryptText
(XAPI2000)
Deklaration
VB 6.0
Function CryEncryptText (ByVal S As String, ByVal Key1 As Long,
ByVal Key2 As Long) As Boolean
Deklaration VB.NET
Function CryEncryptText (ByVal S As String, ByVal Key1 As Integer,
ByVal Key2 As Integer) As Boolean
Beskrivning
Krypterar en textsträng. Längden på strängen ökar 8 ggr efter
anrop av denna funktion. Stränglängden får vara max 10000 tecken
och kan bli maximalt 80000 tecken när funktionen återvänder. Den
skapade krypterade strängen innehåller endast ASCII-tecken > 32
och kan lagras i textfiler utan problem. Funktionen
CryDecryptText används för att
dekryptera strängen. Funktionen använder följande parametrar:
. |
| S |
Sträng
som ska krypteras. |
| Key1 |
Nyckel
1. |
| Key2 |
Nyckel
2. |
|
. |
Returvärden
Funktionen returnerar True om allt gått bra eller False
vid fel. För att erhålla felorsak kan funktionen
CryGetLastError anropas.
Se även
CryDecryptText |
Exempel (VB 6.0)
Dim S As String * 1000
S = "VB Super Library"
CryEncryptText(S, 987, 1589)
|
