ActiveX: SLCrypto (Filnamn: SLCRYPTO.OCX)
| SLCrypto är en
ActiveX-komponent som krypterar och dekrypterar filer. Som nycklar används
två 28 bitars tal. Not. Datatyperna nedan är angivna enligt VB 6.0 standard. I VB.NET miljö ska Integer ersättas med Short (16 bitar) och Long ersättas med Integer (32 bitar). |
Egenskaper
| Namn | Datatyp | Beskrivning |
| DestFileName | String | Filnamn på destinationsfilen.
Vid kryptering blir detta filnamnet på den krypterade filen och vid
dekryptering blir detta filnamnet på den dekrypterade filen. . |
| ErrorStatus | Long | Om ett fel inträffar under
kryptering eller dekryptering kan senaste felkod avläsas här. Felkoderna
är samma som erhålls med Windows API-funktionen GetLastError. För
en lista på möjliga felkoder kan dokumentationen till denna
Windows-funktion studeras. Några vanliga felkoder är dock: 2 - Hittar ej filen. 3 - Hittar ej katalogen. 4 - För många öppnade filer, kan ej öppna filen. 5 - Åtkomst nekad, kan ej öppna filen. 8 - För lite minne i systemet för att fullfölja operationen. 87 - Felaktig parameter. . |
| Key1 | Long | Nyckel 1. 28-bitar används. . |
| Key2 | Long | Nyckel 2. 28-bitar används. . |
| SrcFileName | Long | Filnamn på källfilen. Fil som
ska krypteras eller dekrypteras. . |
Metoder
Encrypt () As Boolean Krypterar en fil. Som källsökväg används egenskapen SrcFileName och som destinatonsfil används egenskapen DestFileName. Som nycklar används egenskaperna Key1 och Key2. Funktionen returnerar True om allt gått bra eller False vid fel. Vid fel kan egenskapen ErrorStatus avläsas för att erhålla felkod. Decrypt ()
As Boolean |
Exempel
Dim st As Long
SLCrypto1.Key1 = 13892
' Nyckel 1
SLCrypto1.Key2 = 239782
' Nyckel 2
SLCrypto1.SrcFileName = "C:\Internet\Caltest.txt" '
Källfil
SLCrypto1.DestFileName = "C:\Internet\Caltest.cr2" '
Destinationsfil
If SLCrypto1.Encrypt = False Then
st = SLCrypto1.ErrorStatus
' Om fel så hämtar vi felkod
End If
