🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
Çok kritik bir hata daha var. Çözülen mesajdaki boşlukları bir türlü yapamadım. " Selam naber" şifreli mesajı çözdüğünde "selamnaber" olarak çözüyor. Uzman coder arkadaşların bu konuda Önerisi varsa süper olur.
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
}
}
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
}
}