Visual Basic 6

Hier eine kurze Beispielanwendung die aufzeigen soll, wie ein NC-Programm ver- und entschlüsselt wird:

• Die "Start" Taste startet das NC-Programm in der Textbox.
• Die "Stop" Taste hält das NC-Programm an.
• Mit der "Encode a file" Taste kann das NC-Programm verschlüsselt werden.
• Mit der Taste " activate decode" wird auf die Onlineentschlüsselung des laufenden NC-Programmes umgeschaltet.

Screenshot

Codebeispiel

Die Zeilen zeigen den Gebrauch der TcISGEncryption.dll mit VB6:

Private Declare Function encode_cnc_file Lib "TcISGEncrypt.dll" _
(ByVal pIn As String, ByVal pOut As String, ByVal password As
String) As Long

Private Declare Function decode_cnc_file Lib "TcISGEncrypt.dll" _
(ByVal pDest As String, ByVal pName As String, ByVal Offset
As Long, ByVal length As Long, ByVal password As String) As
Long

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

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

encode_cnc_file(fileIn, fileOut, password)

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

Dim Offset As Long
Dim dest As String * 10
DimpasswordAs String
Dimactive_file_nameAs String

Call decode_cnc_file(dest, active_file_name, Offset, Len(dest), password)