diff options
| author | nathan <nathansmith@disroot.org> | 2025-08-31 18:28:54 +0000 |
|---|---|---|
| committer | nathan <nathansmith@disroot.org> | 2025-08-31 18:28:54 +0000 |
| commit | 3358ef733678ffd42a057a1cce900620d0a04dfe (patch) | |
| tree | f22316409885dddafb3b2900cb881cd6e5b39a45 /org | |
| parent | 57be320e2e0c6b4b067b17e6d7db86f90aed4d1f (diff) | |
| download | shittyweb-3358ef733678ffd42a057a1cce900620d0a04dfe.tar.gz shittyweb-3358ef733678ffd42a057a1cce900620d0a04dfe.tar.bz2 shittyweb-3358ef733678ffd42a057a1cce900620d0a04dfe.zip | |
Really single anti-bot thingy
Diffstat (limited to 'org')
| -rwxr-xr-x | org/cgi-bin/guest-book.cgi | 76 | ||||
| -rw-r--r-- | org/reading-corner.org | 2 |
2 files changed, 53 insertions, 25 deletions
diff --git a/org/cgi-bin/guest-book.cgi b/org/cgi-bin/guest-book.cgi index dfbe38f..9fb71bc 100755 --- a/org/cgi-bin/guest-book.cgi +++ b/org/cgi-bin/guest-book.cgi @@ -8,6 +8,7 @@ (use-modules (json)) (define guest-book-json-file "guest-book.json") +(define test-number-max 100) (define (decode-hex hex) (string (integer->char @@ -57,6 +58,17 @@ (close-output-port output) sanitized)) +(define (number-to-entity number) + (letrec ((process-digits + (lambda (digits) + (if (eq? digits '()) + "" + (string-append "&#" + (number->string (char->integer (car digits))) + ";" + (process-digits (cdr digits))))))) + (process-digits (string->list (number->string number))))) + (define (write-guest-to-json name url message) (let ((guest-book '()) (guest `(("name" . ,name) @@ -113,11 +125,18 @@ (if form (let ((name (sanitize-input (cdr (list-ref form 0)))) (url (sanitize-input (cdr (list-ref form 1)))) - (message (sanitize-input (cdr (list-ref form 2))))) + (message (sanitize-input (cdr (list-ref form 2)))) + (answer (string->number (sanitize-input (cdr (list-ref form + 3))))) + (first (string->number (sanitize-input (cdr (list-ref form 4))))) + (second (string->number (sanitize-input (cdr (list-ref form + 5)))))) (cond ((string= name "") ;; No name given (display "<p>name is required</p>")) ((string= message "") ;; No message given (display "<p>please write a silly something (:</p>")) + ((not (= (+ first second) answer)) + (display "<p>You suck at math lol</p>")) (else (write-guest-to-json name url message))))))) @@ -134,7 +153,10 @@ ;; Display pretty much everything (define (display-guest-book) - (display "Content-Type: text/html\n\n\ + (set! *random-state* (seed->random-state (time-second (current-time)))) + (let ((first-test-number (number-to-entity (random test-number-max))) + (second-test-number (number-to-entity (random test-number-max)))) + (format #t "Content-Type: text/html\n\n\ <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"\n\ \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n\ <html xmlns=\"http://www.w3.org/1999/xhtml\" lang=\"en\" xml:lang=\"en\">\n\ @@ -160,35 +182,41 @@ <br />\n\ <textarea type = \"text\" name = \"message\" rows = \"4\"\n\ cols = \"40\" maxlength=\"512\"></textarea>\n\ + <br /><br />\n\ + <lable for = \"answer\">Answer ~a plus ~a</lable>\n\ + <input type = \"number\" name = \"answer\"/>\n\ + <input type = \"hidden\" name =\"first\" value = \"~a\">\n\ + <input type = \"hidden\" name =\"second\" value = \"~a\">\n\ <br />\n\ <input type = \"submit\" value = \"Fucking submit\">\n\ <b>You can't delete/edit it afterwards</b>\n\ </form>\n\ <p>\n\ <b>Be nice! Dont be a fucking ass.</b>\n\ - </p>\n") - (handle-fields) - (display " </div>\n <br />\n") - - ;; Try to read the guest book json - (with-exception-handler - (lambda (error) - (display " <div class=\"container\">\n\ + </p>\n" first-test-number second-test-number first-test-number + second-test-number) + (handle-fields) + (display " </div>\n <br />\n") + + ;; Try to read the guest book json + (with-exception-handler + (lambda (error) + (display " <div class=\"container\">\n\ <p>No guest(s) have been added ): But you can be the first!</p>\n\ - </div>\n")) - (lambda () - (call-with-input-file guest-book-json-file - (lambda (fp) - (letrec ((guest-book (json->scm fp)) - (guest-loop - (lambda (index) - (display-guest (vector-ref guest-book index)) - (if (> index 0) - (guest-loop (- index 1)))))) - (guest-loop (- (vector-length guest-book) 1)))))) - #:unwind? #t) - - (display "</body>\n</html>\n")) + </div>\n")) + (lambda () + (call-with-input-file guest-book-json-file + (lambda (fp) + (letrec ((guest-book (json->scm fp)) + (guest-loop + (lambda (index) + (display-guest (vector-ref guest-book index)) + (if (> index 0) + (guest-loop (- index 1)))))) + (guest-loop (- (vector-length guest-book) 1)))))) + #:unwind? #t) + + (display "</body>\n</html>\n"))) (define (main args) (display-guest-book)) diff --git a/org/reading-corner.org b/org/reading-corner.org index 78e2c4c..d9feacf 100644 --- a/org/reading-corner.org +++ b/org/reading-corner.org @@ -420,7 +420,7 @@ complete shithole and a used condom of a human being. Throughout the story he gets *very* close to learning a lesson and becoming a better person though no matter how close he gets he somehow twists it and becomes *more* of a shitbag in the long run. *He is completely painful to watch for anyone with any amount -of morals.* Well anyfucks, how he sees it is women are mindless dolls who will +of ethics.* Well anyfucks, how he sees it is women are mindless dolls who will fall for any prince that saves them. He just wants to save her so he can marry her and keep her around as a trophy wife. It turns out the princess is a lesbian and she ran away to live with her girlfriend, the dragon! He also at |