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
|
