hack that key validation.

[pawel667]

I've got a homework to do for a next week, and cannot pass it.
I had to create key which pass the validation for name
"sample.domain. com".
Any idea to simple reverse it ?

Here is a code:
############### #########
Imports System
Imports System.Collecti ons
Imports System.Net
Imports System.Text
Namespace WebCon.WebParts .ColorCalendar
Friend Class CodeValidate
' Methods
Public Sub New(ByVal code As String)
Me.key = code
End Sub
Private Function CheckDate(ByVal data As String, ByVal s_sign
As Char) As Boolean
Dim str As String = ""
Dim flag As Boolean = False
data = Me.ConvertIc_Re place(data)
Dim bytes As Byte() = Encoding.ASCII. GetBytes(data)
Dim przesuwacz As Integer = s_sign
Dim i As Integer
For i = 0 To 4 - 1
Dim str2 As String =
Convert.ToStrin g(Me.GetModulo( Convert.ToChar( bytes(i)), przesuwacz))
If (str2 = "15") Then
Me.isTrial = False
flag = False
Exit For
End If
Select Case i
Case 0
If (str2 = "-1") Then
flag = True
goto Label_011F
End If
If (str2.Length >= 2) Then
str = (str & "20" & str2 & "-")
Else
str = (str & "200" & str2 & "-")
End If
Exit Select
Case 1
If (str2 = "-1") Then
flag = True
goto Label_011F
End If
If (str2.Length >= 2) Then
str = (str & str2 & "-")
Else
str = (str & "0" & str2 & "-")
End If
Exit Select
End Select
If (i 1) Then
If (str2 = "-1") Then
flag = True
Exit For
End If
str = (str & str2)
End If
Next i
Label_011F:
If (Me.isTrial AndAlso Not flag) Then
Me.trialTime = Convert.ToDateT ime(str)
End If
Return flag
End Function
Private Function CheckMiszung(By Val kodProduktu As String,
ByVal domena As String, ByVal stala As String, ByVal key As String,
ByVal s_sign As Char) As Boolean
Dim flag As Boolean = False
domena = (domena & Convert.ToStrin g(s_sign))
stala = (stala & Convert.ToStrin g(s_sign))
kodProduktu = (kodProduktu & Convert.ToStrin g(s_sign))
Dim replaceKey As String = New Md5((domena & stala &
kodProduktu)).g etMd5
replaceKey = Me.ic_Replace(r eplaceKey).Subs tring(10, 3)
If ((Convert.ToCha r(Encoding.ASCI I.GetBytes(key)
(0)).ToString & replaceKey.ToUp per) = key) Then
flag = True
End If
Return flag
End Function
Private Function CompareMd5Modul es(ByVal group As String,
ByVal stringToMd5 As String, ByVal s_sign As Char, ByVal lastModule
As
Boolean) As Boolean
stringToMd5 = (stringToMd5 & Convert.ToStrin g(s_sign))
Dim replaceKey As String = New Md5(stringToMd5 ).getMd5
replaceKey = Me.ic_Replace(r eplaceKey)
If Not lastModule Then
replaceKey = replaceKey.Subs tring(1, 4)
Else
replaceKey = (replaceKey.Sub string(1, 3) &
Convert.ToStrin g(s_sign))
End If
Return (group = replaceKey)
End Function
Private Function ConvertIc_Repla ce(ByVal replaceKey As
String)
As String
replaceKey = replaceKey.Repl ace("Z", "0")
replaceKey = replaceKey.Repl ace("K", "1")
replaceKey = replaceKey.Repl ace("T", "6")
Return replaceKey.ToUp per
End Function
Private Function CreateKey(ByVal ch As Char, ByVal domena As
String, ByVal stala As String, ByVal kodProduktu As String, ByVal
group As String()) As Boolean
Dim flag As Boolean = True
If Not Me.ValidateDoma inName(group(1) , ch) Then
Me.ErrorCode = String.Format(" Invalid domain name.
{0}, {1}", domena, Me.key)
Return False
End If
If Not Me.CompareMd5Mo dules(group(2), kodProduktu, ch,
False) Then
Me.ErrorCode = String.Format(" Invalid product code.
{0}, {1}", Me.validateDoma inName, Me.key)
Return False
End If
If Not Me.CompareMd5Mo dules(group(4), stala, ch, True)
Then
Me.ErrorCode = String.Format(" Invalid special
character. {0}, {1}", Me.validateDoma inName, Me.key)
Return False
End If
If Me.CheckDate(gr oup(3), ch) Then
Me.ErrorCode = String.Format(" Invalid date. {0},
{1}",
Me.validateDoma inName, Me.key)
Return False
End If
If Me.isTrial Then
Dim trialTime As DateTime = Me.trialTime
Dim span As TimeSpan = DirectCast((Dat eTime.Today -
trialTime), TimeSpan)
If (span.Days 0) Then
Me.ErrorCode = String.Format(" Your trial version
has expired {0} days ago, to buy full version", span.Days)
Return False
End If
Return flag
End If
If Not Me.CheckMiszung (kodProduktu,
Me.validateDoma inName,
"COMPANYNAM E", group(3), ch) Then
Me.ErrorCode = String.Format(" Invalid special
characters. {0}, {1}", domena, Me.key)
Return False
End If
Return flag
End Function
Private Function GetDomainName() As String
Return Dns.GetHostEntr y("LocalHost"). HostName
End Function
Private Function GetModulo(ByVal [mod] As Char, ByVal
przesuwacz As Integer) As Integer
Dim num As Integer = Convert.ToInt32 ([mod].ToString,
&H10)
Dim chArray As Char() = New Char() { "0"c, "1"c, "2"c,
"3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c, "A"c, "B"c, "C"c, "D"c,
"E"c, "F"c }
Dim i As Integer
For i = 0 To &H10 - 1
Dim newAsciiNumber As Integer =
Me.GetNewAsciiN umber(chArray(i ))
If (newAsciiNumber = -1) Then
newAsciiNumber = chArray(i)
End If
If (((newAsciiNumb er + przesuwacz) Mod &H10) = num)
Then
Return i
End If
Next i
Return -1
End Function
Private Function GetNewAsciiNumb er(ByVal ascii As Char) As
Integer
Select Case ascii
Case "A"c
Return &H3A
Case "B"c
Return &H3B
Case "C"c
Return 60
Case "D"c
Return &H3D
Case "E"c
Return &H3E
Case "F"c
Return &H3F
End Select
Return -1
End Function
Private Function ic_Replace(ByVa l replaceKey As String) As
String
replaceKey = replaceKey.Repl ace("0", "Z")
replaceKey = replaceKey.Repl ace("1", "K")
replaceKey = replaceKey.Repl ace("6", "T")
Dim userDomainName As String = Environment.Use rDomainName
Return replaceKey.ToUp per
End Function
Public Function IsKeyValidated( ) As Boolean
Dim flag As Boolean = True
Try
Me.groupKey(0) = Me.key.Split(Ne w Char() { "-"c })(0)
Me.groupKey(1) = Me.key.Split(Ne w Char() { "-"c })(1)
Me.groupKey(2) = Me.key.Split(Ne w Char() { "-"c })(2)
Me.groupKey(3) = Me.key.Split(Ne w Char() { "-"c })(3)
Me.groupKey(4) = Me.key.Split(Ne w Char() { "-"c })(4)
Me.key = Me.key.Replace( "-", "")
Catch exception As Exception
Me.ErrorCode = (exception.Mess age & " " &
exception.Stack Trace)
Return False
End Try
Dim bytes As Byte() = Encoding.ASCII. GetBytes(Me.key )
Dim domena As String = Me.GetDomainNam e.ToUpper
Dim stala As String = "COMPANYNAM E"
Dim kodProduktu As String = "PRODUKT_NA ME"
If Not Me.CreateKey(Co nvert.ToChar(by tes(&H13)), domena,
stala, kodProduktu, Me.groupKey) Then
flag = False
End If
Return flag
End Function
Private Function ValidateDomainN ame(ByVal group As String,
ByVal ch As Char) As Boolean
Dim flag As Boolean = False
Dim domainName As String = Me.GetDomainNam e
New ArrayList
If (domainName.Spl it(New Char() { "."c }).Length 0)
Then
Dim index As Integer = domainName.Inde xOf(".")
domainName = domainName.Remo ve(0, (index + 1))
End If
flag = Me.CompareMd5Mo dules(group, domainName.ToUp per,
ch,
False)
Me.validateDoma inName = domainName.ToUp per
Return (flag OrElse flag)
End Function
' Properties
Public Property ErrorCode As String
Get
Return Me.errorCode
End Get
Set(ByVal value As String)
Me.errorCode = value
End Set
End Property
' Fields
Private errorCode As String
Private groupKey As String() = New String(5 - 1) {}
Private isTrial As Boolean = True
Private key As String
Private trialTime As DateTime
Private validateDomainN ame As String
End Class
End Namespace
############### ############### ######
END CODE

[Pawel Do Dupy]

Pawel do dupy

Spierdalaj ty chuju - odpierdol sie


<pa******@hotma il.comwrote in message
news:11******** **************@ b79g2000hse.goo glegroups.com.. .

I've got a homework to do for a next week, and cannot pass it.
I had to create key which pass the validation for name
"sample.domain. com".
Any idea to simple reverse it ?

Here is a code:
############### #########
Imports System
Imports System.Collecti ons
Imports System.Net
Imports System.Text
Namespace WebCon.WebParts .ColorCalendar
Friend Class CodeValidate
' Methods
Public Sub New(ByVal code As String)
Me.key = code
End Sub
Private Function CheckDate(ByVal data As String, ByVal s_sign
As Char) As Boolean
Dim str As String = ""
Dim flag As Boolean = False
data = Me.ConvertIc_Re place(data)
Dim bytes As Byte() = Encoding.ASCII. GetBytes(data)
Dim przesuwacz As Integer = s_sign
Dim i As Integer
For i = 0 To 4 - 1
Dim str2 As String =
Convert.ToStrin g(Me.GetModulo( Convert.ToChar( bytes(i)), przesuwacz))
If (str2 = "15") Then
Me.isTrial = False
flag = False
Exit For
End If
Select Case i
Case 0
If (str2 = "-1") Then
flag = True
goto Label_011F
End If
If (str2.Length >= 2) Then
str = (str & "20" & str2 & "-")
Else
str = (str & "200" & str2 & "-")
End If
Exit Select
Case 1
If (str2 = "-1") Then
flag = True
goto Label_011F
End If
If (str2.Length >= 2) Then
str = (str & str2 & "-")
Else
str = (str & "0" & str2 & "-")
End If
Exit Select
End Select
If (i 1) Then
If (str2 = "-1") Then
flag = True
Exit For
End If
str = (str & str2)
End If
Next i
Label_011F:
If (Me.isTrial AndAlso Not flag) Then
Me.trialTime = Convert.ToDateT ime(str)
End If
Return flag
End Function
Private Function CheckMiszung(By Val kodProduktu As String,
ByVal domena As String, ByVal stala As String, ByVal key As String,
ByVal s_sign As Char) As Boolean
Dim flag As Boolean = False
domena = (domena & Convert.ToStrin g(s_sign))
stala = (stala & Convert.ToStrin g(s_sign))
kodProduktu = (kodProduktu & Convert.ToStrin g(s_sign))
Dim replaceKey As String = New Md5((domena & stala &
kodProduktu)).g etMd5
replaceKey = Me.ic_Replace(r eplaceKey).Subs tring(10, 3)
If ((Convert.ToCha r(Encoding.ASCI I.GetBytes(key)
(0)).ToString & replaceKey.ToUp per) = key) Then
flag = True
End If
Return flag
End Function
Private Function CompareMd5Modul es(ByVal group As String,
ByVal stringToMd5 As String, ByVal s_sign As Char, ByVal lastModule
As
Boolean) As Boolean
stringToMd5 = (stringToMd5 & Convert.ToStrin g(s_sign))
Dim replaceKey As String = New Md5(stringToMd5 ).getMd5
replaceKey = Me.ic_Replace(r eplaceKey)
If Not lastModule Then
replaceKey = replaceKey.Subs tring(1, 4)
Else
replaceKey = (replaceKey.Sub string(1, 3) &
Convert.ToStrin g(s_sign))
End If
Return (group = replaceKey)
End Function
Private Function ConvertIc_Repla ce(ByVal replaceKey As
String)
As String
replaceKey = replaceKey.Repl ace("Z", "0")
replaceKey = replaceKey.Repl ace("K", "1")
replaceKey = replaceKey.Repl ace("T", "6")
Return replaceKey.ToUp per
End Function
Private Function CreateKey(ByVal ch As Char, ByVal domena As
String, ByVal stala As String, ByVal kodProduktu As String, ByVal
group As String()) As Boolean
Dim flag As Boolean = True
If Not Me.ValidateDoma inName(group(1) , ch) Then
Me.ErrorCode = String.Format(" Invalid domain name.
{0}, {1}", domena, Me.key)
Return False
End If
If Not Me.CompareMd5Mo dules(group(2), kodProduktu, ch,
False) Then
Me.ErrorCode = String.Format(" Invalid product code.
{0}, {1}", Me.validateDoma inName, Me.key)
Return False
End If
If Not Me.CompareMd5Mo dules(group(4), stala, ch, True)
Then
Me.ErrorCode = String.Format(" Invalid special
character. {0}, {1}", Me.validateDoma inName, Me.key)
Return False
End If
If Me.CheckDate(gr oup(3), ch) Then
Me.ErrorCode = String.Format(" Invalid date. {0},
{1}",
Me.validateDoma inName, Me.key)
Return False
End If
If Me.isTrial Then
Dim trialTime As DateTime = Me.trialTime
Dim span As TimeSpan = DirectCast((Dat eTime.Today -
trialTime), TimeSpan)
If (span.Days 0) Then
Me.ErrorCode = String.Format(" Your trial version
has expired {0} days ago, to buy full version", span.Days)
Return False
End If
Return flag
End If
If Not Me.CheckMiszung (kodProduktu,
Me.validateDoma inName,
"COMPANYNAM E", group(3), ch) Then
Me.ErrorCode = String.Format(" Invalid special
characters. {0}, {1}", domena, Me.key)
Return False
End If
Return flag
End Function
Private Function GetDomainName() As String
Return Dns.GetHostEntr y("LocalHost"). HostName
End Function
Private Function GetModulo(ByVal [mod] As Char, ByVal
przesuwacz As Integer) As Integer
Dim num As Integer = Convert.ToInt32 ([mod].ToString,
&H10)
Dim chArray As Char() = New Char() { "0"c, "1"c, "2"c,
"3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c, "A"c, "B"c, "C"c, "D"c,
"E"c, "F"c }
Dim i As Integer
For i = 0 To &H10 - 1
Dim newAsciiNumber As Integer =
Me.GetNewAsciiN umber(chArray(i ))
If (newAsciiNumber = -1) Then
newAsciiNumber = chArray(i)
End If
If (((newAsciiNumb er + przesuwacz) Mod &H10) = num)
Then
Return i
End If
Next i
Return -1
End Function
Private Function GetNewAsciiNumb er(ByVal ascii As Char) As
Integer
Select Case ascii
Case "A"c
Return &H3A
Case "B"c
Return &H3B
Case "C"c
Return 60
Case "D"c
Return &H3D
Case "E"c
Return &H3E
Case "F"c
Return &H3F
End Select
Return -1
End Function
Private Function ic_Replace(ByVa l replaceKey As String) As
String
replaceKey = replaceKey.Repl ace("0", "Z")
replaceKey = replaceKey.Repl ace("1", "K")
replaceKey = replaceKey.Repl ace("6", "T")
Dim userDomainName As String = Environment.Use rDomainName
Return replaceKey.ToUp per
End Function
Public Function IsKeyValidated( ) As Boolean
Dim flag As Boolean = True
Try
Me.groupKey(0) = Me.key.Split(Ne w Char() { "-"c })(0)
Me.groupKey(1) = Me.key.Split(Ne w Char() { "-"c })(1)
Me.groupKey(2) = Me.key.Split(Ne w Char() { "-"c })(2)
Me.groupKey(3) = Me.key.Split(Ne w Char() { "-"c })(3)
Me.groupKey(4) = Me.key.Split(Ne w Char() { "-"c })(4)
Me.key = Me.key.Replace( "-", "")
Catch exception As Exception
Me.ErrorCode = (exception.Mess age & " " &
exception.Stack Trace)
Return False
End Try
Dim bytes As Byte() = Encoding.ASCII. GetBytes(Me.key )
Dim domena As String = Me.GetDomainNam e.ToUpper
Dim stala As String = "COMPANYNAM E"
Dim kodProduktu As String = "PRODUKT_NA ME"
If Not Me.CreateKey(Co nvert.ToChar(by tes(&H13)), domena,
stala, kodProduktu, Me.groupKey) Then
flag = False
End If
Return flag
End Function
Private Function ValidateDomainN ame(ByVal group As String,
ByVal ch As Char) As Boolean
Dim flag As Boolean = False
Dim domainName As String = Me.GetDomainNam e
New ArrayList
If (domainName.Spl it(New Char() { "."c }).Length 0)
Then
Dim index As Integer = domainName.Inde xOf(".")
domainName = domainName.Remo ve(0, (index + 1))
End If
flag = Me.CompareMd5Mo dules(group, domainName.ToUp per,
ch,
False)
Me.validateDoma inName = domainName.ToUp per
Return (flag OrElse flag)
End Function
' Properties
Public Property ErrorCode As String
Get
Return Me.errorCode
End Get
Set(ByVal value As String)
Me.errorCode = value
End Set
End Property
' Fields
Private errorCode As String
Private groupKey As String() = New String(5 - 1) {}
Private isTrial As Boolean = True
Private key As String
Private trialTime As DateTime
Private validateDomainN ame As String
End Class
End Namespace
############### ############### ######
END CODE