die ergebnisseite der googlesuche:
http://www.google.de/search?client=...e&q=rot13&meta=&btnG=Google-Suche
suchergebnisse rot13,vbs:
http://www.google.de/search?hs=rcv&...al_s&q=rot13.vbs&btnG=Suche&meta=
und wer das alles gar nicht haben will, benutzt folgende reg-einträge:
erstmal, um zu löschen, userassist einträge löschen.reg
#########################################################
Windows Registry Editor Version 5.00
[-HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist]
#########################################################
danach neustart
und userassist_NoLog.reg in registry einfügen:
##############################################################
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist]
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\Settings]
NoLog=dword:00000001
##############################################################
wieder neustart, jetzt ist ruhe im userassist.
und noch der inhalt von rot13.vbs:
#####################################################################################
' Scriptname: ROT13.VBS
' Author: David G Wolski
' Use: Codiert und decodiert Textdateien nach der
' simplen ROT-13 Methode. Ein Buchstabe wird
' dabei um 13 Stellen im Alphabet verschoben.
' Die Besonderheit dieser antiken Chiffrierung
' ist,dass eine doppelte Verschlüsselung wieder
' den Klartext ergibt. Folgendes Schema zeigt
' die Verschiebung der Buchstaben im Alphabet:
' A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
' N O P Q R S T U V W X Y Z A B C D E F G H I J K L M
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set oWSHShell = CreateObject(WScript.Shell)
Set oFs = CreateObject(Scripting.FileSystemObject)
'Das Script nimmt Dateien per Drag´n´Drop, ohne Dateiangabe kann ein Text in eine InputBox geschrieben werden, der dann stattdessen verarbeitet wird.
If Wscript.Arguments.Count = 0 Then
strInputText = InputBox(Dieses Script dekodiert und enkodiert Textdateien nach der simplen ROT-13 & Chr(34) & Chiffrierung & Chr(34) & . & Chr(10) & Ziehen Sie dazu eine Textfile auf die Scriptdatei, das Ergebnis wird Ihnen dann im Notepad präsentiert.& Chr(10) & Oder geben Sie unten den Text ein:,PC-Welt Script: ROT-13 En/Decoder)
If strInputText = Then Wscript.Quit
MsgBox Resultat:& Chr(10) & fROT13(strInputText),0,PC-Welt Script: ROT-13 En/Decoder
Wscript.quit
End If
strInputDateiPfadundName = Wscript.Arguments(0)
strOutputDateiPfadundName = Replace(oFs.GetParentFolderName(strInputDateiPfadundName) & \r13_ & oFs.GetFileName(strInputDateiPfadundName), \\,\)
'Das Script ist auf Geschwindigkeit optimiert. Deshalb wird die übergebene Datei erst auf Zeilenanzahl analysiert.
Set oFsInputTextFile = oFs.OpenTextFile(strInputDateiPfadundName,1,False,-2)
Do While oFsInputTextFile.AtEndOfStream <> True
InputZeilenzahl=InputZeilenzahl+1
oFsInputTextFile.SkipLine
Loop
oFsInputTextFile.Close
'Der Inhalt einer Zeile wird in ein Zeilenarray geschrieben und der Ver/Entschlüsselungsfunktion fROT13 häppchenweise übergeben.
'Das ist zwar umständlich, aber weit schneller, als die Funktion auf den gesamten Inhalt der übergebenen Datei anzuwenden.
ReDim Zeile(InputZeilenzahl)
Set oFsInputTextFile = oFs.OpenTextFile(strInputDateiPfadundName,1,False,-2) 'Inputdatei
Set oFsOutputTextFile = oFs.CreateTextFile(strOutputDateiPfadundName,True) 'Outputdatei
oWSHSHell.PopUp Berechne...einen Moment,1,PC-Welt Script,0
Do Until oFsInputTextFile.AtEndOfStream = True
n=n+1
Zeile(n) = oFsInputTextFile.ReadLine
oFsOutputTextFile.WriteLine(fROT13(Zeile(n)))
Set Zeile(n) = Nothing
Loop
oFsInputTextFile.Close
oFsOutputTextFile.Close
oWSHShell.Run Wordpad & strOutputDateiPfadundName
'Die Funktion ROT13 übernimmt die Verschiebung im Alphabet.
Function fROT13(strString)
Const constAlefBet = abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ
For lngPos = 1 To Len(strString)
intChar = Instr(constAlefBet, Mid(strString, lngPos, 1))
If intChar = 0 Then
strROT13 = strROT13 & Mid(strString, lngPos, 1)
Else
strROT13 = strROT13 & Mid(constAlefBet, intChar + 13, 1)
End If
Next
fROT13 = strROT13
End Function
#################################################################################
