Code Select
(set 'hedr (append "Authorization: Basic " (base64-enc (append user ":" pass)) "rnrn"))
(set 'contents (get-url url 5000 hedr))
Hopefully, this helps some people. I don't like relying on external programs if I can avoid it.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu
(set 'hedr (append "Authorization: Basic " (base64-enc (append user ":" pass)) "rnrn"))
(set 'contents (get-url url 5000 hedr))
nice blog, ax0n. Keep it up! In my experience, starting a blog is easier than keeping it going... :-)Quote from: "cormullion"
Actually wiping data can be quite complex e.g. seeQuote from: "nigelbrown"http://www.usenix.org/publications/library/proceedings/sec96/full_papers/gutmann/"> . And smart drives with cache and file systems that will sideline old data and write a new block under some conditions are problematical.http://www.usenix.org/publications/libr ... s/gutmann/">http://www.usenix.org/publications/library/proceedings/sec96/full_papers/gutmann/
It depends on how secure you want to put the effort in to become.
Maybe call a proven utility to do it.
Nigel
#!/usr/bin/newlisp
(set 'params (main-args))
(if (< (length params) 5)
(begin
(println "USAGE: crypt.lsp [pad] [file] [output] [pad-remainder]")
(exit)
)
)
(set 'pad (params 2))
(set 'target (params 3))
(set 'output (params 4))
(set 'remainder (params 5))
(write-file output (encrypt (read-file target) (read-file pad)))
(write-file remainder (slice (read-file pad) (length (read-file target))))
(exit)