IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Acil Script registerleme kodu lazım Licence için

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

- - Acil Script registerleme kodu lazım Licence için (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/341633-acil-script-registerleme-kodu-lazim-licence-icin.html)

Acil Script registerleme kodu lazım Licence için

Cevap: Acil Script registerleme kodu lazım Licence için

Kullanmis oldugunuz script turu ve version'ununu yazarsaniz belki yardimci olabilirim

Cevap: Acil Script registerleme kodu lazım Licence için

Kod:

alias kayit {

  if (!$1) {

    echo 4 -as : "Lisanslanacak ismi girmediniz" 

    echo 4 -as : "Kullanm: /kayit 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 kayt ilemi tamamland..

  }

}

Kullanm: /kayit lisans edilecek isim

Cevap: Acil Script registerleme kodu lazım Licence için

Kod:

alias kayit {

  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

  }

  if $file(register.reg) { .remove register.reg }

  write register.reg REGEDIT4

  write register.reg [HKEY_CURRENT_USER\SOFTWARE\mIRC]

  write register.reg [HKEY_CURRENT_USER\SOFTWARE\mIRC\Channels]

  write register.reg @=""

  write register.reg [HKEY_CURRENT_USER\SOFTWARE\mIRC\LockOptions]

  write register.reg @="0,0"

  write register.reg [HKEY_CURRENT_USER\SOFTWARE\mIRC\UserName]

  write register.reg @=" $+ $1- $+ "

  write register.reg [HKEY_CURRENT_USER\SOFTWARE\mIRC\License]

  write register.reg @=" $+ $+(%kg.1,-,%kg.2) $+ "

  run regedit -s register.reg

}

/registration yaz Oraya Nickini ve bi şifre salla gir. Şifrelenmiştir dicektir. Kolay gelsin.

Örnek : /registration GodOfwaR 12345
gibi