| Vatan | 09 Şubat 2006 21:09 |
Şifreleme Addon v2
Addon'ı dosya olarak indirmek için; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] (açıklaması: Şifreleme Sistemi v2) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;***************************
; Şifreleme Sistemi v2 (Add-On)
; Written by Cappystarjoe
;
; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;***************************
; Hiç kimsenin görmesini istemediğiniz
; text tipi dosyalarınızı şifreleyebileceğiniz
; çok güzel bi Add-On.
;
; Özellikler ve Uyarılar:
; * Şifre 0 ile 999 arasında bir sayı olmalıdır.
; * Şifre 0 veya 255 olmamalı. (Çünkü 255 in modunda
; Şifreleme yaptığından tam anlamıyla bir şifreleme işlemi yapılmış olmaz!)
; * Şifrelenecek Text boşluklu olabilir. (Bu yönüyle $encode ve $decode dan
; daha iyidir.Ancak boşluk sayısı 1 i geçmemelidir.)
; * Şifrelenecek dosyanın boyutu, kullanılan pc'nin hızı veya o anki yoğunluğu
; ve belirlemiş olduğunuz şifre Şifreleme işleminin daha uzun veya daha kısa
; sürmesine etki edebilir.
; * "/Şifreleme" komutuyla çalıştırabilirsiniz.
; * Çalışmaya başladığı an mIRC.exe ve Dialog menu simge durumuna alınır.
; İşlem bitince her ikiside aktif ekrana gelir.
;************************************************* **************** Kod:
alias Şifreleme if (!$dialog(Şifreleme)) dialog -md Şifreleme Şifreleme
alias cSj.kodla {
var %cSj.yaz = $+($remove($2,$+(.,$gettok($2,2,46))),.sfr) | write $(%cSj.yaz) $+($decode(1nplbJVLb2RsYW1hlVNpc3RlbWmVdjIvYnktY1NqXEtvZGxhbmFulURvc3lhlVRpcGk=,m),:, $gettok($2,2,46)) | var %z€ki = 0
while ($lines($2) > %z€ki) {
inc %z€ki | var %zéki = $read($2,nt,%z€ki)
if (%zéki != $null) {
var %merwe = 0
while ($len(%zéki) > %merwe) {
inc %merwe | var %merve = $calc($asc($mid(%zéki,%merwe,1))+$1)
if (%merve < 0) { while (%merve < 0) { inc %merve 255 } }
if (%merve > 255) { while (%merve > 255) { dec %merve 255 } }
if ($yasak(%merve) == $false) { var %mz = $(%mz) $+ $($+(|,%merve,|)) }
else { var %mz = $(%mz) $+ $chr(%merve) }
}
write $(%cSj.yaz) $(%mz)
var %mz = $null
}
else { write $(%cSj.yaz) $chr(160) }
}
}
alias cSj.çöz {
var %z€qi = 1
while ($lines($2) > %z€qi) {
inc %z€qi | var %zéki = $read($2,n,%z€qi)
if $(%zéki) != $null { var %mérve = $merwem(255,$1) , %merve = mz , %merwe = 0
while ($len(%zéki) > %merwe) {
inc %merwe | var %mMm = $merwem(255,$calc($asc($mid(%zéki,%merwe,1))-$1))
if %mMm == 32 { var %mz = $+($(%mz),$chr(160)) | continue }
if ($asc($mid(%zéki,%merwe,1)) == 124) && (%merve != ILoveYou) {
var %merve = ILoveYou
:gel
inc %merwe
if ($asc($mid(%zéki,%merwe,1)) == 124) && (%merve == ILoveYou) {
var %merve = mz
var %yeni = $iif($merwem(255,$calc(%aradaki - %mérve)) == 32,$+($(%mz),$chr(160)),$+($(%mz),$chr($merwem(255,$calc(%aradaki - %mérve)))))
var %mz = $(%yeni) , %aradaki = $null
continue
}
var %aradaki = $+($(%aradaki),$mid(%zéki,%merwe,1)) | goto gel
}
var %mz = $+($(%mz),$chr(%mMm))
}
write $+($remove($2,$+(.,$gettok($2,2,46))),$iif($gettok($read($2,n,1),2,58) != $null,$+(.,$gettok($read($2,n,1),2,58)),.txt)) %mz | var %mz = $null
}
else { write $+($remove($2,$+(.,$gettok($2,2,46))),$iif($gettok($read($2,n,1),2,58) != $null,$+(.,$gettok($read($2,n,1),2,58)),.txt)) $chr(160) }
}
}
alias -l merwem { if ($2 < 0) { var %merwem = $2 | while (%merwem < 0) { inc %merwem $1 } | return %merwem } | elseif ($2 > $1) { var %merwem = $2 | while (%merwem > $1) { dec %merwem $1 } | return %merwem } | else { return $2 } }
alias -l yasak { if ($1 < 33) { return $false } | elseif $regex($1,(124|127|129|141|142|143|144|157|158|160)) { return $false } | else { return $true } }
;-
dialog Şifreleme {
title "Şifreleme Sistemi v2 by cSj"
size -1 -1 147 117
option dbu notheme
edit "", 1, 5 15 136 10
text "Şifrelenecek Dosya:", 2, 6 7 52 8
button "Bu Dosyayı Şifrele !!!", 3, 77 30 64 16, flat
text "Şifreleme Şifresi:", 4, 6 28 42 8
edit "", 5, 5 36 20 10, limit 3
button "Seç...", 6, 104 6 37 8, flat
box "", 7, 2 0 143 50
box "", 8, 2 51 143 50
edit "", 9, 5 66 136 10
edit "", 10, 5 87 20 10, limit 3
button "Bu Dosyayı Çöz !!!", 11, 77 81 64 16, flat
button "Seç...", 12, 104 57 37 8, flat
text "Çözülecek Dosya:", 13, 6 58 52 8
text "Çözümleme Şifresi:", 14, 6 79 50 8
button "Kapat!", 15, 111 103 30 12, default flat ok
link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
16, 3 105 61 8
button "Yenile!", 17, 77 103 30 12, flat
}
on *:dialog:Şifreleme:*:*:{
if $devent == close { unset %Zşifre.* }
if $devent == edit {
if $did == 5 { if ($did(5) !isnum && $len($did(5)) > 3) { %Zşifre.şifre = $null } | else { %Zşifre.şifre = $did(5) } }
if $did == 10 { if ($did(10) !isnum && $len($did(10)) > 3) { %Zşifre.şifre = $null } | else { %Zşifre.şifre = $did(10) } }
}
if $devent == sclick {
if $did == 3 {
if (%Zşifre.şifre == $null) || (%Zşifre.dosya == $null) { dialog -t Şifreleme !!! Boşlukları Tamamlayın !!! | return }
if ($did(5) !isnum || $did(5) == $null) { dialog -t Şifreleme !!! Şifre Hatalı yada Girilmedi !!! | return }
did -b Şifreleme 1,2,3,4,5,6
dialog -it Şifreleme Lütfen biraz bekleyiniz!..
showmirc -n
csj.kodla %Zşifre.şifre %Zşifre.dosya
dialog -et Şifreleme Dosyanız Şifrelendi! --> Şifre: %Zşifre.şifre
showmirc -x
run $+($remove(%Zşifre.dosya,$+(.,$gettok(%Zşifre.dosya,2,46))),.sfr)
}
if $did == 6 {
did -b Şifreleme 9,10,11,12,13,14
:geri
%Zşifre.dosya = $shortfn($sfile($mircdir,Şifrelenecek Dosyayı Seçin!.. "*.sfr" olmayacak şekilde!,Seç!))
if (*.sfr iswm %Zşifre.dosya) { goto geri }
did -ra Şifreleme 1 $(%Zşifre.dosya)
did -f Şifreleme 5
}
if $did == 11 {
if (%Zşifre.şifre == $null) || (%Zşifre.dosya == $null) { dialog -t Şifreleme !!! Boşlukları Tamamlayın !!! | return }
if ($did(10) !isnum || $did(10) == $null) { dialog -t Şifreleme !!! Şifre Hatalı yada Girilmedi !!! | return }
did -b Şifreleme 9,10,11,12,13,14
showmirc -n
dialog -it Şifreleme Lütfen biraz bekleyiniz!..
csj.çöz %Zşifre.şifre %Zşifre.dosya
dialog -et Şifreleme Dosyanız Çözüldü! --> Şifre: %Zşifre.şifre
showmirc -x
run $+($remove(%Zşifre.dosya,$+(.,$gettok(%Zşifre.dosya,2,46))),$iif($gettok($read(%Zşifre.dosya,n,1),2,58) != $null,$+(.,$gettok($read(%Zşifre.dosya,n,1),2,58)),.txt))
}
if $did == 12 {
did -b Şifreleme 1,2,3,4,5,6
:geri
%Zşifre.dosya = $shortfn($sfile($mircdirzk0d\*.sfr,Çözülecek Dosyayı Seçin!.. Sadece "*.sfr" dosyaları!,Seç!))
if ($+(.,$gettok(%Zşifre.dosya,-1,46)) != .sfr) { goto geri }
did -ra Şifreleme 9 $(%Zşifre.dosya)
did -f Şifreleme 10
}
if $did == 16 { .run
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if $did == 17 { .timer -m 1 1 Şifreleme | dialog -x $dname }
}
}
|
