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