Kod: Kodu kopyalamak için üzerine çift tıklayın!
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
}
}
on *:dialog:sifreleme:init:0:{}
on *:dialog:sifreleme:sclick:2:{
var %mesaj = $did(sifreleme,1)
if (%mesaj) {
did -ra sifreleme 3 $encode(%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 = $decode(%sifreli)
did -ra sifreleme 8 %cozulmus
}
}