100offer 刷票脚本

[vitovan]

(defun robot-vote(project-id)
  (let* ((cookie-jar (make-instance 'drakma:cookie-jar))
         (proj-res (multiple-value-list
                    (drakma:http-request (concatenate 'string "http://i.100offer.com/projects/" (write-to-string project-id))
                                         :cookie-jar cookie-jar)))
         (html-str (car proj-res))
         (csrf-token
          (car (map 'list
                    #'(lambda (node)
                        (plump:attribute node "content"))
                    (clss:select "meta[name=csrf-token]" (plump:parse html-str)))))
         (vote-result (drakma:http-request "http://i.100offer.com/projects/vote"
                                           :method :post
                                           :parameters `(,(cons "project_id" (write-to-string project-id)))
                                           :additional-headers `(,(cons "X-CSRF-Token"  csrf-token))
                                           :cookie-jar cookie-jar)))
    vote-result))

分分钟一千票啊，这玩意儿算钱啊，最具人气奖直接给我吧哈哈～

http://i.100offer.com/projects/140

帮忙 @ 一下 100offer 负责人吧，没找到。

已邮件至 li*****[e-mail]

发现：
http://i.100offer.com/projects/
这个页面的内容不是机器生成，应该是手工整理的。

[xsjguagua]

..5000 到手

[dai269619118]

应该拿刷票工具参加 23333

[sneezry]

赞楼主的探索精神！

[vitovan]

@sneezry
@dai269619118
@xsjguagua
啊呀！ 403 了！

[sneezry]

哈哈，洞补上了😄

[vitovan]

@sneezry 没有补，还是那样。

[scarlex]

居然是 lisp ?

[ob]

感谢楼主为 wikipedia 做出贡献。

[cxl008]

服务器没记录 ip ？

[vitovan]

@scarlex 装逼神器！

[frankel]

首先感谢楼主发现 Bug~~

我们已经紧急修复了，楼主再看看？

[ibcker]

刷票服务出租，有好几台 vps XD

[vitovan]

@frankel 那我还有没有最具人气奖？

[aliuwr]

楼主的浏览器用的什么主体？

[lincanbin]

http://i.100offer.com/projects/297

这个人 8 star 的项目也有两千多票，刷的？

[MOsky]

才发现页面全是宋体。。。。

[enda]

这是啥语言

[vitovan]

@lincanbin 报告警官，这个不是我干的，我只刷了自己的。

[vitovan]

@aliuwr 没用主题，好像 Firefox Developer Edition 这个版本就是这么骚。

[vitovan]

@MOsky 我这 V2EX 就很好看，不知道为什么 100offer 成了那样。