home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1999 May / CDROM.ISO / sharewar / prx / decrypt.exe / decrypt.vbs
Encoding:
Text File  |  1999-03-17  |  648 b   |  32 lines
  1.  
  2.   Const ForReading = 1
  3.   Dim fso, f, Dateiname, Char
  4.   Dateiname=InputBox("Pfad und Dateinamen eingeben")
  5.   If Dateiname<>"" Then
  6.   Set fso = CreateObject("Scripting.FileSystemObject")
  7.   Set f = fso.OpenTextFile(Dateiname, ForReading)
  8.   f.Skip(312)
  9.   Char="X"  
  10.    Do Until asc(Char)=0  
  11.     Char=f.read(1)  
  12.     s=s+chr(decrypt(asc(Char)))
  13.    Loop
  14.   MsgBox("Das Kennwort lautet: "+s)
  15. End IF
  16.  
  17.   function decrypt(Char)
  18.  
  19.   If Char >96 And Char<127 Then
  20.     decrypt=223-Char
  21.   End If
  22.   If Char>68 AND Char<97 Then
  23.     decrypt=159-Char
  24.   End If
  25. If Char>20 AND Char<69 Then
  26.     decrypt=95-Char
  27.   End If
  28.  
  29.   end function
  30.  
  31.  
  32.