Kanalda Şifreli Konuşun - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Gurkan · 19 Mart 2025, 10:00

Merhabalar, tamamen eğlence amaçlı ve zaman geçirmek için boş vaktimde uğraşılmıştır.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Şifreli mesajları çözmek isteyen kullanıcılarda da kodun ekli olması lazım aksi taktirde bir anlamı yok
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

/sifre yazıp diyaloğu aktif ediyoruz.

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 {
  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

Helal olsun @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çok güzel yapmışsın

IRCMasteR · 19 Mart 2025, 14:33

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

ç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

Convex Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

ç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

Emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

XcLusive · 19 Mart 2025, 14:59

Gurkan Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ç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

harika bir proje tebrik ederim kriptolu sosyal medya siteleri mail sitelerinin yanında çok modern bir fikir

Convex · 19 Mart 2025, 15:11

Gurkan Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ç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
  }
}

XcLusive · 20 Mart 2025, 11:48

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Çocuklarınızla Sık Sık Konuşun.	Sarya	Okul Öncesi Eğitim ve Öğretim	0	21 Ekim 2021 16:48
Wolfsburg Manchester United maçı saat kaçta hangi kanalda şifreli mi	Mehmet	Avrupa ve Dünya'dan Futbol	0	08 Aralık 2015 21:54
1 Kuruşa Konuşun!	EbuLLi	Türk Telekom	0	23 Eylül 2010 17:14
Görerek konuşun!	Kralice	Cep Telefonlar	1	08 Ocak 2009 21:43
KoNuŞuN ŞEREFSİZLER...	CyberNeaT	Haber Arşivi	5	10 Ekim 2007 14:02

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.