Diese kleine Script dient nur dazu einen schnellen Blick auf das Passwort zu verhindern.
Das Script verschlüsselt ein Passwort. Die Ergebniszeichenkette wird dann wieder in das Passwort zurück gewandelt.
Script-Link:

Option Explicit
' Passwort ver-, entschlüsseln
' Original stammt von activevb.de

Dim sVerschluesselt, sEntschluesselt, sPasswort

sPasswort = "ist geheim"
Const cKey = "si_oU75&iacut;EkO19drslI"

' Verschlüsseln und ausgeben
sVerschluesselt = Crypt(sPasswort, cKey, True)    

WScript.echo sVerschluesselt  
' Wieder entschlüsseln
sEntschluesselt = Crypt(sVerschluesselt, cKey, False)    
MsgBox "Passwort : " & sEntschluesselt & vbcrlf & "Verschlüsselt : " & sVerschluesselt, vbOK, "Passwort ver-, entschlüsseln"

Private Function Crypt(Inp, Key, Mode)
  Dim z, i, Position, cptZahl, orgZahl, keyZahl, cptString

  For i = 1 To Len(Inp)
    Position = Position + 1
    If Position > Len(Key) Then Position = 1
    keyZahl = Asc(Mid(Key, Position, 1))
    If Mode Then  
    ' Verschluesseln
      orgZahl = Asc(Mid(Inp, i, 1))
      cptZahl = orgZahl Xor keyZahl
      cptString = Hex(cptZahl)
      If Len(cptString) < 2 Then cptString = "0" & cptString
      z = z & cptString  
    Else  
      ' Entschluesseln
      If i > Len(Inp) \ 2 Then Exit For
        cptZahl = CByte("&H" & Mid(Inp, i * 2 - 1, 2))
        orgZahl = cptZahl Xor keyZahl
        z = z & Chr(orgZahl)
    End If
  Next
  Crypt = z
End Function

We use cookies on our website. Some of them are essential for the operation of the site, while others help us to improve this site and the user experience (tracking cookies). You can decide for yourself whether you want to allow cookies or not. Please note that if you reject them, you may not be able to use all the functionalities of the site.