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