Visual Basic .net

Unter VB.net arbeitet das Programm auf gleiche Art und Weise wie unter VB6. Details sind daher der vorhergehenden Beschreibung zu entnehmen. Ein kleiner Unterschied liegt im Gebrauch der Entschlüsselungsfunktion. Um den entschlüsselten Programmteil zu erhalten, muß ein "StringBuilder" an Stelle eines "Strings" verwendet werden. Sonst ist die DLL nicht in der Lage, in den Puffer zu schreiben.

Screenshot

Codebeispiel

Die Zeilen zeigen den Gebrauch der TcISGEncryption.dll mit VB.net:

<DllImport("TcISGEncrypt.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.StdCall)> _

Public Shared Function encode_cnc_file(ByVal pIn AsString, ByVal pOut AsString, ByVal password AsString) AsInteger

End Function

<DllImport("TcISGEncrypt.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.StdCall)> _

Public Shared Function decode_cnc_file(ByVal pDest As StringBuilder, ByVal pName AsString, ByVal Offset AsInteger, ByVal length AsInteger, ByVal password AsString) AsInteger

End Function

----------------------------------------------------------------------

Dim fileIn As String
Dim fileOut As String
Dim password As String

encode_cnc_file(fileIn, fileOut, password)

----------------------------------------------------------------------

Dim Offset AsInteger
DimpasswordAs String
Dimactive_file_nameAs String
Dim dest = New StringBuilder
dest.Length = 10

decode_cnc_file(dest, active_file_name, Offset, 10, password)