Advertisement
Guest User

Untitled

a guest
Feb 21st, 2017
107
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.55 KB | None | 0 0
  1. #include <Crypt.au3>
  2. #include <ScreenCapture.au3>
  3.  
  4. ; Скепчурить регион
  5. _ScreenCapture_Capture(@TempDir & "\hopy.bmp", 0, 0, 100, 100)
  6.  
  7. ; открыть во вьювере
  8. ;ShellExecute(@TempDir & "\hopy.bmp")
  9.  
  10. ;посчитать MD5 файла
  11. $dHash = _Crypt_HashFile(@TempDir & "\hopy.bmp", $CALG_MD5) ; Create a hash of the file.
  12. $sHex = Hex($dHash)
  13.  
  14. ;вывести
  15. ConsoleWrite ("MD5: " & $sHex & @CRLF)
  16.  
  17. if $sHex <> "10F4E9511F3EC54A607E06691F193C22"  then
  18.    ConsoleWrite ("БЕГИТЕ ГЛУПЦЫ !!!!"& @CRLF)
  19. EndIf
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement