水中花 发表于 2007-1-3 13:42:53

发一个自己写的CrackMe!

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

ww-jack 发表于 2007-1-3 19:48:49

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 发表于 2007-1-3 19:49:24

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

情天下雪 发表于 2007-1-3 22:08:00

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

水中花 发表于 2007-1-4 13:15:47

原帖由 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 发表于 2007-1-4 18:31:49

Reflector

xuhw 发表于 2007-1-4 20:41:49

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

have 发表于 2007-1-5 11:44:58

下个来看看，试一下

月之精灵 发表于 2007-1-5 17:50:22

试一下，看行不行

wan 发表于 2007-1-6 11:01:56

.net好工具啊
页: [1] 2
查看完整版本: 发一个自己写的CrackMe!