Advertisement
Guest User

Untitled

a guest
Oct 31st, 2018
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 8.41 KB | None | 0 0
  1. #include <ButtonConstants.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <WindowsConstants.au3>
  5. #include <String.au3>
  6. #include <Crypt.au3>
  7. #include <Array.au3>
  8.  
  9. CheckForDebuggers()
  10.  
  11. Global $FAKEhwid, $FAKEhwid, $REALhwid, $SHOWNhwid, $RealConvertedHwid, $SHOWNtext, $num, $CheckResult, $SAVEDfakeHWID
  12. $num = 0
  13. $REALhwid = _GetHWID()
  14. ConvertRealHwidToFakeHwid()
  15. ConvertFakeHwidToShownHwid()
  16. $SAVEDfakeHWID = $FAKEhwid
  17. $SHOWNtext = $SHOWNhwid
  18. check()
  19. If $CheckResult <> 1 Then LicenceForm()                                         ; If hwid was not found then ask to buy licence
  20.  
  21.  
  22. Func LicenceForm()
  23.     MouseMove(MouseGetPos(0), MouseGetPos(1), 1)
  24.  
  25.     #Region ### START Koda GUI section ###
  26.     $regester = GUICreate("                                                                                Subscribe Form ", 666, 51, -1, -1)
  27.     $InputHWID = GUICtrlCreateInput($SHOWNhwid, 96, 8, 489, 32, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER, $ES_READONLY))
  28.     GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
  29.     $buyLicence = GUICtrlCreateButton("Subscribe ", 8, 8, 73, 33)
  30.     GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
  31.     $copyHWID = GUICtrlCreateButton("Copy", 600, 8, 57, 33)
  32.     GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
  33.     GUISetState(@SW_SHOW)
  34.     #EndRegion ### END Koda GUI section ###
  35.  
  36.     While 1
  37.         $nMsg = GUIGetMsg()
  38.         Switch $nMsg
  39.             Case $GUI_EVENT_CLOSE
  40.                 Exit
  41.  
  42.             Case $copyHWID
  43.                 ClipPut($SHOWNtext)
  44.  
  45.             Case $buyLicence
  46.                             ;How  users can buy licence.. Ex:Shellexecute("your FB page")..or MsgBox(0,"my phone number", "phone number")                           ; buy licence action
  47.  
  48.         EndSwitch
  49.     WEnd
  50.  
  51.  
  52. EndFunc   ;==>LicenceForm
  53.  
  54. Func check()
  55.  
  56.     Do
  57.         Call("SearchForHwid")
  58.         If $FAKEhwid = $FAKEhwid[$num] Then MsgBox(0, "", "done")
  59.         $num = $num + 1
  60.         If $FAKEhwid[$num] = "finish" Then ExitLoop
  61.         If $SAVEDfakeHWID = $FAKEhwid[$num] Then
  62.                                                                           ; What happens after hwid is found
  63.             $CheckResult = 1
  64.             ExitLoop
  65.         EndIf
  66.     Until $FAKEhwid = "finsh"
  67.  
  68. EndFunc   ;==>check
  69.  
  70. Func SearchForHwid()
  71.  
  72.     $Source = BinaryToString(InetRead('                        ', 1));(((((((((((((((((((((((((((link of raw online hwids list)))))))))))))))))))))))))
  73.  
  74.     $reader = _StringBetween($Source, '{', '}')
  75.  
  76.     For $a In $reader
  77.         $FAKEhwid = _StringBetween($Source, '{', '}')
  78.         ConsoleWrite($FAKEhwid[$num] & @CRLF)
  79.     Next
  80. EndFunc   ;==>SearchForHwid
  81.  
  82. Func _GetHWID()
  83.     Local $aDrives = DriveGetDrive('FIXED'), $sOutput = ''
  84.     If @error = 0 Then
  85.         For $i = 1 To $aDrives[0]
  86.             $sOutput &= DriveGetSerial($aDrives[$i])
  87.         Next
  88.     EndIf
  89.     $aDrives = DriveGetDrive('CDROM')
  90.     If @error = 0 Then
  91.         For $i = 1 To $aDrives[0]
  92.             $sOutput &= DriveGetSerial($aDrives[$i])
  93.         Next
  94.     EndIf
  95.     Local $aMemory = MemGetStats()
  96.     $sOutput &= @OSVersion & @OSBuild & @OSArch & @CPUArch & @KBLayout & $aMemory[1]
  97.     $aMemory = 0
  98.     $sOutput = StringStripWS($sOutput, 8)
  99.     Local $sHash = StringTrimLeft(_Crypt_HashData($sOutput, $CALG_MD5), 2)
  100.     Return StringMid($sHash, 1, 8) & '-' & StringMid($sHash, 9, 4) & '-' & StringMid($sHash, 13, 4) & '-' & StringMid($sHash, 17, 4) & '-' & StringMid($sHash, 21, 12)
  101. EndFunc   ;==>_GetHWID
  102.  
  103. Func ConvertRealHwidToFakeHwid()
  104.     $FAKEhwid = $REALhwid
  105.     $FAKEhwid = StringReplace($FAKEhwid, "A", "Z")
  106.     $FAKEhwid = StringReplace($FAKEhwid, "B", "1")
  107.     $FAKEhwid = StringReplace($FAKEhwid, "C", "M")
  108.     $FAKEhwid = StringReplace($FAKEhwid, "D", "C")
  109.     $FAKEhwid = StringReplace($FAKEhwid, "E", "D")
  110.     $FAKEhwid = StringReplace($FAKEhwid, "F", "H")
  111.     $FAKEhwid = StringReplace($FAKEhwid, "G", "I")
  112.     $FAKEhwid = StringReplace($FAKEhwid, "H", "L")
  113.     $FAKEhwid = StringReplace($FAKEhwid, "I", "O")
  114.     $FAKEhwid = StringReplace($FAKEhwid, "J", "V")
  115.     $FAKEhwid = StringReplace($FAKEhwid, "K", "E")
  116.     $FAKEhwid = StringReplace($FAKEhwid, "L", "Y")
  117.     $FAKEhwid = StringReplace($FAKEhwid, "M", "U")
  118.     $FAKEhwid = StringReplace($FAKEhwid, "N", "A")
  119.     $FAKEhwid = StringReplace($FAKEhwid, "O", "7")
  120.     $FAKEhwid = StringReplace($FAKEhwid, "P", "2")
  121.     $FAKEhwid = StringReplace($FAKEhwid, "Q", "3")
  122.     $FAKEhwid = StringReplace($FAKEhwid, "R", "4")
  123.     $FAKEhwid = StringReplace($FAKEhwid, "S", "5")
  124.     $FAKEhwid = StringReplace($FAKEhwid, "T", "P")
  125.     $FAKEhwid = StringReplace($FAKEhwid, "U", "Q")
  126.     $FAKEhwid = StringReplace($FAKEhwid, "V", "J")
  127.     $FAKEhwid = StringReplace($FAKEhwid, "W", "K")
  128.     $FAKEhwid = StringReplace($FAKEhwid, "X", "N")
  129.     $FAKEhwid = StringReplace($FAKEhwid, "Y", "9")
  130.     $FAKEhwid = StringReplace($FAKEhwid, "Z", "X")
  131.     $FAKEhwid = StringReplace($FAKEhwid, "1", "8")
  132.     $FAKEhwid = StringReplace($FAKEhwid, "2", "G")
  133.     $FAKEhwid = StringReplace($FAKEhwid, "3", "W")
  134.     $FAKEhwid = StringReplace($FAKEhwid, "4", "R")
  135.     $FAKEhwid = StringReplace($FAKEhwid, "5", "0")
  136.     $FAKEhwid = StringReplace($FAKEhwid, "6", "B")
  137.     $FAKEhwid = StringReplace($FAKEhwid, "7", "F")
  138.     $FAKEhwid = StringReplace($FAKEhwid, "8", "S")
  139.     $FAKEhwid = StringReplace($FAKEhwid, "9", "6")
  140.     $FAKEhwid = StringReplace($FAKEhwid, "0", "T")
  141.     $FAKEhwid = StringReplace($FAKEhwid, "-", "-")
  142. EndFunc   ;==>ConvertRealHwidToFakeHwid
  143.  
  144. Func ConvertFakeHwidToShownHwid()
  145.     $SHOWNhwid = $FAKEhwid
  146.     $SHOWNhwid = StringReplace($SHOWNhwid, "A", "Z")
  147.     $SHOWNhwid = StringReplace($SHOWNhwid, "B", "1")
  148.     $SHOWNhwid = StringReplace($SHOWNhwid, "C", "M")
  149.     $SHOWNhwid = StringReplace($SHOWNhwid, "D", "C")
  150.     $SHOWNhwid = StringReplace($SHOWNhwid, "E", "D")
  151.     $SHOWNhwid = StringReplace($SHOWNhwid, "F", "H")
  152.     $SHOWNhwid = StringReplace($SHOWNhwid, "G", "I")
  153.     $SHOWNhwid = StringReplace($SHOWNhwid, "H", "L")
  154.     $SHOWNhwid = StringReplace($SHOWNhwid, "I", "O")
  155.     $SHOWNhwid = StringReplace($SHOWNhwid, "J", "V")
  156.     $SHOWNhwid = StringReplace($SHOWNhwid, "K", "E")
  157.     $SHOWNhwid = StringReplace($SHOWNhwid, "L", "Y")
  158.     $SHOWNhwid = StringReplace($SHOWNhwid, "M", "U")
  159.     $SHOWNhwid = StringReplace($SHOWNhwid, "N", "A")
  160.     $SHOWNhwid = StringReplace($SHOWNhwid, "O", "7")
  161.     $SHOWNhwid = StringReplace($SHOWNhwid, "P", "2")
  162.     $SHOWNhwid = StringReplace($SHOWNhwid, "Q", "3")
  163.     $SHOWNhwid = StringReplace($SHOWNhwid, "R", "4")
  164.     $SHOWNhwid = StringReplace($SHOWNhwid, "S", "5")
  165.     $SHOWNhwid = StringReplace($SHOWNhwid, "T", "P")
  166.     $SHOWNhwid = StringReplace($SHOWNhwid, "U", "Q")
  167.     $SHOWNhwid = StringReplace($SHOWNhwid, "V", "J")
  168.     $SHOWNhwid = StringReplace($SHOWNhwid, "W", "K")
  169.     $SHOWNhwid = StringReplace($SHOWNhwid, "X", "N")
  170.     $SHOWNhwid = StringReplace($SHOWNhwid, "Y", "9")
  171.     $SHOWNhwid = StringReplace($SHOWNhwid, "Z", "X")
  172.     $SHOWNhwid = StringReplace($SHOWNhwid, "1", "8")
  173.     $SHOWNhwid = StringReplace($SHOWNhwid, "2", "G")
  174.     $SHOWNhwid = StringReplace($SHOWNhwid, "3", "W")
  175.     $SHOWNhwid = StringReplace($SHOWNhwid, "4", "R")
  176.     $SHOWNhwid = StringReplace($SHOWNhwid, "5", "0")
  177.     $SHOWNhwid = StringReplace($SHOWNhwid, "6", "B")
  178.     $SHOWNhwid = StringReplace($SHOWNhwid, "7", "F")
  179.     $SHOWNhwid = StringReplace($SHOWNhwid, "8", "S")
  180.     $SHOWNhwid = StringReplace($SHOWNhwid, "9", "6")
  181.     $SHOWNhwid = StringReplace($SHOWNhwid, "0", "T")
  182.     $SHOWNhwid = StringReplace($SHOWNhwid, "-", "-")
  183. EndFunc   ;==>ConvertFakeHwidToShownHwid
  184.  
  185. Func CheckForDebuggers()
  186.  
  187. ; this func closes some known proxy debuggers
  188.     ; Charles
  189.     If WinExists("Charles") Then WinClose("Charles")
  190.     If ProcessExists("Charles.exe") Then ProcessClose("Charles")
  191.  
  192.     ; Fiddler
  193.     If WinExists("Fiddler") Then WinClose("Fiddler")
  194.     If ProcessExists("Fiddler.exe") Then ProcessClose("Fiddler.exe")
  195.  
  196.     ; Wireshark
  197.     If ProcessExists("Wireshark.exe") Then ProcessClose("Wireshark.exe")
  198.     If WinExists("Wireshark") Then WinClose("Wireshark")
  199.  
  200.     ; OllyDbg
  201.     If WinExists("OllyDbg") Then WinClose("OllyDbg")
  202.     If ProcessExists("OLLYDBG.EXE") Then ProcessClose("OLLYDBG.EXE")
  203.  
  204.     ; just expectation
  205.     If WinExists("Developer") Then WinClose("Developer")
  206.     If WinExists("debug") Then WinClose("debug")
  207.     If WinExists("debugger") Then WinClose("debugger")
  208.     If WinExists("debuger") Then WinClose("debuger")
  209.  
  210. EndFunc   ;==>CheckForDebuggers
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement