Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/env newlisp
- ;;; Usage
- ;; $ newlisp printid.lsp
- ;; Real UID = 500
- ;; Effective UID = 0
- ;; Real GUID = 500
- ;; Effective GUID = 500
- ;; uid=500(lxuser) gid=500(lxuser) groups=500(lxuser)
- (define libc "libc.so.6")
- (import libc "getuid")
- (import libc "geteuid")
- (import libc "getgid")
- (import libc "getegid")
- (import libc "printf")
- (printf "Real UID = %d\n" (getuid))
- (printf "Effective UID = %d\n" (geteuid))
- (printf "Real GUID = %d\n" (getgid))
- (printf "Effective GUID = %d\n" (getegid))
- (! "id -a")
- (exit)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement