dialog sifreleme {
  title "Kripto Çözücü"
  size -1 -1 200 180
  option dbu
  edit "", 1, 10 10 180 20, autohs
  button "Şifrele", 2, 10 40 50 20
  edit "", 3, 70 40 120 20, read autohs
  text "Şifreli Mesaj:", 4, 70 32 50 8
  button "Kanala Gönder", 5, 10 70 50 20
  edit "", 6, 10 100 180 20, autohs
  button "Çöz", 7, 10 130 50 20
  edit "", 8, 70 130 120 40, read multi
  text "Yapıştır ve Çöz:", 9, 10 92 50 8
  text "Çözülen Mesaj:", 10, 70 122 50 8
  button "Kapat", 11, 150 150 40 20, cancel
}

alias sifre {
  if ($dialog(sifreleme) == $null) {
    dialog -m sifreleme sifreleme
  }
}

alias encrypt {
  var %text = $1-
  var %shift = 3
  var %result = ""
  var %i = 1
  while (%i <= $len(%text)) {
    var %char = $mid(%text,%i,1)
    var %ascii = $asc(%char)
    if (%char == $chr(32)) {
      %result = %result $+ $chr(32)
    }
    elseif (%ascii >= 97 && %ascii <= 122) {
      %result = %result $+ $chr($calc((%ascii - 97 + %shift) % 26 + 97))
    }
    elseif (%ascii >= 65 && %ascii <= 90) {
      %result = %result $+ $chr($calc((%ascii - 65 + %shift) % 26 + 65))
    }
    else {
      %result = %result $+ %char
    }
    inc %i
  }
  return %result
}

alias decrypt {
  var %text = $1-
  var %shift = 3
  var %result = ""
  var %i = 1
  while (%i <= $len(%text)) {
    var %char = $mid(%text,%i,1)
    var %ascii = $asc(%char)
    if (%char == $chr(32)) {
      %result = %result $+ $chr(32)
    }
    elseif (%ascii >= 97 && %ascii <= 122) {
      %result = %result $+ $chr($calc((%ascii - 97 - %shift + 26) % 26 + 97))
    }
    elseif (%ascii >= 65 && %ascii <= 90) {
      %result = %result $+ $chr($calc((%ascii - 65 - %shift + 26) % 26 + 65))
    }
    else {
      %result = %result $+ %char
    }
    inc %i
  }
  return %result
}

on *:dialog:sifreleme:init:0:{}

on *:dialog:sifreleme:sclick:2:{
  var %mesaj = $did(sifreleme,1)
  if (%mesaj) {
    did -ra sifreleme 3 $encrypt(%mesaj)
  }
}

on *:dialog:sifreleme:sclick:5:{
  var %sifreli = $did(sifreleme,3)
  if (%sifreli) {
    if ($chan) {
      msg $chan %sifreli (Şifreli Mesaj)
    }
    else {
      echo -a Hata: Lütfen bir IRC kanalında çalıştırın.
    }
  }
}

on *:dialog:sifreleme:sclick:7:{
  var %sifreli = $did(sifreleme,6)
  if (%sifreli) {
    var %cozulmus = $decrypt(%sifreli)
    did -ra sifreleme 8 %cozulmus
  }
}