世界最著名的密码破解软体

天明 · 发表于 2012-11-21 09:13

不知道能破解哪些方面的东西~

nichuan · 发表于 2012-12-4 11:29

dddddddddddddddd

xyz-it · 发表于 2012-12-4 14:50

看看好用不{:soso_e100:}

这个世界很疯狂 · 发表于 2012-12-13 20:11

Sub dsr()
Dim arr, arr1()
arr = Range("a1").CurrentRegion
x = UBound(arr)
y = UBound(arr, 2)
ReDim arr1(1 To x * y, 1 To 1)
For yy = 1 To y
For xx = 1 To x
If arr(xx, yy) <> "" Then
k = k + 1
arr1(k, 1) = arr(xx, yy)
End If
Next xx
Next yy
Cells = ""
Range("a1").Resize(k, 1) = arr1
End Sub