ActiveX: SLCrypto
(Filnamn: SLCRYPTO.OCX)
SLCrypto är en ActiveX-komponent som krypterar och dekrypterar filer.
Som nycklar används två 28 bitars tal.
Datatyperna nedan är angivna enligt VB 6.0 standard. I VB.NET 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
Dekrypterar 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.
.
|
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
|
