Dürfte für einige Programmierer sehr nützlich sein.
credits goes to Skuddle
Source:Quote:
Adjusting the QoS of your packets as well as your relay packet grouping will disable the ability for Warden to scan your packets. This will protect your 0x05 base packet group from being scanned. IT DOES NOT PROTECT YOU FROM WARDEN, however its a good step towards preventing Warden from scanning you.
How it works:
Blizzard groups packet relays and responses together. Warden then scans them. Since this script will adjust your actions, when you get a packet you immediately fire a response before it routes through the current loaded Warden Module.
The downside?
You may experience some lag time some times. What happens is it sometimes fires your packet to fast and doesn't grab an encryption key on the way out because the module hasn't generated one for the next set of packets.
It will improve your LAT rate. You will show 100 if your at 200, and 90-150 if your at 340 usually. This is not your real latency. Its what warden is set to look for, however since your packets come at the same rate, its looking for the wrong thing.
Als .vbs speichern!Quote:
logo = "Skuddle Packet Timer"
WPK_Version = "1.02"
Const HKEY_LOCAL_MACHINE = &H80000002
Set oReg=GetObject("winmgmts:{impersonationLevel=imper sonate}!\\.\root\default:StdRegProv")
Set shell = CreateObject("Shell.Application")
set wsnet = WScript.CreateObject("WScript.Network")
computername = ucase(wsnet.computername)
strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameter s\Interfaces\"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
if Wscript.Arguments.Count => 1 then
if (WScript.Arguments.Item(0) = "uac") then WPK_Uac = 1 else WPK_Uac = 0
end if
If Instr(1, WScript.FullName, "cscript", vbTextCompare) > 1 Then
WPK_Script = 1
End If
if WPK_Script = 1 and WPK_Uac = 0 then
wscript.echo "Warden Packet Timer " & WPK_Version & " Batch Mode."
wscript.echo ""
end if
if CheckFix = true then
msg = "Warden Packet Timer already enabled"
if WPK_Script = 0 then
msg = msgbox (msg,48,logo)
else
wscript.echo msg
end if
wscript.quit
end if
If WPK_Uac = 0 then
if WPK_Script = 0 then
msg = logo & " " & WPK_Version & chr(13) & chr(13) & "This regedit will auto adjust the poll rate for your LAT timer and reduce the chances of Warden Scans on module based inclusions. It has been updated for 3.3.5a. You must have Windows XP SP2 or greater." _
& chr(13) & chr(13) & "If you are not logged into your computer with an account which has Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled, you will be prompted to enter the username and password of an account which has Administrator privileges." _
& chr(13) & chr(13) & "Enjoy the protection. Skuddle of http://*******.com" _
& chr(13) & chr(13) & "Install"
else
msg = "Adjusting..."
end if
if WPK_Script = 0 then
msg = msgbox (msg,65,logo)
if msg = 2 then
wscript.quit
end if
else
wscript.echo msg
end if
end if
For Each subkey In arrSubKeys
err = oReg.SetDwordValue (HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency","1")
Next
if CheckFix = true then
Success
wscript.quit
end if
if CheckFix = false and WPK_Uac = 0 then
if WPK_Script = 0 then
msg = "You are not running this script as ADMIN. You must be an admin."
msg = msg + chr(13) + chr(13) & "User Account Control forces programs to run under regular user privileges, even if you are logged into your computer with an account which has Administrator privileges. It's enabled by default on computers running Windows Vista and Windows 7."
msg = msg + chr(13) + chr(13) & "To get around this, you will be prompted to enter your Windows logon details. In the next window, check the radio button for 'The following user' and enter the username and password of a Windows account which has Administrator privileges. The username must be in the format '" & computername & "\username'."
msg = msg + chr(13) + chr(13) & "Click Ok to continue"
msg = msgbox (msg,49,logo)
if msg = 2 then
wscript.quit
end if
shell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
else
wscript.echo "Logon failure. You must be logged in with Administrator privileges."
wscript.quit
end if
end if
if WPK_Uac = 1 then
if CheckFix = false then
msg = "There was an error (" & err.number & ")." & chr(13) & chr(13) & "Ensure that you entered a valid username and password. The username must have Administrator privileges on this computer." & chr(13) & chr(13) & "Click Ok to close the script."
if WPK_Script = 0 then
msg = msgbox (msg,48,logo)
end if
else
Success
end if
end if
wscript.quit
Function CheckFix()
StopCheck = 0
For Each subkey In arrSubKeys
oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency",CheckFix
if CheckFix = 1 then
else StopCheck = 1
end if
Next
if StopCheck = 1 then CheckFix = false else CheckFix = true
end function
Function Success()
if WPK_Script = 0 then
set shell = wscript.CreateObject("wscript.shell")
msg = "Warden Packet Timer has been installed successfully."
msg = msg & chr(13) & "You need to restart your computer for the changes to take effect." & chr(13)
msg = msg & chr(13) & "Do you want to restart your computer now?"
msg = msgbox (msg,68,logo)
if msg = 6 then
shell.Run "shutdown.exe /r /t 00"
end if
else
wscript.echo "Warden Packet Timer has been installed."
wscript.echo "You need to restart your computer for the changes to take effect."
end if
end function
credits goes to Skuddle
