IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Daha önce bir arkadaşımız bu konudaki soruları sebebiyle

BASE temelindeki mIRC üzerinde encode/decode yaparak alınan dökümle

bir nebze olsun bu olayı anlamamıza katkı sağlayacağını düşünüyorum.

elbette çok derin ve geniş bir konu bu nedenle çok detaya girmiyorum
meselenin mIRC ile kullanımı konusunu odağa aldım.

kullanımı: /base? text

Kod:

alias base? {

  if $1 && !$2 {

    var %i 0,%d 1

    while (%i < 64) { var %x 0 | inc %i

      while (%x < 64) { inc %x

        if $base($1-,%i,%x) && %i != %x {

          var %e $base($1-,%i,%x),%dc $base(%e,%x,%i) 

          echo No: %d $(|) $qt(%i / %x) $(|) 0,4Encode:  -> %e $(|) $iif($1- == %dc,Full Match) 0,3Decode: --> %dc  

          hadd -m base %e %dc | inc %d

        }

      }

    }

    echo > Unique Encode/decode Count: $hget(base,0).item | hfree base

  }

}