EG Information
Training Missions
Knowledge Bank
|
|
Enigma Group's Code Bank
Lucky LispBy: ishkur88 - Date Submitted: 2009-01-12 02:28:03 ;;; ;;; File: lucky-lisp.lisp ;;; Author: dydx (ishkur88) ;;; Derived: usocket port of http://bc.tech.coop/blog/041028.html ;;; ; having the weirdest issue with resolving package names. ; I can require the file, but I cant actually "use" the ; package... I end up having to use a fully qualified ; package name to get to what I want. (require 'usocket) (defun lucky (string) "Returns link to I'm Feeling Lucky result of string" (let ((string (substitute #+ #Space string)) (sock (usocket:socket-connect "www.google.com" 80))) (unwind-protect (progn (format (usocket:socket-stream sock) "GET /search?q=~A&btnI=lucky HTTP/1.1 Host: www.google.com~%~%" string) (force-output (usocket:socket-stream sock)) (loop for line = (read-line (usocket:socket-stream sock) nil nil) when (> (mismatch line "Location: ") 9) return (subseq line 10 (position (code-char 13) line :from-end t)))))))
|
| Return to
lisp category list |
|
|
Who's Online
483 Guests, 101 Users ckryptix, viper0i0, Diznablo, rabbidmind, asapong, Nasrudin, CollapsingWalls, mehtaparag, bitstrike, jnony, C, Nicid1, Nusquam-Redono-Sapientia, bazcrown, saifulfaizan, The End, Ultraminor, psychomarine, st3alth, themastersinner, pgmrlink, login, lionaneesh, ishkur88, mahraja, Mac, chekifr, gandalf88, Vap0r, t0ast, tantrum6226, BnE, Distorted, Psiber_Syn, Ausome1, invas10n, oldgoat, freedaysbecumei, BinaryShinigami, Rex_Mundi, Red_beard, Strobeflux, s0m3nak3dguy, Descent, teehee, machupicchu, Genetix, Anandarl, NotMyOwn, thegamerdude, Godzila, popo12341234, RedEvolution, velocity_b, myne17, teto111, aVoid, Central-Gsm, 1101, JackalReborn, InjectioN, h4lted, c0re, DisPater, markt4death, splatta, Jackowacko, saint556, Pyron2312, Azerion, howsens, white.hat.gone.bad, vazzilly, pwunkz, Ios, Inverted, QuarterCask, Infernoe11, deskata, cr4ck3rj4ck, Blizer, jasonmax, j0sh, gwenwavor, N4g4c3N, spizeyboy, Network X, Uino59, Jae Cee, ianFDK, saykov, medhaavee, zofy, demonkiller410, Stumble, SaMTHG, kishore, Raze, helasraizam, Venom1019, Jakabo |
| |
|
|
|
|
|