Anektod
Forum Üyesi
- Katılım
- 11 Ocak 2021
- Mesajlar
- 199
- Tepkime puanı
- 0
Kod:
menu channel,query {
Yazi Decode Çevirici
.$iif(%style = normal,$style(1)) Normal:.set %style normal
.-
.$iif(%style = sym,$style(1)) Chr:.set %style sym
.-
.$iif(%style = decode,$style(1)) Ayri Decode:.set %style decode
.-
.$iif(%style = fullcode,$style(1)) Full Decode:.set %style fullcode
}
On *:input:*: {
if ($Left($1-,1) != /) && (!$ctrlenter) { msg $active $iif(%style = normal,$1-,$symx($1-)) | halt }
}
alias symx {
var %t = 1
if (%style = fullcode) { return $+($!decode,$chr(40),$encode($1-,m),$chr(44),m,$chr(41)) | halt }
while ($iif(%style = sym,$mid($1-,%t,1),$gettok($1-,%t,32))) || ($iif(%style = sym,$mid($1-,%t,1),$gettok($1-,%t,32)) != $null) {
var %out = $iif(%style = sym,$+(%out,$+($!chr,$chr(40),$asc($mid($1-,%t,1)),$chr(41),$chr(44))),%out $+($!decode,$chr(40),$encode($gettok($1-,%t,32),m),$chr(44),m,$chr(41)))
inc %t
}
return $iif(%style = sym,$+($,+,$chr(40),$left(%out,$calc($len(%out) - 1)),$chr(41)),%out)
}
Her Hangi Bir Yazıyi Decode Etmeye Yarar.
Kod:
Deneme = $+($chr(68),$chr(101),$chr(110),$chr(101),$chr(109),$chr(101))
Deneme Yazdıgımızda Size Decode etmıs Sekılde verecektir.
Daha Fazla Bilgi icin :
Ziyaretçiler için gizlenmiş link,görmek için
Giriş yap veya üye ol.