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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Kanalda Şifreli Konuşun (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1056317-kanalda-sifreli-konusun.html)

Gurkan 19 Mart 2025 10:00
Kanalda Şifreli Konuşun
 
Merhabalar, tamamen eğlence amaçlı ve zaman geçirmek için boş vaktimde uğraşılmıştır. :melek: Şifreli mesajları çözmek isteyen kullanıcılarda da kodun ekli olması lazım aksi taktirde bir anlamı yok :melek:

/sifre yazıp diyaloğu aktif ediyoruz.

Kod:
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 {
  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 (%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 (%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
}

; Dialog olayları
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 ($active ischan) {
      msg $active %sifreli (Şifreli Mesaj)
    }
    else {
      echo -a Hata: Lütfen bir kanal penceresinde ç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
  }
}

SNOOPY 19 Mart 2025 14:28
Cevap: Kanalda Şifreli Konuşun
 
Helal olsun @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çok güzel yapmışsın

IRCMasteR 19 Mart 2025 14:33
Cevap: Kanalda Şifreli Konuşun
 
Emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] güzel iş çıkarmışın

Convex 19 Mart 2025 14:42
Cevap: Kanalda Şifreli Konuşun
 
çok güzel eline sağlık ufak tefek düzenlemeler gerekebilir
$encrypt(%mesaj) çağrımında %mesaj boşsa hata oluşabilir.
$active kullanımı yanlış pencerede çalışabilir. Kullanıcının gerçekten bir IRC kanalında olduğundan emin olmak için $chan kullanılmalı.
$decrypt(%sifreli) çağrımında giriş boşsa hata olabilir.

Gurkan 19 Mart 2025 14:48
Cevap: Kanalda Şifreli Konuşun
 
Alıntı:
Convex Nickli Üyeden Alıntı (Mesaj 1042992405)
çok güzel eline sağlık ufak tefek düzenlemeler gerekebilir
$encrypt(%mesaj) çağrımında %mesaj boşsa hata oluşabilir.
$active kullanımı yanlış pencerede çalışabilir. Kullanıcının gerçekten bir IRC kanalında olduğundan emin olmak için $chan kullanılmalı.
$decrypt(%sifreli) çağrımında giriş boşsa hata olabilir.
Ç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.

Forbidden 19 Mart 2025 14:54
Cevap: Kanalda Şifreli Konuşun
 
Emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

XcLusive 19 Mart 2025 14:59
Cevap: Kanalda Şifreli Konuşun
 
Alıntı:
Gurkan Nickli Üyeden Alıntı (Mesaj 1042992411)
Ç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.

gökhan $encode $decode kullanabilirsin.
hazır dialog yapmışsın bence buna göre entegre et.

zurnamix 19 Mart 2025 15:01
Cevap: Kanalda Şifreli Konuşun
 
harika bir proje tebrik ederim kriptolu sosyal medya siteleri mail sitelerinin yanında çok modern bir fikir

Convex 19 Mart 2025 15:11
Cevap: Kanalda Şifreli Konuşun
 
Alıntı:
Gurkan Nickli Üyeden Alıntı (Mesaj 1042992411)
Ç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:
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
  }
}

XcLusive 20 Mart 2025 11:48
Cevap: Kanalda Şifreli Konuşun
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:
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
  }
}

Gurkan 20 Mart 2025 12:11
Cevap: Kanalda Şifreli Konuşun
 
Şimdi çok daha güzel oldu eline sağlık. Boşlukları nasıl çözdün ?

XcLusive 20 Mart 2025 12:56
Cevap: Kanalda Şifreli Konuşun
 
Alıntı:
Gurkan Nickli Üyeden Alıntı (Mesaj 1042992891)
Şimdi çok daha güzel oldu eline sağlık. Boşlukları nasıl çözdün ?

şifrele : $encode(mesaj)
çözüm: $decode(şifreli mesaj)
$encode ve $decode kullanarak ekstra birşey yapmadım.
yazmış olduğun koda müdahele etmeden seni uyarmak istedim ama gözden kaçırdın sanırım.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 10:12.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk