Denial of service attacks (ASP.NET PROGRAM)

We design a practical DDOS defense system that can protect the availability of web services during severe DDOS attacks. The basic idea behind our system is to isolate and protect legitimate traffic from a huge volume of DDOS traffic when an attack occurs. Traffic that needs to be protected can be recognized and protected using efficient cryptographic techniques.
 

Form1.aspx
Imports System.Data.SqlClient

Namespace ecom_sustain

Partial Class denial_attacks

    Inherits System.Web.UI.Page
    Dim cmd As SqlCommand
    Dim ad As SqlDataAdapter
    Dim d As DataSet
#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call databaseconnection()
    End Sub

    Private Sub ButSub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButSub.Click
        con.Open()
        cmd = New SqlCommand("delete from denial_att", con)
        cmd.ExecuteNonQuery()
        con.Close()

        con.Open()
        cmd = New SqlCommand("Insert into denial_att values(" & CInt(txt_num.Text) & ")", con)
        cmd.ExecuteNonQuery()
        con.Close()
    End Sub
End Class

End Namespace

Form2.aspx

Imports System.Data.SqlClient

Namespace ecom_sustain
Partial Class viewcuspurde
    Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "

        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Call databaseconnection()
            Dim cmd As New SqlCommand
            Dim ad As New SqlDataAdapter
            Dim d As New DataSet
            cmd = New SqlCommand("SELECT WalkinCust.Wid, WalkinCust.Wname, WalkinCust.wadd, WalkinCust.Pno, WalkinCust.mail, WcBalance.Bid, WcBalance.pid, 

WcBalance.qty,WcBalance.price,WcBalance.Amtpaid, WcBalance.Dop FROM (WalkinCust INNER JOIN  WcBalance ON WalkinCust.Wid = WcBalance.Wcid) where (WcBalance.Amtpaid=0)", con)
           
            ad = New SqlDataAdapter(cmd)
            d = New DataSet
            ad.Fill(d)
            Dim amtpaid, price As Integer
            If d.Tables(0).Rows.Count > 0 Then
                amtpaid = d.Tables(0).Rows(0).Item(9)
                price = d.Tables(0).Rows(0).Item(8)
                If amtpaid <> price Then
                    DataGrid1.DataSource = d
                    DataGrid1.DataBind()
                Else
                    Label2.Visible = True
                End If
            End If
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub
    Public Sub deli_editcommand(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
        Dim cid, cname, cadd, cphno, cmail, bid, pid, q, p, dop As TableCell
        cid = e.Item.Cells(0)
        cname = e.Item.Cells(1)
        cadd = e.Item.Cells(2)
        cphno = e.Item.Cells(3)
        cmail = e.Item.Cells(4)
        bid = e.Item.Cells(5)
        pid = e.Item.Cells(6)
        q = e.Item.Cells(7)
        p = e.Item.Cells(8)
        dop = e.Item.Cells(9)
        Session("cid") = cid.Text
        Session("cname") = cname.Text
        Session("cadd") = cadd.Text
        Session("cphno") = cphno.Text
        Session("cmail") = cmail.Text
        Session("brid") = bid.Text
        Session("pid") = pid.Text
        Session("qty") = q.Text
        Session("price") = p.Text
        Session("dop") = dop.Text
        Response.Redirect("delivery.aspx")
    End Sub

End Class

End Namespace

OUTPUT