Name: Sgt. KABUTERIMON 2013-04-06 18:22
I will be executed in the morning, for crimes against The Board. The exact details as to why are not important. But what is important is that whomever is reading this letter knows that the legendary /prog/ spammer really exists.
Go now, and beware, others now know of the /prog/spammer too. ELECTRO SHOCKER!!!!
(use srfi-1 srfi-13 srfi-18 tcp)
(define sleep thread-sleep!)
(define (stake s token)
((lambda (index)
(if (not index) s (string-take s index)))
(string-contains s token)))
(define (sdrop s token)
((lambda (index)
(if (not index) ""
(string-drop s (+ index (string-length token)))))
(string-contains s token)))
(define (tokenise s token)
(unfold string-null?
(lambda (x) (stake x token))
(lambda (x) (sdrop x token)) s))
(define (send host port message)
(apply
(lambda (reader writer)
(display message writer)
(string-unfold eof-object? values
(lambda (x) (read-char reader))
(read-char reader)))
(call-with-values
(lambda () (tcp-connect host 80)) list)))
; -----------------------------------------------------------------------------
(define (post thread-id name email comment)
(send "dis.4chan.org" 80
((lambda (body)
(string-append
"POST /post HTTP/1.1\r\n"
"Host: dis.4chan.org\r\n"
"Connection: close\r\n"
"Content-Type: application/x-www-form-urlencoded\r\n"
"Content-Length: " (number->string (string-length body)) "\r\n\r\n"
body))
(string-append "bbs=prog&"
"id=" thread-id "&"
" lol what 2&"
"kotehan=" name "&"
"meiru=" email "&"
"com=" comment "&"
"email=%27"))))
(define (get page)
(send "dis.4chan.org" 80
(string-append
"GET " page " HTTP/1.1\r\n"
"Host: dis.4chan.org\r\n"
"Connection: close\r\n\r\n")))
(define (electro-shocker! thread-list)
(post (fourth (list-ref thread-list (random (length thread-list))))
"James+Gosling" "" "GAWWWWWWWWZMACSSSSSS+FLABBERGASTS+MY+AUDIENCE")
(sleep 5)
(electro-shocker! thread-list))
(electro-shocker!
(filter-map
(lambda (x)
((lambda (tokens)
(if (= (length tokens) 7) tokens #f))
(tokenise x "<>")))
(string-tokenize (get "/prog/subject.txt")
(lambda (x) (not (char=? x #\newline))))))Go now, and beware, others now know of the /prog/spammer too. ELECTRO SHOCKER!!!!