* * A tiny DPS script written to translate the site log IP addresses * into unidentifiable numbers. * Syntax: logenc * @eoff @setl src `w@0 @setl dst `w@1 @setl wrpos 0 @setl rdpos 0 @setl seqno 1 @setl logpos 0 * main loop starts below @lbl logline @inline ]src -p ]rdpos @setl rdpos ]i@p @iflt {]i@ - 6} goto logline @setl currip ]i@0 @setl temp ]i@5 @setl currll "]i@3 ]i@4 " @write temp temp.txt -p 0 -t $d @inline temp.txt -p 0 @ifr |post|]i@0 | * ask the tcp/ip subsystem to convert decimal IP into hex @do readipx $[ts ]currip @setl curripx ]i@0 @ifudfl ]curripx @setl ]curripx ]seqno @setl seqno {]seqno +1} @endc * write the post transaction @setl temp "]]curripx ]currll " @write temp ]dst -t $d -t $a * end of logging the "post" transaction line @endc @goto logline repeat until eof *