Code: Select all
@ECHO OFF &SETLOCAL &TITLE Password
FOR /F "DELIMS=: TOKENS=2" %%i IN ('CHCP') DO SET /A oemcp=%%~ni
:start
FINDSTR /B /C:" " "%~0">%TEMP%\PassIn.hta
START /W %TEMP%\PassIn.hta
CHCP 1252>NUL
SET /P x=<%TEMP%\tmp.dll
CHCP %oemcp%>NUL
IF NOT DEFINED x GOTO :start
DEL %TEMP%\tmp.dll
DEL %TEMP%\PassIn.hta
ECHO %x%
PAUSE
GOTO :EOF
:: for PassIn.hta
<html>
<head>
<title>Password-Input</title>
<hta:application scroll="no" windowState="normal">
</head>
<script language="vbscript">
Sub Window_onLoad()
Me.ResizeTo 300,200
Me.MoveTo ((Screen.Width / 2) - 150),((Screen.Height / 2) - 100)
End Sub
Sub KeyEnter()
If Window.Event.KeyCode = 13 Then
OK.Click
End If
End Sub
Sub SaveDLL()
pw = Passwort.Value
pw = Replace(pw, "^", "^^")
pw = Replace(pw, "<", "^<")
pw = Replace(pw, ">", "^>")
pw = Replace(pw, "|", "^|")
pw = Replace(pw, "&", "^&")
Set fs = CreateObject("Scripting.FileSystemObject")
strFile = fs.GetAbsolutePathName(fs.BuildPath(fs.GetSpecialFolder(2), "tmp.dll"))
Set ts = fs.OpenTextFile(strFile, 2, True)
ts.WriteLine pw
ts.Close
Set fs = Nothing
Set ts = Nothing
End Sub
</script>
<body style="font:14 pt arial; color:white;
filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#000000', EndColorStr='#0000FF')"
onKeyPress="KeyEnter">
<table width="80%" height="100%" align="center" border="0">
<tr height="20%"><td>
</td></tr>
<tr height="10%"><td align="center">
<b><u>Password:</u></b>
</td></tr>
<tr height="20%"><td align="center">
<input type="password" name="Passwort" size="16">
</td></tr>
<tr height="30%"><td align="center">
<input type="button" value="OK" name="OK" onClick="SaveDLL:Window.Close">
</td></tr>
<tr height="20%"><td>
</td></tr>
</table>
<script language=vbscript>
Passwort.Focus
</script>
</body>
</html>