00:00:00 --- log: started forth/02.06.03 00:09:40 --- join: davidw (~davidw@adsl-8-74.38-151.net24.it) joined #forth 00:37:15 --- quit: kc5tja ("THX QSO ES 73 DE KC5TJA/6 CL ES QRT AR SK") 00:54:14 --- quit: sif (Read error: 110 (Connection timed out)) 01:09:13 --- quit: I440r ("zzz") 01:22:11 --- nick: Fracta| -> google 01:22:20 --- nick: google -> Fracta| 02:14:32 --- join: Serg_penguin (~snaga_NOI@nat-ch0.nat.comex.ru) joined #forth 02:16:14 --- part: Serg_penguin left #forth 03:32:21 --- join: Soap` (~flop@202-0-42-22.cable.paradise.net.nz) joined #forth 04:27:14 --- quit: Soap` (Read error: 113 (No route to host)) 05:11:01 --- join: bob4th (~bob4th@adsl-63-197-120-243.dsl.sktn01.pacbell.net) joined #forth 05:23:20 --- quit: air ("CRIA v0.2.1 -- http://www.qzx.com/cria") 05:23:33 --- join: air (brand@12-254-199-50.client.attbi.com) joined #forth 06:01:56 --- join: Serg_penguin (~snaga_NOI@nat-ch0.nat.comex.ru) joined #forth 06:02:17 hi all 06:02:34 Privet. 06:02:37 i have a funny question.. 06:02:47 Hi 06:02:55 d u know any _girl_ who codes forth ? 06:02:57 I guess you'll get a funny answer then. 06:02:58 Heh 06:03:01 www.forth.com :) 06:03:08 Elizabeth Rather (?) 06:03:28 Also check comp.lang.forth, she's posting there. 06:03:31 She's not exactly a 'girl' - woman might be more apt 06:03:59 ;) 06:04:01 Hehe 06:04:05 Almost the same. 06:04:17 i know one who admins BSD and codes C... 06:04:31 but she's already married and happy ;( 06:04:46 Haha 06:05:04 i mean know in real life ;) 06:05:25 she's also a grandmother, I think;-) 06:05:36 no, 20 06:05:38 ;) 06:05:39 tss.. 06:05:45 no, I mean Ms Rather 06:05:48 --- nick: Serg_penguin -> Serg_p_afk 06:06:04 stupid soccer games... 06:06:34 :) 06:21:19 --- part: bob4th left #forth 06:21:33 what stupid ? 06:23:58 --- quit: Serg_p_afk () 06:51:30 --- join: cleverdra (julianf@0-1pool37-39.nas2.florence1.sc.us.da.qwest.net) joined #forth 06:52:11 what? No 68k? 06:52:45 hmph! 06:58:20 cleverdra: ? 06:58:34 topic. 07:01:18 cleverdra: ive been here yesterday evening, but missed the discussion about the topic 07:01:37 crowkiller is a very strange person 07:01:53 so, i wouldnt take him 2 seriously... 07:01:56 I gather. The name disturbs me. 07:02:18 who r u, anyway? 07:03:40 I think that the essense of me, as made explicit by the aristotelian 'to be' verb, is that I "am" a person who likes to type whole English words =) 07:03:59 I'm not anyone you might know under another nick. 07:04:11 probably not, anyway. 07:04:46 oy, c 07:05:14 imean: oh, i c 07:05:19 aaaaaaaarggggggggggh, stupid spammers 07:22:34 --- join: sif (~siforth@ip68-9-58-81.ri.ri.cox.net) joined #forth 07:22:34 Type sif: (or /msg sif to play in private) 07:23:12 sif: 1 1 + . 07:23:13 cleverdra: 2 07:23:16 sif: 1 1 + 07:23:18 cleverdra: 07:23:22 sif: 1 0 / . 07:23:23 cleverdra: 0 07:23:26 yay 07:23:41 yay 07:24:57 sif: s" ADDRESS-UNIT-BITS" ENVIRONMENT? . 07:24:59 cleverdra: Word not found: ENVIRONMENT? 07:25:06 Is that the write word? 07:25:10 * cleverdra shudders. right. 07:26:47 sif: create foo does> drop 1 + ; 2 foo . 07:26:49 cleverdra: Word not found: does> 07:27:12 sif: : foo: create does> drop 1 + ; 07:27:13 cleverdra: Word not found: does> 07:27:17 wow! 07:27:34 What kind of forth is sif? 07:30:53 a forth secured for usage by anybody on irc? 07:32:13 removing DOES> isn't any kind of security; I assume that it's either a neutered Forth or an older kind of Forth, harkening to the days where the world was new and DOES> did not walk the earth. 07:32:47 sif: see : 07:32:48 cleverdra: Word not found: see 07:32:56 sif: ' see xt>name 07:32:57 cleverdra: Word not found: xt>name 07:33:00 sif: words 07:33:01 cleverdra: ." .( : if then do loop repeat until exit ... 07:33:09 oh, phooey. 07:33:44 well, I don't know anything about the bot 07:33:55 sif: 1 @ 07:33:56 cleverdra: 07:34:35 sif: here ] begin again [ execute 07:34:36 cleverdra: Word not found: ] 07:34:45 how odd. 07:35:15 sif: .s 07:35:16 cleverdra: 07:35:19 sif: 1 .s 07:35:20 cleverdra: 1 07:35:22 sif: .s 07:35:23 cleverdra: 07:35:47 sif: : open-black-hole begin drop again ; 07:35:49 cleverdra: Word not found: again 07:36:09 sif: defer open-black-hole 07:36:10 cleverdra: Word not found: defer 07:36:33 sif: : defer create 0 , does> @ execute ; : is ' >body ! ; 07:36:34 cleverdra: Word not found: does> 07:36:42 fiend. 07:36:59 sif: variable x 07:37:00 cleverdra: 07:37:07 sif: 1 x ! 07:37:08 cleverdra: Word not found: x 07:37:32 sif: variable x : open-black-hole drop x @ execute ; ' open-black-hole x ! open-black-hole 07:37:33 cleverdra: stack underflow 07:37:47 sif: variable x : open-black-hole x @ execute ; ' open-black-hole x ! open-black-hole 07:37:48 cleverdra: rstack overflow 07:37:53 curses. 07:38:23 sif: variable x : open-black-hole r> drop x @ execute ; : k open-black-hole ; ' open-black-hole x ! k 07:38:25 cleverdra: 07:38:29 curses! 07:38:54 sif: begin 07:38:55 cleverdra: 07:39:00 sif: while 07:39:01 cleverdra: Word not found: while 07:39:04 sif: repeat 07:39:05 cleverdra: Word not found: repeat 07:39:08 sif: next 07:39:09 cleverdra: Word not found: next 07:39:14 begin...what? 07:39:22 sif: until 07:39:24 cleverdra: stack underflow 07:39:37 sif: : open-black-hole begin 0 until ; open-black-hole 07:39:38 cleverdra: 07:39:46 sif: 1000 ms 07:39:47 cleverdra: Word not found: ms 07:39:56 sif: key 07:39:58 cleverdra: Word not found: key 07:40:24 sif: create buf 10 allot buf dup 10 accept type 07:40:25 cleverdra: Word not found: allot 07:40:33 sif: here 07:40:34 cleverdra: 07:40:41 sif: dp 07:40:42 cleverdra: Word not found: dp 07:40:46 sif: , 07:40:47 cleverdra: stack underflow 07:40:55 sif: do 07:40:56 cleverdra: 07:40:58 sif: loop 07:41:00 cleverdra: stack underflow 07:41:22 sif: : allot do 0 , loop ; create buf 10 allot buf dup 10 accept type 07:41:23 cleverdra: stack underflow 07:41:49 sif: : allot do 0 , loop ; 07:41:50 cleverdra: 07:41:57 sif: : allot 0 do 0 , loop ; create buf 10 allot buf dup 10 accept type 07:41:58 cleverdra: Word not found: accept 07:42:54 sif: variable x : allot-all r> drop 0 , x @ execute ; : k allot-all ; ' allot-all x ! k 07:42:56 cleverdra: Heap Overflow 07:42:59 yay 07:43:35 I gather that the return stack is used as a return stack, and needs one cell of information per word. 07:43:54 sif: : x 1 . ; : y [ ' x , ] ; y 07:43:56 cleverdra: Word not found: [ 07:43:59 curses. 07:44:05 sif: immediate 07:44:06 cleverdra: 07:44:12 sif: state 07:44:13 cleverdra: Word not found: state 07:44:39 sif: : x 1 . ; : y ['] x , ; : z y ; z 07:44:40 cleverdra: 07:44:54 hm. uncaught crash? 07:45:12 sif: : x 1 . ; : y ['] x , ; immediate : z y ; z 07:45:13 cleverdra: 1 07:45:20 yay! threaded interpreter... but what kind? 07:45:50 yif: t> 07:45:54 sif: t> 07:45:55 cleverdra: 07:46:09 sif: : x 1 . ; ' x t> w@ . 07:46:10 cleverdra: 07:46:23 odd. 07:46:38 sif: : x { a b } a b + . ; 1 2 x 07:46:39 cleverdra: Word not found: { 07:46:51 sif: s>d 07:46:52 cleverdra: Word not found: s>d 07:46:58 sif: 1. d. 07:46:59 cleverdra: Word not found: 1. 07:47:04 sif: d. 07:47:05 cleverdra: Word not found: d. 07:47:09 sif: <# 07:47:10 cleverdra: Word not found: <# 07:47:18 sif: um/mod 07:47:19 cleverdra: Word not found: um/mod 07:47:22 sif: mod 07:47:23 cleverdra: stack underflow 07:48:44 sif: s" 07:48:45 cleverdra: 07:50:16 sif: : odd? 1 and ; : () drop + 1 type ; : i^n dup 2/ odd? s" -+" () odd? s" 1i" () ; 0 i^n 1 i^n 2 i^n 3 i^n 07:50:17 cleverdra: Word not found: 2/ 07:50:24 sif: : odd? 1 and ; : () drop + 1 type ; : i^n dup 2 / odd? s" -+" () odd? s" 1i" () ; 0 i^n 1 i^n 2 i^n 3 i^n 07:50:25 cleverdra: Word not found: -+" 07:50:38 hmph. 07:52:30 sif: create -+ bl parse -+ -+ swap move create 1i bl parse 1i 1i swap move : odd? 1 and ; : () + 1 type ; : i^n dup 2 / odd? -+ () odd? 1i () ; 0 i^n 1 i^n 2 i^n 3 i^n 07:52:31 cleverdra: Word not found: parse 07:53:00 sif: create -+ bl word 1+ -+ -+ 2 move create 1i bl word 1+ 1i 1i 2 move : odd? 1 and ; : () + 1 type ; : i^n dup 2 / odd? -+ () odd? 1i () ; 0 i^n 1 i^n 2 i^n 3 i^n 07:53:01 cleverdra: Word not found: move 07:53:09 sif: c, 07:53:10 cleverdra: stack underflow 07:53:53 sif: create -+ char - c, char + c, create 1i char 1 , char i , : odd? 1 and ; : () + 1 type ; : i^n dup 2 / odd? -+ () odd? 1i () ; 0 i^n 1 i^n 2 i^n 3 i^n 07:53:54 cleverdra: - -1+1+1 07:54:04 sif: create -+ char - c, char + c, create 1i char 1 , char i , : odd? 1 and ; : () + 1 type ; : i^n dup 2 / odd? -+ () odd? 1i () space ; 0 i^n 1 i^n 2 i^n 3 i^n 07:54:06 cleverdra: - -1 +1 +1 07:55:24 * cleverdra frowns. 07:55:59 sif: create -+ char - c, char + c, create 1i char 1 , char i , : odd? 1 and ; : () swap 1 and + 1 type ; : i^n dup 2 / odd? -+ () odd? 1i () ; 0 i^n 1 i^n 2 i^n 3 i^n 07:56:00 cleverdra: - -1+1+1 07:56:07 sif: true 07:56:08 cleverdra: 07:56:10 sif: true . 07:56:11 cleverdra: 1 07:56:34 sif: 3 1 and . 07:56:35 cleverdra: 1 07:56:47 sif: create -+ char - c, char + c, create 1i char 1 , char i , : odd? 1 and ; : () + 1 type ; : i^n dup 2 / odd? -+ () odd? 1i () ; 0 i^n 1 i^n 2 i^n 3 i^n 07:56:49 cleverdra: - -1+1+1 07:57:02 sif: create -+ char - c, char + c, create 1i char 1 , char i , : odd? 1 and ; : () + 1 type ; : i^n dup 2 / odd? -+ () odd? 1i () space ; char [ emit 0 i^n 1 i^n 2 i^n 3 i^n char ] emit 07:57:04 cleverdra: [- -1 +1 +1 ] 07:57:19 sif: create -+ char - c, char + c, create 1i char 1 c, char i c, : odd? 1 and ; : () + 1 type ; : i^n dup 2 / odd? -+ () odd? 1i () space ; char [ emit 0 i^n 1 i^n 2 i^n 3 i^n char ] emit 07:57:20 cleverdra: [-1 -i +i +i ] 07:58:29 sif: create +- char + c, char - c, create i1 char i , char 1 , : odd? 1 and ; : () + 1 type ; : i^n dup 2 / odd? -+ () odd? 1i () space ; char [ emit 0 i^n 1 i^n 2 i^n 3 i^n char ] emit 07:58:30 cleverdra: Word not found: -+ 07:58:41 sif: create +- char + c, char - c, create i1 char i , char 1 , : odd? 1 and ; : () + 1 type ; : i^n dup 2 / odd? +- () odd? i1 () space ; char [ emit 0 i^n 1 i^n 2 i^n 3 i^n char ] emit 07:58:42 cleverdra: [+ +i -i -i ] 07:58:52 sif: create +- char + c, char - c, create i1 char i c, char 1 c, : odd? 1 and ; : () + 1 type ; : i^n dup 2 / odd? +- () odd? i1 () space ; char [ emit 0 i^n 1 i^n 2 i^n 3 i^n char ] emit 07:58:53 cleverdra: [+i +1 -1 -1 ] 07:59:16 sif: create +- char + c, char - c, create 1i char 1 c, char i c, : odd? 1 and ; : () + 1 type ; : i^n dup 2 / odd? +- () odd? i1 () space ; char [ emit 0 i^n 1 i^n 2 i^n 3 i^n char ] emit 07:59:17 cleverdra: Word not found: i1 07:59:28 sif: create +- char + c, char - c, create 1i char 1 c, char i c, : odd? 1 and ; : () + 1 type ; : i^n dup 2 / odd? +- () odd? 1i () space ; char [ emit 0 i^n 1 i^n 2 i^n 3 i^n char ] emit 07:59:29 cleverdra: [+1 +i -i -i ] 08:00:27 cleverdra: what r u working on? 08:00:59 woopsy. 08:01:02 oh, just something. 08:01:08 It's somewhat difficult to use this. 08:01:21 do u know there is also gforth on this channel? 08:01:22 sif: create +- char + c, char - c, create i1 char i c, char 1 c, : odd? 1 and ; : () + 1 type ; : i^n dup 2 / odd? +- () odd? i1 () space ; char [ emit 0 i^n 1 i^n 2 i^n 3 i^n char ] emit 08:01:23 cleverdra: [+i +1 -1 -1 ] 08:01:27 it has ms, eg 08:01:35 gforth: 1000 ms 08:01:52 gforth: 1 . 08:01:55 cleverdra: 1 08:01:58 gforth: : x begin again ; x 08:01:58 gforth: ." hello, cleverdra ;)" 08:02:01 cleverdra: Terminated. 08:02:04 onetom: hello, cleverdra ;) 08:02:05 bastard. 08:02:44 cleverdra: yeah, speuler made it a bit more secure & fool proof 08:03:00 so, i kill it after some secs, eg 08:03:14 gforth: : x -1 0 do i + loop . ; 0 x 08:03:17 cleverdra: Terminated. 08:03:26 totally unhelpful! 08:03:48 gforth: variable x 08:03:53 gforth: x 08:03:55 cleverdra: in file included from *the terminal*:-1 08:03:56 cleverdra: /tmp/fsock-sh-server.request.tmp:46: Undefined word 08:03:56 cleverdra: x 08:03:56 cleverdra: ^ 08:03:56 cleverdra: Backtrace: 08:04:06 gforth: get-order .s 08:04:09 cleverdra: <4> 1074939312 1074939272 1074939272 3 08:04:27 gforth: sh ls / 08:04:30 cleverdra: FBI-observed machine 08:04:30 cleverdra: bin 08:04:30 cleverdra: boot 08:04:30 cleverdra: cd1 08:04:30 cleverdra: cd2 08:04:31 cleverdra: cdrom 08:04:35 gforth sh ls ~ 08:04:41 gforth: sh ls ~ 08:04:45 cleverdra: Mail 08:04:45 cleverdra: hs 08:04:45 cleverdra: hudi 08:04:45 cleverdra: pdf 08:04:45 cleverdra: speuler.fs 08:04:47 cleverdra: the bat crack 08:05:04 gforth: sh ls . 08:05:07 cleverdra: client 08:05:07 cleverdra: gforth 08:05:07 cleverdra: log 08:05:07 cleverdra: safety.fs 08:05:07 cleverdra: scheme.txt 08:05:09 cleverdra: server 08:05:21 gforth: sh mv gforth gforth~ 08:05:28 gforth: sh ls . 08:05:31 cleverdra: ./server: ./gforth: No such file or directory 08:05:36 * cleverdra cackles. 08:06:31 ahhhaha 08:06:32 Clever Dragon's theorem on IRC Forthbots: A sufficiently powerful Forthbot must be powerful enough to destroy itself. 08:07:12 gforth: sh ls . 08:07:15 davidw: ./server: ./gforth: No such file or directory 08:07:20 It's dead, Jim. 08:07:42 damn, I was going to have a look at /etc/ and /proc files 08:08:03 I figured it too cruel to leave that hole open. 08:08:34 Not, I mean, that someone here might abuse it. 08:08:42 (and who else knows?) 08:09:14 ooh, I should've looked at safety.fs first. 08:09:40 sif: cold 08:09:42 cleverdra: Word not found: cold 08:09:47 sif: ok 08:09:48 cleverdra: Word not found: ok 08:10:00 sif: .ok 08:10:02 cleverdra: Word not found: .ok 08:10:52 sif: : x -1 0 do i + loop ; 0 x . 08:10:54 cleverdra: Word not found: -1 08:11:00 sif: : x 1 negate 0 do i + loop ; 0 x . 08:11:01 cleverdra: Word not found: negate 08:11:08 sif: : x 0 1 - 0 do i + loop ; 0 x . 08:11:09 cleverdra: 32769 08:11:11 sif: recurse 08:11:13 davidw: 08:11:34 sif : x ." hello" recurse ; x 08:11:49 ooh, tail-recurse? 08:12:06 sif: .( hi) 08:12:07 cleverdra: hi 08:12:14 sif: [then] 08:12:15 cleverdra: Word not found: [then] 08:12:21 sif: : x ." hi" ; 08:12:23 cleverdra: 08:12:28 sif: : x ." hi" ; x 08:12:29 cleverdra: hi 08:12:35 sif: : x ." hi" recurse ; x 08:12:37 cleverdra: hihihihihihihihihihihihihihihihihihihihihihihihihi 08:12:53 sif : x .( hello) recurse ; x 08:13:01 sif: 1 1 + 08:13:02 davidw: 08:13:06 sif: 1 1 + . 08:13:08 davidw: 2 08:13:42 sif: : x recurse ; x 1 . 08:13:43 cleverdra: may i ask u not 2 confuse my system 08:13:43 cleverdra: 08:13:53 onetome - which is yours? 08:14:25 its 4 production not 4 being a dumb-but resistant system 08:14:40 onetome - which is yours? 08:14:44 cleverdra: that 1 gforth runs on 08:14:48 ah 08:15:12 OK. I was just curious; I'm sorry that I hurt it. 08:15:33 mind ur hands next time! 08:15:34 onetom: if it's a production system, you shouldn't leave it vulnerable to attacks 08:15:44 b curious in a reversible way! 08:15:55 gforth: 1 1 + . 08:15:58 davidw: 2 08:16:06 gforth: sh cat /proc/cpuinfo 08:16:09 davidw: processor : 0 08:16:09 davidw: vendor_id : GenuineIntel 08:16:09 davidw: cpu family : 6 08:16:09 davidw: model : 6 08:16:09 davidw: model name : Celeron (Mendocino) 08:16:10 davidw: stepping : 5 08:16:18 * cleverdra is jealous. 08:16:29 davidw: i shouldnt, but i choose 2 leave it open 4 this community 08:16:39 onetom: run it in chroot 08:16:56 gforth sh ls -l ~ 08:17:06 gforth: sh ls -l ~ 08:17:09 cleverdra: total 36 08:17:10 cleverdra: drwx--S--- 2 guest guest 4096 OKT 12 2001 Mail 08:17:10 cleverdra: drwxr-sr-x 4 guest guest 4096 MÁJ 24 13:45 hs 08:17:10 cleverdra: drwxr-sr-x 3 guest guest 4096 JÚN 1 00:15 hudi 08:17:10 cleverdra: drwxr-s--- 3 guest guest 4096 FEB 11 00:41 pdf 08:17:11 cleverdra: -rw-r--r-- 1 guest guest 395 MÁJ 8 06:06 speuler.fs 08:17:22 davidw -- see? it's a guest. 08:17:44 well, probably. anyway, I like it better this way. Thank you, onetom. 08:17:44 gforth: sh ps auxw 08:17:47 davidw: USER PID %CPU %MEM VSZ RSS TTY STAT START TIME COMMAND 08:17:47 davidw: root 1 0.0 0.1 1020 460 ? S May22 0:05 init [2] 08:17:47 davidw: root 2 0.0 0.0 0 0 ? SW May22 0:00 [kflushd] 08:17:47 davidw: root 3 0.0 0.0 0 0 ? SW May22 0:01 [kupdate] 08:17:47 davidw: root 4 0.0 0.0 0 0 ? SW May22 0:05 [kswapd] 08:17:49 davidw: root 5 0.0 0.0 0 0 ? SW May22 0:00 [keventd] 08:17:56 davidw: if u help running it in a chroot, i will 08:18:05 onetom: ok 08:18:07 onetom - no, please! 08:18:40 * cleverdra sighs. 08:18:43 i disabled the system & (system) words, anyway, but didnt know about sh 08:19:11 and file access is also enabled 08:19:23 onetom - even if you disabled sh, there are words to wrap C functions and load shared libraries. 08:19:42 but plz dont say any rm -rf / coz it will hurt many useful files 08:19:52 How, BTW, did you disable these words? 08:19:56 hmmm.... ur right 08:20:08 i also forget about that possibility :/ 08:20:10 I'd never do that, onetom =( 08:20:28 ok, thanks 08:20:35 the best way to do things is either 1) some kind of safe execution mode (ala Tcl) or 2) a chroot 08:20:36 IMO 08:20:41 gforth: head -10 safety.fs 08:20:44 cleverdra: in file included from *the terminal*:-1 08:20:45 cleverdra: /tmp/fsock-sh-server.request.tmp:46: Undefined word 08:20:45 cleverdra: head -10 safety.fs 08:20:45 cleverdra: ^^^^ 08:20:45 cleverdra: Backtrace: 08:20:51 gforth: sh head -10 safety.fs 08:20:55 cleverdra: decimal 08:20:55 cleverdra: ' system >name name>string blank \ make the word SYSTEM not findable 08:20:55 cleverdra: ' (system) >name name>string blank 08:20:55 cleverdra: : system cr ." SYSTEM is disabled for safety reasons" ; 08:21:13 oooh, clever. 08:21:37 I thought you might've just created new words on top of the old words. 08:25:18 gforth: sh echo "" > misc.fs 08:25:39 gforth: require misc.fs 1 . 08:25:42 cleverdra: in file included from *the terminal*:-1 08:25:43 cleverdra: /tmp/fsock-sh-server.request.tmp:46: Non-existent file 08:25:43 cleverdra: require misc.fs 1 . 08:25:43 cleverdra: ^^^^^^^ 08:25:43 cleverdra: Backtrace: 08:25:52 gforth: sh ls 08:25:55 cleverdra: client 08:25:56 cleverdra: gforth 08:25:56 cleverdra: log 08:25:56 cleverdra: misc.fs 08:25:56 cleverdra: safety.fs 08:25:59 cleverdra: scheme.txt 08:26:07 gforth: sh ps 08:26:10 davidw: PID TTY TIME CMD 08:26:10 davidw: 22181 pts/26 00:00:00 bash 08:26:10 davidw: 26544 pts/26 00:00:00 server 08:26:10 davidw: 27331 pts/26 00:00:00 gforth 08:26:10 davidw: 27332 pts/26 00:00:00 sleep 08:26:12 gforth: require ./misc.fs 1 . 08:26:12 davidw: 27333 pts/26 00:00:00 ps 08:26:15