发一个自己写的CrackMe!

水中花

是VB2005环境下写的，所以系统需要装有Framework 2.0才可运行！

ww-jack

Private Sub Command1_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs)
      Dim text1 As String = Conversions.ToString(Strings.Len(Me.Text1.Text))
      Dim num2 As Integer = 0
      If (Operators.CompareString(Me.Text1.Text, "", False) = 0) Then
            Interaction.MsgBox(ChrW(35831) & ChrW(36755) & ChrW(20837) & ChrW(29992) & ChrW(25143) & ChrW(21517), 0, Nothing)
      ElseIf (Operators.CompareString(Me.Text2.Text, "", False) = 0) Then
            Interaction.MsgBox(ChrW(35831) & ChrW(36755) & ChrW(20837) & ChrW(24207) & ChrW(21015) & ChrW(21495), 0, Nothing)
      Else
            Dim num3 As Short = CShort(Conversions.ToInteger(text1))
            Dim num1 As Short = 1
            Do While (num1 <= num3)
                  num2 = (Strings.Asc(Strings.Mid(Me.Text1.Text, num1, 1)) + num2)
                  num2 = (num2 Xor 5768)
                  num1 = CShort((num1 + 1))
            Loop
            Dim text2 As String = (Conversions.ToString(num2) & "-" & Me.Text1.Text)
            If (Operators.CompareString(Me.Text2.Text, text2, False) = 0) Then
                  Interaction.MsgBox(ChrW(24685) & ChrW(21916) & ChrW(20320) & ChrW(65292) & ChrW(27880) & ChrW(20876) & ChrW(25104) & ChrW(21151), 0, ChrW(25552) & ChrW(31034))
            Else
                  Interaction.MsgBox(ChrW(23545) & ChrW(19981) & ChrW(36215) & ChrW(65292) & ChrW(24744) & ChrW(36755) & ChrW(20837) & ChrW(24207) & ChrW(21015) & ChrW(21495) & ChrW(38169) & ChrW(35823) & ChrW(65281), 0, ChrW(25552) & ChrW(31034))
            End If
      End If
End Sub

ww-jack

什么都没装 就不搞了!
混淆一下嘛

情天下雪

学习下=========

水中花

原帖由 ww-jack 于 2007-1-3 19:48 发表
Private Sub Command1_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs)
      Dim text1 As String = Conversions.ToString(Strings.Len(Me.Text1.Text))
      Dim num2 As Integer = 0
...

　　

高啊，用什么工具啊？

ww-jack

Reflector

xuhw

解释一下里面的具体内容啊

have

下个来看看，试一下

月之精灵

试一下，看行不行

wan

.net好工具啊