Verschlüsseln

Wenn man verhindern will, dass jemand in den Klartext eines selbst erstellten Skripts schaut und ggf. den Code ändert, muss das Skript verschlüsselt werden. Dazu bietet Microsoft einen Encoder an. Die Installationsdatei SCE10DE.exe ist zu finden auf der Seite
http://www.microsoft.com/downloads/details.aspx?displaylang=de&FamilyID=e7877f67-c447-4873-b1b0-21f0626a6329

Die Installation erzeugt die Hilfsdatei SCRENC.chm und den eigentlichen Decoder SCRENC.exe.

Der Encoder ist ein Befehlszeilentool mit dem man beispielsweise

• aus einer vbs-Datei eine verschlüsselte vbe-Datei oder
• aus einer js-Datei eine verschlüsselte je-Datei

erzeugen kann.

Dabei kann man die Datei unterteilen in einen unverschlüsselten Teil am Anfang und dem restlichen, verschlüsselten Teil. Dies geschieht durch Eintragen der Marke

  '**Start Encode**     bei vb-Skripten bzw.
  //**Start Encode**    bei j-Skripten

ab der der Code verschlüsselt wird.

Bei FixFoto-Skripten kann man damit den Kopf, bestehend aus

'FFSubmenu=... bzw. //FFSubmenu=... (Name der Kategorie für das Skript)
'FFName=...    bzw. //FFName=...    (Name des Skriptes innerhalb der festgelegten Kategorie)

unverschlüsselt lassen.

Der Encoder ist gespeichert im Ordner
D:\Skripte\screnc.exe

Das FixFoto-Skript Ordner_Liste.vbs mit gesetzter Startmarke, abgelegt im Pfad
D:\FixFoto\Script\Ordner_Liste.vbs
sieht so aus:

  'FFSubmenu=Test
  'FFName=Ordnerliste
 
  'Anzeige des aktiven Ordners und aller Unterordner
  '**Start Encode**
 
  Option Explicit
 
  Dim objFS,objFolder
  Set objFS = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFS.GetFolder(FF_GetImagePath)
 
  Dim Ordnerliste
 
  call AlleOrdner(objFolder)
 
  Set objFolder = nothing
  Set objFS = nothing
 
  msgbox Ordnerliste,vbInformation,"Ordner und Unterordner"
  '-------------------------------------------------------------
  Sub AlleOrdner(ByVal Startordner)
  Dim Unterordner
 
  Ordnerliste = Ordnerliste & Startordner & vbNewLine
 
  For Each Unterordner In Startordner.subfolders
      AlleOrdner Unterordner
  Next
 
  End Sub
  '-------------------------------------------------------------

Die Kommandozeile zum Verschlüsseln (unbedingt alles in eine Zeile schreiben) muss so aussehen:

"D:\Skripte\screnc.exe" "D:\FixFoto\Script\Ordner_Liste.vbs" "D:\FixFoto\Script\Ordner_Liste.vbe"

und wird am besten als Batchdatei, z.B. Verschluesseln.bat abgespeichert und dann ausgeführt.

Das Ergebnis ist die verschlüsselte Skriptdatei Ordner_Liste.vbe

  'FFSubmenu=Test
  'FFName=Ordnerliste
 
  'Anzeige des aktiven Ordners und aller Unterordner
  '**Start Encode**#@~^tQIAAA==@#@&@#@&}wDkW   PAaw^k^kD@#@&@#@&fks~W(LsUSG4NsKV[+.@#@&?nY,G4Nsj~{PZ.nmYnr
  (%mOvJUmDbwDrxTRok^+jzkY+s64N+mDEb@#@&?Y~W8%wWsN.P{PG8Ns?
  !YoW^[Dcws|M+DqsConCY4#@#@&@#@&fbhP}DN .......

Die verschlüsselte Skriptdatei ist so wie sie hier gezeigt wird, nicht lauffähig, da sie aus Darstellungsgründen abgekürzt wurde.

Wenn man öfter Skripte verschlüsseln will, ist die oben beschriebene Vorgehensweise sehr mühsam. Um den Vorgang zu automatisieren, kann man folgendes VB-Skript (kein FixFoto-Skript) verwenden:

  'Skript zum Verschlüsseln von VB- und Java-Skripten mit installiertem Encoder SCRENC
  '************************************** SKRIPT ******************************************************
  'Die Installationsdatei sce10de.exe für SCRENC kann herunter geladen werden von der MICROSOFT-Seite
  'http://www.microsoft.com/downloads/details.aspx?displaylang=de&FamilyID=e7877f67-c447-4873-b1b0-21f0626a6329
 
  'Der Encoder muss im selben Verzeichnis abgelegt sein wie das vorliegende Skript
  'Es wird verschlüsselt ab '**Start Encode** bzw. //**Start Encode**
 
  'Das zu verschlüsselnde Skript wird  manuell auf das vorliegende Skript gezogen oder auf eine Verknüpfung davon.
  'Das verschlüsselte Skript erhält die Dateiendung vbe bei vb-Skripten bzw. je bei j-Skripten
  'und wird im selben Verzeichnis abgelegt wie das Original.
  '************************************** SKRIPT ******************************************************
  Option Explicit
 
  'Deklarationen
  Dim objFS,WshShell
  Set objFS = WScript.CreateObject("Scripting.FileSystemObject")   'FileSytemObject
  Set WshShell = WScript.CreateObject("WScript.Shell")
 
  Dim script,scriptpath,encoder
  Dim objFile,Extension,Name1,Name2,Befehl
 
  'Feststellen wie der eigene Ordner heißt
  script = Wscript.ScriptFullName
  scriptpath = objFS.getparentfoldername(script)
  encoder = scriptpath & "\screnc.exe"
 
  'Prüfen ob Datei SCRENC  vorhanden ist
  If not (objFS.FileExists(encoder)) Then
     MsgBox "Der Encoder" & vbNewLine & encoder & vbNewLine & "wurde nicht gefunden!" & vbNewLine & _
            "Das Skript wird abgebrochen.",vbExclamation,"Abbruch"
     WScript.Quit
  end if
 
  encoder = """" & encoder & """"
 
  'das zu verschlüsselnde Skript wird als gedroppte Datei erkannt
  on error resume next
  Set objFile = objFS.GetFile(WScript.Arguments(0))
  if err > 0 then
     Msgbox "Es wurde keine Datei gedroppt" & vbNewLine & _
            "Das Skript wird abgebrochen.",vbExclamation,"Abbruch"
     Wscript.Quit
  end if
  on error goto 0
 
  'ermitteln des Dateinamens für das verschlüsselte Skript und codieren
  Extension = Ucase(objFS.GetExtensionName(objFile.Name))
  if Extension = "VBS" or Extension = "JS" then
 
     Name1 = """" & objFile & """"
     if Extension = "VBS" then
        Name2 = """" & left(objFile,len(objFile)-1) & "e" & """"
     else
        Name2 = """" & objFile & "e" & """"
     end if
 
     Msgbox "Das Skript" & vbNewLine & Name1 & vbNewLine & "wird codiert in" & _
            vbNewLine & Name2,vbInformation,"Info"
 
     Befehl = encoder & " " & Name1 & " " & Name2
     on error resume next
     WshShell.Run Befehl,,true
     if err > 0 then
        Msgbox "Bei der Codierung trat ein Fehler auf.",vbExclamation,"Abbruch"
     else
        Msgbox "Die Codierung war erfolgreich",vbInformation,"Fertigmeldung"
     end if
  else
     Msgbox "Die Datei" & vbNewLine & objFile & vbNewLine & "ist kein VB- oder J-Skript." & _
           vbNewline & vbNewLine & "Die Codierung wird abgebrochen!",vbExclamation,"Abbruch"
  end if
  '************************************** ENDE   ******************************************************

Das Skript muss in einem gemeinsamem Ordner mit der Encoder-Datei abgespeichert werden. Dann legt man am besten eine Verknüpfung zum Verschlüsselungsskript auf dem Desktop ab und kann dann eine zu verschlüsselnde Datei per "Drag and Drop" auf diese Verknüpfung ziehen. Dadurch wird automatisch die Verschlüsselung gestartet und bei Erfolg das verschlüsselte Skript im selben Ordner wie das Original abgelegt.

Die Verschlüsselung verhindert den laienhaften Zugriff auf den Code. Man muss aber wissen, dass das Decodieren einer solchen Verschlüsselung für den Experten relativ einfach ist. Man kann sich also nicht darauf verlassen, dass mit der Verschlüsselung der Code wirklich gesichert ist.

Man sollte Skripte in der Regel im Klartext veröffentlichen. Das erlaubt anderen auf einfache Weise aus einem Skript Informationen zu ziehen, ggf. daraus zu lernen, evtl. Fehler zu beseitigen oder für eigene Zwecke anzupassen. Nur wenn man deutlich machen will, dass alles dies nicht gewünscht wird, ist die Verschlüsselung angebracht.