הקוד , לבקשתכם - XSS Translator
לפני מספר חודשים כתבתי עבור חודש XSS של גיא מזרחי כלי פשוט יחסית , שמטרתו הייתה בעצם להמיר מחרוזות פשוטות לדצימלי , ובכך לאפשר לבנות מחרוזות להתקפת XSS בצורה קלה יותר...
מספר אנשים פנו וביקשו את הקוד הפשוט יחסית , ובכן שיניתי מספר דברים בעקבות מיילים ותגובות בכל מיני מקומות שונים , כדי לפשט. הנה זה פשוטו כמשמעו ... כפי שוודאי ניתן להביא מדובר סה"כ בהמרות מהקסה למבנה דצימלי ובחזרה , כעת כבר לכל המחרוזת , שינוי שבוצע בעקבות בקשות במיילים.
ישנם ממירים רבים להורדה באינטרנט , חלקם אפילו נכתבו על ידי RSnake בכבודו ובעצמו, אך מי שמכיר אותי יודע שאם זה לא יצא מהידיים שלי , זה אומר שאני לא ממשיך הלאה לנושא הבא ...
הנה הקוד הסופי ... .NET כמו שאתם אוהבים .
For my english reading audience - this is my code for converting text into decimal codes for applying XSS attacks , in .NET for your convinence. enjoy ...
Public Class XSS_Translator
Public Function hex2dec(ByVal hextext As String) As String
hex2dec = Chr(Convert.ToInt32(Mid(hextext, 2, 2), 16))
End Function
Public Function myConvert(ByVal INPUT As String, ByVal Act As Integer) As String
Dim myresult As String
Dim i As Integer
For i = 1 To Len(INPUT)
If Act = 1 Then
myresult = myresult & "%" & Hex(Asc(Mid(INPUT, i, 1)))
Else
If (Mid(INPUT, i, 1) = "%") And (i <= (Len(INPUT) - 2)) Then
myresult = myresult & hex2dec(Mid(INPUT, i, 3))
i = i + 2
Else
myresult = myresult & Mid(INPUT, i, 1)
End If
End If
Next
myConvert = myresult
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
outputBox.Text = myConvert(inputBox.Text, 1)
Else
outputBox.Text = myConvert(inputBox.Text, 2)
End If
End Sub
End Class
Labels: algorithmics, code, english, script, technology, vulnerability, xss
