#88679 - 2002-10-15 10:22 PM
Rot13 - Unira'g unq guvf zhpu sha fvapr ZFNtragf
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Fbeel - whfg pbhyqa'g erfvfg. Pna'g erzrzore gur ynfg gvzr V unq guvf zhpu sha jvgu n HQS. Avpr jbex Naqerj (cre hfhny) !
Npghnyyl, guvf Sbezf irefvba bs Ebg13 zvtug unir fbzr irel vagrerfgvat hfrf ... juvpu V jba'g rahzrengr urer ... V'yy yrnir vg gb lbhe vzntvangvba. Npghnyyl, V'z whfg fgnyyvat urer - ybbxvat sbe fghss gb jevgr ... naq sbe fghss gb qrpbqr. Fb vs lbh trg n punapr, cbfg na rapbqrq zrffntr sbe nyy gb rawbl !
-Funja
[Funja ... roflmao]
code:
; Kixtart 4.12 ; Kixforms 2.1 ; Rot13 break on $form = createobject("kixtart.form") $form.text = "Rot13" $form.fontsize = 10 $form.backcolor = skyblue $text = $form.textbox("Paste text here.",10,10,394,260) $text.backcolor = aliceblue $text.multiline = true $button = $form.button("Convert",155,285,100,30) $button.onclick = "$$text.text=rot13($$text.text)" $form.show while $form.visible $=execute($form.doevents) loop exit 1 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, 00:20: Message edited by: Shawn ]
|
Top
|
|
|
|
#88683 - 2002-10-15 10:40 PM
Re: Rot13 - Unira'g unq guvf zhpu sha fvapr ZFNtragf
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Jurer qbrf vg fnl gung guvf vf na ratyvfu bayl obneq ?
Guvf obneq unf orra gnxra bire ol na nyvra enpr bs fpevcgref pnyyrq "Gur Ebgbvqf' ... gurl pbzr sebz Henahf naq gurl ner gbgnyyl pbybe oyvaq fb jr zhfg or gbyrenag.
|
Top
|
|
|
|
#88689 - 2002-10-15 11:34 PM
Re: Rot13 - Unira'g unq guvf zhpu sha fvapr ZFNtragf
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Oelpr - vz gelvat gb qrpbqr jvgu lbhe ivatr hfvat xvkgneg nf gur xrljbeq naq gur qrpbqr synt frg - pna'g frrz gb trg vg gb jbex
V pbcvrq lbhe hqsf vagb gur fpevcg - urerf gur pyvpx yvar:
$ohggba.bapyvpx = "$$grkg.grkg=ivatr($$grkg.grkg,'xvkgneg',1)"
qbrf gung ybbx evtug ?
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
0 registered
and 327 anonymous users online.
|
|
|