ตัวอย่างโค้ด

Run Macro นี้
Sub PasswordBreaker()
'Author unknown but submitted by brettdj of www.experts-exchange.com

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

สำหรับคนที่ใช้โฮสนอก แล้วมีปัญหาเวลา connect กับ mysql แล้วไม่เป็นภาษาไทย แต่เป็นภาษาการากั้ด นะครับ ลองเอาโค้ดไปแปะที่ไฟล์ connect ดูดังนี้