Humor: Gforth Program from alt.2600 for posting typical lame posts 
Author Message
 Humor: Gforth Program from alt.2600 for posting typical lame posts

Reprinted from


(no valid "From:")

\ i got bored and learned forth.  here ya go.  :)

\ begin forth ValuHack by cHao
\ to run with gforth: gforth <filename> -e valuhack
\ to run with another forth: RTFM  :)

variable luser 40 chars allot
variable request 80 chars allot
variable opt 2 chars allot

: printmenu
  cr
  cr ." 1. Warez/Serialz/Crackz"
  cr ." 2. Hotmail/Yahoo Account Access"
  cr ." 3. AOL Screen Name Access"
  cr ." 4. Web Defacement/Hijacking"
  cr
;

: choice ( -- n )
  begin
  printmenu
  cr ." Your choice: "
  opt 1 accept drop

  dup 1 < over 4 > or
  if \ opt[0] > 4 or opt[0] < 1
  drop 0 then
  dup 0<> dup invert
  if \ choice==0
    cr ." How difficult can this be?  There are 4 choices...with
numbers"
    cr ." beside them.  Type the number next to the one you want." cr
    nip
  then
  until \ choice != 0
;

: getcstr ( addr size -- )
  over char+
  swap 1-
  accept
  swap c!
;

: dowarez
  cr ." What program did you want? "
  request 80 getcstr

  cr luser count type space ." wants an illegal copy of " request
count type
;

: dohotmail
  cr ." What account did you want access to? "
  request 80 getcstr

  cr luser count type space ." wants to access " request count type
;

: doaol

;

: doweb
  cr ." What web site did you want to take over? "
  request 80 getcstr
  cr luser count type space ." wants to take over " request count type
;

: dohack ( n -- )
case
1 of dowarez endof
2 of dohotmail endof
3 of doaol endof
4 of doweb endof
endcase
;

: valuhack
  cr ." And what is your name, young grasshopper? " luser 40 getcstr
  cr cr ." ValuHack 1.0" cr ." ------------"
  choice dohack ." ...but that ain't hacking."
  cr cr ." Maybe " luser count type space ." should try a different
newsgroup."
  cr cr
  ." FOAD SkriptKiddiot"
  cr cr ." ForthLART end."
  luser 80 accept
  cr
  bye
;

\ end



Mon, 27 Sep 2004 20:31:29 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. PL/M to C converter posted to alt.sources

2. Unix Occam Compiler posting in alt.sources

3. X11/Motif/OpenLook interface for Scheme posted to alt.sources

4. TSR example posted to alt.sources ...

5. Delay in posting regularly posted articles.

6. A Test post for a posting problem.

7. Posting guidelines -- bi-weekly posting

8. Posting guidelines -- bi-weekly posting

9. Posting guidelines -- bi-weekly posting

10. Posting guidelines -- bi-weekly posting

11. Posting guidelines -- bi-weekly posting

12. Posting guidelines -- bi-weekly posting

 

 
Powered by phpBB® Forum Software