/prog/ hashcash

In order to deal with the constant shitposting, I will start ignoring posts that do not come with a hashcash. A valid hashcash can be generated using hashcash -m /prog/ and should from now on be included in every quality post on /prog/.

Good Day,
Anonymous

hashcash token: 1:24:110116:/prog/::HXTJ2Z5jlRykEpWj:00000000000gJT1

>>23
You need to fake your user-agent.
Here's my prototype:
(define reply
  (λ (message
      thread-id
      (board "prog")
      #:name (name "")
      #:meiru (meiru "")
      #:user-agent (user-agent "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1)"))
    (post-pure-port (string->url "http://dis.4chan.org/post")
                    (string->bytes/utf-8
                     (format "bbs=~a&id=~a& lol what 2&kotehan=~a&meiru=~a&com=~a&email=%27"
                             board thread-id (uri-encode name) (uri-encode meiru) (uri-encode message)))
                    (list "Host: dis.4chan.org"
                          (format "User-Agent: ~a" user-agent)
                          "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
                          "Accept-Language: en-us,en;q=0.5"
                          "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7"
                          "Keep-Alive: 115"
                          "Connection: keep-alive"
                          (format "Referer: http://dis.4chan.org/~a/" board)
                          "Content-Type: application/x-www-form-urlencoded"))))

Sorry for the unsigned post.