Author Topic: can able to make this as advance system tweaker file  (Read 4341 times)

0 Members and 1 Guest are viewing this topic.

Offline Meeteshc

  • Newbie
  • *
  • Join Date: Jun 2014
  • Posts: 21
  • Karma: 0
    • View Profile
can able to make this as advance system tweaker file
« on: June 28, 2014, 04:46:44 AM »
Private Sub cmdRetrive_Click()

DefVal(0).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnableICMPRedirect")
If DefVal(0).Text = "Error" Then DefVal(0).Text = "NP"
 
DefVal(1).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "SynAttackProtect")
If DefVal(1).Text = "Error" Then DefVal(1).Text = "NP"
 
DefVal(2).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxConnectResponseRetransmissions")
If DefVal(2).Text = "Error" Then DefVal(2).Text = "NP"

DefVal(3).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TcpMaxHAlfOpen")
If DefVal(3).Text = "Error" Then DefVal(3).Text = "NP"

DefVal(4).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxHalfOpenRetired")
If DefVal(4).Text = "Error" Then DefVal(4).Text = "NP"

DefVal(5).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxPortsExhausted")
If DefVal(5).Text = "Error" Then DefVal(5).Text = "NP"

DefVal(6).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxDataRetransmissions")
If DefVal(6).Text = "Error" Then DefVal(6).Text = "NP"

DefVal(7).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnableDeadGwDetect")
If DefVal(7).Text = "Error" Then DefVal(7).Text = "NP"

DefVal(8).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnablePmtuDiscovery")
If DefVal(8).Text = "Error" Then DefVal(8).Text = "NP"

DefVal(9).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "DisableIPSourceRouting")
If DefVal(9).Text = "Error" Then DefVal(9).Text = "NP"

DefVal(10).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "NonameReleaseOnDemand")
If DefVal(10).Text = "Error" Then DefVal(10).Text = "NP"

DefVal(11).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "PerformRouterDiscovery")
If DefVal(11).Text = "Error" Then DefVal(11).Text = "NP"

DefVal(12).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "KeepAliveTime ")
If DefVal(12).Text = "Error" Then DefVal(12).Text = "NP"

End Sub

Private Sub cmdHArdreg_Click()

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "EnableICMPRedirect", DefVal(25).Text
DefVal(0).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnableICMPRedirect")
If DefVal(0).Text = "Error" Then DefVal(0).Text = "NP"
 
SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "SynAttackProtect", DefVal(24).Text
DefVal(1).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "SynAttackProtect")
If DefVal(1).Text = "Error" Then DefVal(1).Text = "NP"
 
SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "TCPMaxConnectResponseRetransmissions", DefVal(23).Text
DefVal(2).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxConnectResponseRetransmissions")
If DefVal(2).Text = "Error" Then DefVal(2).Text = "NP"

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "TcpMaxHAlfOpen", DefVal(22).Text
DefVal(3).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TcpMaxHAlfOpen")
If DefVal(3).Text = "Error" Then DefVal(3).Text = "NP"

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "TCPMaxHalfOpenRetired", DefVal(21).Text
DefVal(4).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxHalfOpenRetired")
If DefVal(4).Text = "Error" Then DefVal(4).Text = "NP"

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "TCPMaxPortsExhausted", DefVal(20).Text
DefVal(5).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxPortsExhausted")
If DefVal(5).Text = "Error" Then DefVal(5).Text = "NP"

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "TCPMaxDataRetransmissions", DefVal(19).Text
DefVal(6).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxDataRetransmissions")
If DefVal(6).Text = "Error" Then DefVal(6).Text = "NP"

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "EnableDeadGwDetect", DefVal(18).Text
DefVal(7).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnableDeadGwDetect")
If DefVal(7).Text = "Error" Then DefVal(7).Text = "NP"

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "EnablePmtuDiscovery", DefVal(17).Text
DefVal(8).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnablePmtuDiscovery")
If DefVal(8).Text = "Error" Then DefVal(8).Text = "NP"

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "DisableIPSourceRouting", DefVal(16).Text
DefVal(9).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "DisableIPSourceRouting")
If DefVal(9).Text = "Error" Then DefVal(9).Text = "NP"

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "NonameReleaseOnDemand", DefVal(15).Text
DefVal(10).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "NonameReleaseOnDemand")
If DefVal(10).Text = "Error" Then DefVal(10).Text = "NP"

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "PerformRouterDiscovery", DefVal(14).Text
DefVal(11).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "PerformRouterDiscovery")
If DefVal(11).Text = "Error" Then DefVal(11).Text = "NP"

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "KeepAliveTime", DefVal(13).Text
DefVal(12).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "KeepAliveTime ")
If DefVal(12).Text = "Error" Then DefVal(12).Text = "NP"
End Sub

Private Sub Command3_Click()
Check1(0).Value = 1
Check1(1).Value = 1
Check1(2).Value = 1
Check1(3).Value = 1
Check1(4).Value = 1
Check1(5).Value = 1
Check1(6).Value = 1
Check1(7).Value = 1
Check1(8).Value = 1
Check1(9).Value = 1
Check1(10).Value = 1
Check1(11).Value = 1
Check1(12).Value = 1

End Sub

Private Sub Autore_Click()
Frame3.Visible = True

End Sub

Private Sub Command1_Click(Index As Integer)
On Error GoTo GestoreErrori
Dim msg As String

msg = msg & "Are you Sure?"

If MsgBox(msg, vbQuestion + vbYesNo, "ATTENTION!") = vbYes Then

If Check1(0).Value = vbChecked Then

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnableICMPRedirect", DefVal(25).Text
DefVal(0).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnableICMPRedirect")
If DefVal(0).Text = "Error" Then DefVal(0).Text = "NP"
 
 End If

If Check1(1).Value = vbChecked Then
 
 
SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "SynAttackProtect", DefVal(24).Text
DefVal(1).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "SynAttackProtect")
If DefVal(1).Text = "Error" Then DefVal(1).Text = "NP"

End If

If Check1(2).Value = vbChecked Then
 
SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxConnectResponseRetransmissions", DefVal(23).Text
DefVal(2).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxConnectResponseRetransmissions")
If DefVal(2).Text = "Error" Then DefVal(2).Text = "NP"

End If
If Check1(3).Value = vbChecked Then
SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TcpMaxHAlfOpen", DefVal(22).Text
DefVal(3).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TcpMaxHAlfOpen")
If DefVal(3).Text = "Error" Then DefVal(3).Text = "NP"

End If
If Check1(4).Value = vbChecked Then
SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxHalfOpenRetired", DefVal(21).Text
DefVal(4).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxHalfOpenRetired")
If DefVal(4).Text = "Error" Then DefVal(4).Text = "NP"

End If
If Check1(5).Value = vbChecked Then
SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxPortsExhausted", DefVal(20).Text
DefVal(5).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxPortsExhausted")
If DefVal(5).Text = "Error" Then DefVal(5).Text = "NP"

End If
If Check1(6).Value = vbChecked Then

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "TCPMaxDataRetransmissions", DefVal(19).Text
DefVal(6).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxDataRetransmissions")
If DefVal(6).Text = "Error" Then DefVal(6).Text = "NP"

End If
If Check1(7).Value = vbChecked Then

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnableDeadGwDetect", DefVal(18).Text
DefVal(7).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnableDeadGwDetect")
If DefVal(7).Text = "Error" Then DefVal(7).Text = "NP"

End If
If Check1(8).Value = vbChecked Then

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnablePmtuDiscovery", DefVal(17).Text
DefVal(8).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnablePmtuDiscovery")
If DefVal(8).Text = "Error" Then DefVal(8).Text = "NP"

End If
If Check1(9).Value = vbChecked Then
SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "DisableIPSourceRouting", DefVal(16).Text
DefVal(9).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "DisableIPSourceRouting")
If DefVal(9).Text = "Error" Then DefVal(9).Text = "NP"

End If
If Check1(10).Value = vbChecked Then

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "NonameReleaseOnDemand", DefVal(15).Text
DefVal(10).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "NonameReleaseOnDemand")
If DefVal(10).Text = "Error" Then DefVal(10).Text = "NP"

End If
If Check1(11).Value = vbChecked Then
SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "PerformRouterDiscovery", DefVal(14).Text
DefVal(11).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "PerformRouterDiscovery")
If DefVal(11).Text = "Error" Then DefVal(11).Text = "NP"

End If

If Check1(12).Value = vbChecked Then

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "KeepAliveTime", DefVal(13).Text
DefVal(12).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "KeepAliveTime")
If DefVal(12).Text = "Error" Then DefVal(12).Text = "NP"

End If

GestoreErrori:

If Err.Number = 13 Then

MsgBox "Wrong Value!", vbCritical, "ERRORE"
End If
End If

End Sub

Private Sub Command2_Click()
Frame3.Visible = False

End Sub

Private Sub Command4_Click()
Check1(0).Value = 0
Check1(1).Value = 0
Check1(2).Value = 0
Check1(3).Value = 0
Check1(4).Value = 0
Check1(5).Value = 0
Check1(6).Value = 0
Check1(7).Value = 0
Check1(8).Value = 0
Check1(9).Value = 0
Check1(10).Value = 0
Check1(11).Value = 0
Check1(12).Value = 0
End Sub

Private Sub Command5_Click()
Check2(0).Value = 1
Check2(1).Value = 1
Check2(2).Value = 1
Check2(3).Value = 1

End Sub

Private Sub Command6_Click()
Check2(0).Value = 0
Check2(1).Value = 0
Check2(2).Value = 0
Check2(3).Value = 0
End Sub

Private Sub Form_Load()


DefVal(0).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnableICMPRedirect")
If DefVal(0).Text = "Error" Then DefVal(0).Text = "NP"
 

DefVal(1).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "SynAttackProtect")
If DefVal(1).Text = "Error" Then DefVal(1).Text = "NP"
 

DefVal(2).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxConnectResponseRetransmissions")
If DefVal(2).Text = "Error" Then DefVal(2).Text = "NP"

DefVal(3).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TcpMaxHAlfOpen")
If DefVal(3).Text = "Error" Then DefVal(3).Text = "NP"

DefVal(4).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxHalfOpenRetired")
If DefVal(4).Text = "Error" Then DefVal(4).Text = "NP"

DefVal(5).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxPortsExhausted")
If DefVal(5).Text = "Error" Then DefVal(5).Text = "NP"

DefVal(6).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "TCPMaxDataRetransmissions")
If DefVal(6).Text = "Error" Then DefVal(6).Text = "NP"

DefVal(7).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnableDeadGwDetect")
If DefVal(7).Text = "Error" Then DefVal(7).Text = "NP"

DefVal(8).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "EnablePmtuDiscovery")
If DefVal(8).Text = "Error" Then DefVal(8).Text = "NP"

DefVal(9).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "DisableIPSourceRouting")
If DefVal(9).Text = "Error" Then DefVal(9).Text = "NP"

DefVal(10).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "NonameReleaseOnDemand")
If DefVal(10).Text = "Error" Then DefVal(10).Text = "NP"

DefVal(11).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "PerformRouterDiscovery")
If DefVal(11).Text = "Error" Then DefVal(11).Text = "NP"

DefVal(12).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters", "KeepAliveTime")
If DefVal(12).Text = "Error" Then DefVal(12).Text = "NP"

DeflValW(0).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "EnableDynamicBacklog")
If DeflValW(0).Text = "Error" Then DeflValW(0).Text = "NP"

DeflValW(1).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "MinimumDynamicBacklog")
If DeflValW(1).Text = "Error" Then DeflValW(1).Text = "NP"

DeflValW(2).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "MaximumDynamicBacklog")
If DeflValW(2).Text = "Error" Then DeflValW(2).Text = "NP"

DeflValW(3).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "DynamicBacklogGrowthDelta")
If DeflValW(3).Text = "Error" Then DeflValW(3).Text = "NP"

End Sub

Private Sub Label1_Click()
MsgBox "EnableICMPRedirect When ICMP redirects are disabled (by setting the value to 0), attackers cannot carry out attacks that require a host to redirect the ICMP-based attack to a third party.", , "Help"

End Sub

Private Sub Label10_Click()
MsgBox "DisableIPSourceRouting Determines whether a computer allows clients to predetermine the route that packets take to their destination. When this value is set to 2, the computer will disable source routing for IP packets.", , "Help"
End Sub

Private Sub Label11_Click()
MsgBox "NoNameReleaseOnDemand Determines whether the computer will release its NetBIOS name if requested by another computer or a malicious packet attempting to hijack the computer's NetBIOS name.", , "Help"
End Sub

Private Sub Label12_Click()
MsgBox "PerformRouterDiscovery Determines whether the computer performs router discovery on this interface. Router discovery solicits router information from the network and adds the information retrieved to the route table. Setting this value to 0 will prevent the interface from performing router discovery.", , "Help"
End Sub

Private Sub Label13_Click()
MsgBox "Keep Alive settings control how Windows manages connection keep alive transmissions. Including the timeout before keepalives are sent and the interval between keepalive transmissions.", , "Help"

End Sub

Private Sub Label14_Click()
MsgBox "EnableDynamicBacklog Switches between using a static backlog and a dynamic backlog. By default, this parameter is set to 0, which enables the static backlog. You should enable the dynamic backlog for better security on Winsock.", , "Help"
End Sub

Private Sub Label15_Click()
MsgBox "MinimumDynamicBacklog Controls the minimum number of free connections allowed on a listening Winsock endpoint. If the number of free connections drops below this value, a thread is queued to create additional free connections. Making this value too large (setting it to a number greater than 100) will degrade the performance of the computer.", , "Help"
End Sub

Private Sub Label16_Click()
MsgBox "MaximumDynamicBacklog Controls the maximum number of half-open and free connections to Winsock endpoints. If this value is reached, no additional free connections will be made.", , "Help"
End Sub

Private Sub Label17_Click()
MsgBox "DynamicBacklogGrowthDelta Controls the number of Winsock endpoints in each allocation pool requested by the computer. Setting this value too high can cause system resources to be unnecessarily occupied.", , "Help"
End Sub

Private Sub Label2_Click()
MsgBox "SynAttackProtect Enables SYN flood protection in Windows 2000 and Windows XP. You can set this value to 0, 1, or 2. The default setting, 0, provides no protection. Setting the value to 1 will activate SYN/ACK protection contained in the TCPMaxPortsExhausted, TCPMaxHalfOpen, and TCPMaxHalfOpenRetried values. Setting the value to 2 will protect against SYN/ACK attacks by more aggressively timing out open and half-open connections.", , "Help"

End Sub

Private Sub Label3_Click()

MsgBox "TCPMaxConnectResponseRetransmissions Determines how many times TCP retransmits an unanswered SYN/ACK message. TCP retransmits acknowledgments until the number of retransmissions specified by this value is reached.", , "Help"

End Sub

Private Sub Label4_Click()
MsgBox "TcpMaxHalfOpen parameter controls the number of connections in the SYN-RCVD state allowed before SYN-ATTACK protection begins to operate.", , "Help"
End Sub

Private Sub Label5_Click()
MsgBox "TCPMaxHalfOpenRetired Determines how many connections the server can maintain in the half-open state even after a connection request has been retransmitted. If the number of connections exceeds the value of this entry, TCP/IP initiates SYN flooding attack protection. This entry is used only when SYN flooding attack protection is enabled on this server that is, when the value of the SynAttackProtect entry is 1 and the value of the TCPMaxConnectResponseRetransmissions entry is at least 2.", , "Help"
End Sub

Private Sub Label6_Click()
MsgBox "TCPMaxPortsExhausted Determines how many connection requests the system can refuse before TCP/IP initiates SYN flooding attack protection. The system must refuse all connection requests when its reserve of open connection ports runs out. This entry is used only when SYN flooding attack protection is enabled on this server that is, when the value of the SynAttackProtect entry is 1, and the value of the TCPMaxConnectResponseRetransmissions entry is at least 2.", , "Help"
End Sub

Private Sub Label7_Click()
MsgBox "TCPMaxDataRetransmissions Determines how many times TCP retransmits an unacknowledged data segment on an existing connection. TCP retransmits data segments until they are acknowledged or until the number of retransmissions specified by this value is reached.", , "Help"
End Sub

Private Sub Label8_Click()
MsgBox "EnableDeadGWDetect Determines whether the computer will attempt to detect dead gateways. When dead gateway detection is enabled (by setting this value to 1), TCP might ask IP to change to a backup gateway if a number of connections are experiencing difficulty. Backup gateways are defined in the TCP/IP configuration dialog box in Network Control Panel for each adapter. When you leave this setting enabled, it is possible for an attacker to redirect the server to a gateway of his choosing.", , "Help"
End Sub

Private Sub Label9_Click()
MsgBox "EnablePMTUDiscovery Determines whether path MTU discovery is enabled (1), in which TCP attempts to discover the largest packet size over the path to a remote host. When path MTU discovery is disabled (0), the path MTU for all TCP connections will be fixed at 576 bytes.", , "Help"
End Sub

Private Sub Web_Click()
Unload Me
End Sub

Private Sub winsok_Click(Index As Integer)
On Error GoTo GestoreErrori
Dim msg As String

msg = msg & "Are you Sure?"

If MsgBox(msg, vbQuestion + vbYesNo, "ATTENTION!") = vbYes Then

If Check2(0).Value = vbChecked Then

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "EnableDynamicBacklog", DeflValW(7).Text
DeflValW(0).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "EnableDynamicBacklog")
If DeflValW(0).Text = "Error" Then DeflValW(0).Text = "NP"

End If

If Check2(1).Value = vbChecked Then

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "MinimumDynamicBacklog", DeflValW(6).Text
DeflValW(1).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "MinimumDynamicBacklog")
If DeflValW(1).Text = "Error" Then DeflValW(1).Text = "NP"

End If

If Check2(2).Value = vbChecked Then

SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "MaximumDynamicBacklog", DeflValW(5).Text
DeflValW(2).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "MaximumDynamicBacklog")
If DeflValW(2).Text = "Error" Then DeflValW(2).Text = "NP"

End If

If Check2(3).Value = vbChecked Then


SetDWORDValue "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "DynamicBacklogGrowthDelta", DeflValW(4).Text
DeflValW(3).Text = GetDWORDValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\AFD\Parameters", "DynamicBacklogGrowthDelta")
If DeflValW(3).Text = "Error" Then DeflValW(3).Text = "NP"

End If

GestoreErrori:

If Err.Number = 13 Then

MsgBox "Wrong Value!", vbCritical, "ERRORE"
End If

End If

End Sub

' EoF


or

http://www.heise.de/download/zigstack-1124346.html(zigstack)

or

http://primepage.de/(zigstack)





Offline Shane

  • Top Geek, err uh Dog.
  • Administrator
  • Hero Member
  • *****
  • Join Date: Sep 2011
  • Posts: 9274
  • Location: USA
  • Karma: 137
  • "Knowledge should be shared not hidden."
    • View Profile
    • Tweaking.com
Re: can able to make this as advance system tweaker file
« Reply #1 on: June 30, 2014, 11:10:22 AM »
Those are just registry values, those are easy to make into an add on. Are you having trouble doing that?

Shane
PLEASE EDIT YOUR TOPIC AND PUT (SOLVED) IF YOU ARE ALL FIXED.

(My weekends belong to my wife and kids, I will try my best to answer all posts daily during the work week)

(About Shane)
Site Owner, Top Admin, Lead Programmer, Wife & 5 kids, Needs a lot more coffee.

When people ask "Why fix what isn't broken?" I reply "To make it better."
"Only a life lived for others is a life worthwhile"
Honor & Respect is all that matters.

Owner & Programmer of: www.pcwintech.com & www.tweaking.com

Offline Meeteshc

  • Newbie
  • *
  • Join Date: Jun 2014
  • Posts: 21
  • Karma: 0
    • View Profile
Re: can able to make this as advance system tweaker file
« Reply #2 on: July 26, 2014, 11:08:29 PM »
yes i am having problem with making it pls make advance tweaker's add on