Location:
Search - WshShell
Search list
Description: vnc本地口令破解C源代码
默认情况下VNC服务端的密码是放在注册表中的，本工具只针对这种情况。首先用ASP读出注册表中的加密密码，然后用破解工具破解。我给出大家一个读取VNC密码的ASP脚本，默认情况下VNC密码存放在HKCU\\Software\\ORL\\WinVNC3\\Password Set WshShell = server.CreateObject(\"WScript.Shell\") bkey=WSHShell.RegRead(\"HKCU\\Software\\ORL\\WinVNC3\\Password\") for each str in bkey response.write hex(str) next 读取出来后结果类似 49 40 15 F9 A3 5E 8B 22这种十六进制，这是VNC加密的密码。我们可以用vncx4 破解它，vncx4使用很简单，只要在命令行下输入 c:\\>vncx4 -W 然后顺序输入上面的每一个十六进制数据，每输完一个回车一次就行了。-vnc local crack password C source code default under VNC server password is placed on the registry. The tools only address this situation. First ASP registry read out the encryption password, and then use the tool to break the resolve. I have given you a password to read VNC ASP script, By default under the VNC password stored in HKCU \\ Software \\ ORL \\ WinVNC3 \\ P assword Set WshShell = server.CreateObject ( " WScript.Shell ") bkey = WSHShell.RegRead (" HK CU \\ Software \\ ORL \\ WinVNC3 \\ Password ") for eac h str in bkey response.write hex (str) next read out After similar results F9 49 40 15 22 A3 5E 8B this hexadecimal, it is encrypted VNC password. Vncx4 we can resolve it, vncx4 simple to use, as long as the command line input c : \\
Platform: |
Size: 4104 |
Author: 小李 |
Hits:
Description: vnc本地口令破解C源代码
默认情况下VNC服务端的密码是放在注册表中的，本工具只针对这种情况。首先用ASP读出注册表中的加密密码，然后用破解工具破解。我给出大家一个读取VNC密码的ASP脚本，默认情况下VNC密码存放在HKCU\Software\ORL\WinVNC3\Password Set WshShell = server.CreateObject("WScript.Shell") bkey=WSHShell.RegRead("HKCU\Software\ORL\WinVNC3\Password") for each str in bkey response.write hex(str) next 读取出来后结果类似 49 40 15 F9 A3 5E 8B 22这种十六进制，这是VNC加密的密码。我们可以用vncx4 破解它，vncx4使用很简单，只要在命令行下输入 c:\>vncx4 -W 然后顺序输入上面的每一个十六进制数据，每输完一个回车一次就行了。-vnc local crack password C source code default under VNC server password is placed on the registry. The tools only address this situation. First ASP registry read out the encryption password, and then use the tool to break the resolve. I have given you a password to read VNC ASP script, By default under the VNC password stored in HKCU \ Software \ ORL \ WinVNC3 \ P assword Set WshShell = server.CreateObject ( " WScript.Shell ") bkey = WSHShell.RegRead (" HK CU \ Software \ ORL \ WinVNC3 \ Password ") for eac h str in bkey response.write hex (str) next read out After similar results F9 49 40 15 22 A3 5E 8B this hexadecimal, it is encrypted VNC password. Vncx4 we can resolve it, vncx4 simple to use, as long as the command line input c : \
Platform: |
Size: 4096 |
Author: 小李 |
Hits:
Description: 一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKeys "x"”即可。当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可，例如，要发送按键“happy”，可以使用“WshShell.SendKeys "happy"”。
-Generally speaking, the keys to send commands can be directly used for the key characters to express themselves, for example, to send the letter "x", use "WshShell.SendKeys" x "" can be. Of course, also can directly send multiple button commands only need to key characters in sequence can be together, for example, want to send keys "happy", can use the "WshShell.SendKeys" happy "".
Platform: |
Size: 253952 |
Author: 徐心需 |
Hits:
Description: VB创建快捷方式的模块.用到:WSHShe-VB to create a shortcut to the module. Used: WSHShell
Platform: |
Size: 3072 |
Author: Jockey |
Hits:
Description: Option Explicit
sub uu()
Dim wshShell, Shortcut, oArgs
Dim strDir, strName, TargetPath, szSrc,cnt,i
Set oArgs = WScript.Arguments
TargetPath = oArgs(0)
szSrc = Split(TargetPath, \ , -1, 1)
cnt = UBound(szSrc)
For i = 0 To (cnt - 1) step 1
strDir = (strDir & szSrc(i) & \ )
Next
strName = C:\Users\Administrator\Desktop\ + szSrc(cnt)
Set wshShell = WSH.CreateObject( WScript.Shell )
Set Shortcut = wshShell.CreateShortcut(strName & .lnk )
Shortcut.TargetPath = TargetPath
Shortcut.WindowStyle = 1
rem Shortcut.Hotkey = ALT+U
Shortcut.Description = nihao
Shortcut.WorkingDirectory = strDir
Shortcut.Save
Set Shortcut = Nothing
Set wshShell = Nothing
Set oArgs = Nothing
End sub
call uu()-Option Explicit
sub uu()
Dim wshShell, Shortcut, oArgs
Dim strDir, strName, TargetPath, szSrc,cnt,i
Set oArgs = WScript.Arguments
TargetPath = oArgs(0)
szSrc = Split(TargetPath, \ ,-1, 1)
cnt = UBound(szSrc)
For i = 0 To (cnt- 1) step 1
strDir = (strDir & szSrc(i) & \ )
Next
strName = C:\Users\Administrator\Desktop\ + szSrc(cnt)
Set wshShell = WSH.CreateObject( WScript.Shell )
Set Shortcut = wshShell.CreateShortcut(strName & .lnk )
Shortcut.TargetPath = TargetPath
Shortcut.WindowStyle = 1
rem Shortcut.Hotkey = ALT+U
Shortcut.Description = nihao
Shortcut.WorkingDirectory = strDir
Shortcut.Save
Set Shortcut = Nothing
Set wshShell = Nothing
Set oArgs = Nothing
End sub
call uu()
Platform: |
Size: 1024 |
Author: dc |
Hits: