#88700 - 2002-10-16 02:54 AM
Re: Rot13 - Unira'g unq guvf zhpu sha fvapr ZFNtragf
|
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11624
Loc: CA
|
V ernq vg... ohg vg vf BYQ. Guvax V urneq gung bar orsber V rira jbexrq sbe gur zbhfr onpx va 1988. Fbeel Funja, lbh arrq gb pbzr hc jvgu n orggre bar.
Ohg jr fgvyy ybir ln Grnpure
|
Top
|
|
|
|
#88702 - 2002-10-16 03:24 AM
Re: Rot13 - Unira'g unq guvf zhpu sha fvapr ZFNtragf
|
Redback
Getting the hang of it
Registered: 2002-03-20
Posts: 71
Loc: Albury Wodonga, Australia
|
V hfr ebg13.pbz
ohg fbzrgvzrf lbh whfg unir gb pbashfr gur penc bhggn crbcyr
gel guvf bar
101001111110111110100 1010100100 101000101110011000110001010010 1000001000110000010101010000001110011110010101 10000101100 1001000011001100100111010
be guvf bar
01010100011010000110100101110011001000000111010001100101011110000111010000100000 01101001011100110010000001110011011101000110000101101110011001000110000101110010 01100100001000000100000101010011010000110100100101001001001000000111010001101111 00100000011000100110100101101110011000010111001001111001
|
Top
|
|
|
|
#88703 - 2002-10-16 04:00 AM
Re: Rot13 - Unira'g unq guvf zhpu sha fvapr ZFNtragf
|
Lonkero
KiX Master Guru
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
first, word of warning to les. this most likely is really slow on your computer.
V tbg gverq bs pbcl&cnfgr fb znqr guvf gb sbe gur ynml ccy. vg'f abg cresrpg ohg vg'f rnfvre guna tbvat onpx naq jbegu jvgu gur fnzr gbcvp.
xabja ceboyrzf: -vg fubjf gurfr fghcvq punenpgref (qhaab jung gurl ner) -fbzr hey-pbqrf abg sbeznggrq. -vs gurer vf grkg nsgre pbqr gnt, vg jvyy or ybfg -qb abg fhccbeg zhygvcntr gbcvpf (jryy, fhccbegf gur svefg cntr
code:
; Kixtart 4.12 ; Kixforms 2.1 ; Rot13 break on $form = createobject("kixtart.form") $IE=createobject("microsoft.xmlhttp") $form.text = "Rot13" $form.fontsize = 10 $form.size=500,400 $form.center $form.backcolor = skyblue $url = $form.textbox("Paste URL here",10,10,400,25) $go = $form.commandbutton("Get",420,10,65,25) $go.onclick="getPage()" $text = $form.textbox(,10,40,480,320) $text.scrollbars=2 $text.wordwrap=1 $text.backcolor = aliceblue $text.multiline = 1 $form.show while $form.visible $=execute($form.doevents) loop exit 0
function getPage() $topic="" $IE.open("GET",$url.text,not 1) $IE.send $data=split($IE.responsetext,"posted ") for $=1 to ubound($data) $topic=$topic+left($data[$],instr($data[$]," ")-1)+" By " $data[$]=substr($data[$],instr($data[$],"Profile for")+12) $topic=$topic+left($data[$],instr($data[$],'"')-1) $data[$]=substr($data[$],instr($data[$],'ans-serif">')+11) $topic=$topic+@crlf+rot13(join(split(left($data[$],instr($data[$],"</font")-1),"<br />"),@crlf))+@crlf+@crlf next $topic=join(split($topic,"<br />"),@crlf) $text.text=$topic endfunction
FUNCTION Rot13($s) DIM $i,$c, $o,$u $o=SetOption("CaseSensitivity","Off") $u = (Ubound($s) >=0) IF $u $s=Join($s,@CRLF) ENDIF FOR $i = 1 TO Len($s) $c = Substr($s,$i,1) SELECT CASE $c >= 'a' AND $c <= 'm' $c = Chr(Asc($c)+13) CASE $c >= 'n' AND $c <= 'z' $c = Chr(Asc($c)-13) ENDSELECT $Rot13 = $Rot13+$c NEXT IF $u $Rot13 = Split($Rot13,@CRLF) ENDIF $o=SetOption("CaseSensitivity",$o) ENDFUNCTION
[ 16. October 2002, 05:06: Message edited by: Lonkero ]
_________________________
!download KiXnet
|
Top
|
|
|
|
#88707 - 2002-10-22 02:27 AM
Re: Rot13 - Unira'g unq guvf zhpu sha fvapr ZFNtragf
|
Redback
Getting the hang of it
Registered: 2002-03-20
Posts: 71
Loc: Albury Wodonga, Australia
|
so no attempts at my codes?
|
Top
|
|
|
|
#88709 - 2002-10-22 08:40 AM
Re: Rot13 - Unira'g unq guvf zhpu sha fvapr ZFNtragf
|
Redback
Getting the hang of it
Registered: 2002-03-20
Posts: 71
Loc: Albury Wodonga, Australia
|
the first one is base36 converted to base2 the second one is just ascii binary
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
0 registered
and 667 anonymous users online.
|
|
|