Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. #!/usr/bin/env newlisp
  2.  
  3. ;;; Usage
  4.  
  5. ;; $ newlisp printid.lsp
  6. ;; Real UID = 500
  7. ;; Effective UID    = 0
  8. ;; Real GUID    = 500
  9. ;; Effective GUID   = 500
  10. ;; uid=500(lxuser) gid=500(lxuser) groups=500(lxuser)
  11.  
  12. (define libc "libc.so.6")
  13.  
  14. (import libc "getuid")
  15. (import libc "geteuid")
  16. (import libc "getgid")
  17. (import libc "getegid")
  18.  
  19. (import libc "printf")
  20.  
  21. (printf "Real UID   = %d\n" (getuid))
  22. (printf "Effective UID  = %d\n" (geteuid))
  23. (printf "Real GUID  = %d\n" (getgid))
  24. (printf "Effective GUID = %d\n" (getegid))
  25.  
  26. (! "id -a")
  27.  
  28. (exit)