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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - mIRC'i Lisanslamak... (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/23383-mirci-lisanslamak.html)

Yanıt: mIRC'i Lisanslamak...

Yanliş Yapmısınız Yapmısındır bende çalişti

Yanıt: mIRC'i Lisanslamak...

Ellerinize Sağlık Teşekkürler

Yanıt: mIRC'i Lisanslamak...

Daha önce verdigim lisans kaydının gelişmiş hali..
Kullanım /kayıt Lisan sahibi

Kod:

alias kayıt {

  if (!$1) {

    echo 4 -as : "Lisanslanacak ismi girmediniz" 

    echo 4 -as : "Kullanım: /Kayıt lisans edilecek isim" 

  }

  if $1 {

    var %kg.tbl = 11:6:17:12:12:14:5:12:16:10:11:6:14:14:4:11:9:12:1 1:10:8:10:10:16:8:4:6:10:12:16:8:10:4:16 

    var %kg.ctr = 4 

    var %kg.tot = $len($1-)

    while (%kg.ctr <= %kg.tot) {

      var %kg.1 = $calc(%kg.1 + ($asc($mid($1-,%kg.ctr,1)) * $gettok(%kg.tbl,$calc(%kg.ctr - 3),58))) 

      var %kg.2 = $calc(%kg.2 + (($asc($mid($1-,%kg.ctr,1)) * $asc($mid($1-,$calc(%kg.ctr - 1),1))) * $gettok(%kg.tbl,$calc(%kg.ctr -3),58))) 

      inc %kg.ctr 

    } 

    var %mk.reg = $+(%kg.1,-,%kg.2)

    var %d.r = $+($r(1,500),.reg)

    write %d.r REGEDIT4

    write %d.r [HKEY_CURRENT_USERSoftwaremIRCUserName]

    write %d.r $+(""=",$1-,")

    write %d.r [HKEY_CURRENT_USERSoftwaremIRCLicense]

    write %d.r $+(""=",%mk.reg,")

    .run -n regedit /s %d.r

    .remove %d.r

    echo 4 :lisans sahibi:12  $& $1-

    echo 4 :lisans anahtarı:12 $& %mk.reg

    echo 4 kayıt işlemi tamamlandı..

  }

}

Cevap: Yanıt: mIRC'i Lisanslamak...

Alıntı:

©º©º®î©º Nickli Üyeden Alıntı

Daha önce verdigim lisans kaydının gelişmiş hali..
Kullanım /kayıt Lisan sahibi

Kod:

alias kayıt {

  if (!$1) {

    echo 4 -as : "Lisanslanacak ismi girmediniz" 

    echo 4 -as : "Kullanım: /Lisans lisans edilecek isim" 

  }

  if $1 {

    var %kg.tbl = 11:6:17:12:12:14:5:12:16:10:11:6:14:14:4:11:9:12:1 1:10:8:10:10:16:8:4:6:10:12:16:8:10:4:16 

    var %kg.ctr = 4 

    var %kg.tot = $len($1-)

    while (%kg.ctr <= %kg.tot) {

      var %kg.1 = $calc(%kg.1 + ($asc($mid($1-,%kg.ctr,1)) * $gettok(%kg.tbl,$calc(%kg.ctr - 3),58))) 

      var %kg.2 = $calc(%kg.2 + (($asc($mid($1-,%kg.ctr,1)) * $asc($mid($1-,$calc(%kg.ctr - 1),1))) * $gettok(%kg.tbl,$calc(%kg.ctr -3),58))) 

      inc %kg.ctr 

    } 

    var %mk.reg = $+(%kg.1,-,%kg.2)

    var %d.r = $+($r(1,500),.reg)

    write %d.r REGEDIT4

    write %d.r [HKEY_CURRENT_USERSoftwaremIRCUserName]

    write %d.r $+(""=",$1-,")

    write %d.r [HKEY_CURRENT_USERSoftwaremIRCLicense]

    write %d.r $+(""=",%mk.reg,")

    .run -n regedit /s %d.r

    .remove %d.r

    echo 4 :lisans sahibi:12  $& $1-

    echo 4 :lisans anahtarı:12 $& %mk.reg

    echo 4 kayıt işlemi tamamlandı..

  }

}

arkadaşım kusura bakma ama bu kodları nereye yapıştıracam lütfen yardımcı olurmusunuz