Metin Kodlama / Metin Çözme

dialog decode {
  title "Metin Kodlama / Metin Çözme"
  size -1 -1 182 112
  option dbu
  box "", 3, 0 2 270 1
  radio "Encode:", 4, 7 7 30 8
  radio "Decode:", 5, 7 20 30 8
  edit "", 6, 40 6 140 10, autohs
  edit "", 7, 40 19 140 10, autohs
  combo 8, 66 41 60 35, drop
  box "Yöntem", 9, 62 33 67 22
  edit "", 10, 8 63 168 25, read multi vsbar
  box "Çıktı:", 11, 5 55 174 36
  button "Tamam", 12, 147 93 32 12, ok
  button "Mesaj", 13, 113 93 32 12
  button "Kopyala", 14, 79 93 32 12
}


on *:dialog:decode:init:0: {
  did -b $dname 7
  did -c $dname 4
  did -a $dname 8 Mime
  did -a $dname 8 Uucode
  did -c $dname 8 1
}
alias decode {
  if (!$isid) { dialog $iif($dialog(decode),-v,-m) decode decode }
  else { return $decode($1,$2) }
}
on *:dialog:decode:edit:*: {
  if ($did == 6) {
    var %txt = $did(6).text | did -ra $dname 10 $encode(%txt,$replace($did(8).text,Mime,m,Uucode,u,Text,t))
  }
  if ($did == 7) {
    var %txt = $did(7).text | did -ra $dname 10 $decode(%txt,$replace($did(8).text,Mime,m,Uucode,u,Text,t))
  }
}
on *:dialog:decode:sclick:*: {
  if ($did == 4) {
    did -e $dname 6 | did -b $dname 7
    var %txt = $did(6).text | did -ra $dname 10 $encode(%txt,$replace($did(8).text,Mime,m,Uucode,u,Text,t))
  }
  if ($did == 5) {
    did -e $dname 7 | did -b $dname 6 
    var %txt = $did(7).text | did -ra $dname 10 $decode(%txt,$replace($did(8).text,Mime,m,Uucode,u,Text,t))
  }
  if ($did == 8) {
    if ($did(6).enabled) { var %txt = $did(6).text | did -ra $dname 10 $encode(%txt,$replace($did(8).text,Mime,m,Uucode,u,Text,t)) }
    elseif ($did(7).enabled) { var %txt = $did(7).text | did -ra $dname 10 $decode(%txt,$replace($did(8).text,Mime,m,Uucode,u,Text,t))
    }
  }
  if ($did == 14) { 
    if (!$did(10).text) { noop $input(There is no text to copy!,uwo,Error!) }
    else { clipboard $did(10).text }
  }
  if ($did == 13) {
    if (!$did(10).text) { noop $input(There is no text to message!,uwo,Error!) }
    else {
      if (%decmsg) { unset %decmsg }
      var %x = 1
      while (%x <= $did($dname,10).lines) {
        set %decmsg %decmsg $+ $did($dname,10,%x)
        inc %x
      }
    $iif($window($active) == Status Window,echo -a,msg $active) %decmsg }
    unset %decmsg
  }
}