PIK Auth

By oRtakVeLja on Jul 21, 2012

Screenshots

Ukoliko koristite Pricaonicu Internet Krstarice sa ne registrovanim nadimkom i smorilo vas je da non stop otvarate browser i ukucavate auth code, ovo je mali snippet koji ce Vam otvoriti sliku u prozoru i nakon sto ukucate kod u istom prozoru, mozete poceti da uzivate u chatu bez otvaranja browsera i slicno ;)
Skripta se automatski pokrece pri konekciji na server, tako da nista ne morate kucati ;)

Kod je u razvoju, ovo je beta verzija napravljena za MadCracker script, kasnije cu je malo doraditi, ali cete biti obavesteni ovde ;)

Ukoliko zelite AUTH exploit (ili ti da ne morate nista da kucate prilikom konekcije), obratite mi se putem privatne poruke ili se obratite nicku munZe na Krstarici. Cena koda je 33e :)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; PIK Auth Get Captcha Code ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias pikAUTHid {
  sockopen pikAUTHid %pikauthhost 80
}
on *:SOCKOPEN:pikAUTHid:{
  sockwrite -nt $sockname GET %pikauthurl HTTP/1.1
  sockwrite -nt $sockname Host: %pikauthhost
  sockwrite -nt $sockname $crlf
}
on *:SNOTICE:*U protivnom, posetite*:{ 
  set %pikauthstrana $17
  if ($regex(%pikauthstrana,/((?:http://)?(?:http://|www\.)([^/\s]+)(/\S+)?)/i)) {
    set %pikauthhost $regml(2)
    set %pikauthurl $regml(3)
    pikAUTHid
  }
}
on *:SNOTICE:*am je dozvoljen*:{
  window -c @PIKauth
  unset %pikauthstrana
  unset %pikauthhost
  unset %pikauthurl
  unset %rezultat
  unset %authslika
  unset %authcode
  if ($findfile($mircdir,slika.gif,0) == 1) { remove slika.gif }
}
on *:SOCKREAD:pikAUTHid:{
  var %read
  sockread -f %read
  if ($sockerr) {
    write SockErr.txt $sockname : $sockerr
    write SockErr.txt Line : %read
    write SockErr.txt $crlf
    echo -a Socket Error - Check SockErr.txt
    halt
  }
  if ($regex(%read,<img src="(.+)" border=.+)) { 
    set %rezultat $sock(pikAUTHid).mark $regml(1) 
    set %authslika http:// $+ %pikauthhost $+ /auth/ $+ %rezultat
    if ($findfile($mircdir,slika.gif,0) == 1) { remove slika.gif }
    if ($findfile($mircdir,piklogo.gif,0) == 0) { GetPIKlogo }
    GetPica
  }
}

;;;;;;;;;;;;;;;
; get captcha ;
;;;;;;;;;;;;;;;

Alias GetPica {
  SockOpen GetPica %pikauthhost 80
}
On 1:SockOpen:GetPica:{
  sockwrite -nt $sockname GET %authslika HTTP/1.1
  sockwrite $sockname Host: %pikauthhost $+ $crlf $+ $crlf
}
On 1:SockRead:GetPica:{
  if (!$sock($sockname).mark) {
    var %SockReader
    sockread %SockReader
    if (%SockReader == $null) { sockmark $sockname 1 }
  }
  else {
    sockread &picture
    bwrite $qt($mIRCdir $+ slika.gif) -1 -1 &picture
    showpica
  }
}

;;;;;;;;;;;;
; get logo ;
;;;;;;;;;;;;

Alias GetPIKlogo {
  SockOpen GetPIKlogo www.majstorov.info 80
}
On 1:SockOpen:GetPIKlogo:{
  sockwrite -nt $sockname GET /piklogo.gif HTTP/1.1
  sockwrite $sockname Host: www.majstorov.info $+ $crlf $+ $crlf
}
On 1:SockRead:GetPIKlogo:{
  if (!$sock($sockname).mark) {
    var %SockReader
    sockread %SockReader
    if (%SockReader == $null) { sockmark $sockname 1 }
  }
  else {
    sockread &picture
    bwrite $qt($mIRCdir $+ piklogo.gif) -1 -1 &picture
  }
}

;;;;;;;;;;;;;;;
; auth window ;
;;;;;;;;;;;;;;;

Alias ShowPica {
  window -dpCe0k0 +l @PIKauth -1 -1 250 180
  drawpic @PIKauth 40 1 $qt($mIRCdir $+ piklogo.gif)
  drawtext -po @PIKauth 4 10 35 Unesite kod sa slike
  drawtext -po @PIKauth 4 70 92 i stisnite ENTER
  drawpic @PIKauth 50 50 $qt($mIRCdir $+ slika.gif)
}

;;;;;;;;;;;;;;;;;;;;;;;;;;
; post auth captcha code ;
;;;;;;;;;;;;;;;;;;;;;;;;;;

on 1:INPUT:@PIKauth:{
  set %authcode $1-
  sockopen pikauthpost %pikauthhost 80
}
on *:sockopen:pikauthpost:{
  var -s %data code= $+ %authcode
  sockwrite -n $sockname POST %pikauthurl HTTP/1.1
  sockwrite -n $sockname Host: %pikauthhost
  sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded
  sockwrite -n $sockname Content-Length: $len(%data)
  sockwrite -n $sockname $crlf $+ %data
}
on *:sockread:pikauthpost:{
  var %x
  sockread %x
  if (*autorizacionog* iswm %x) {
    echo -a Greska!
    echo -a Nema autorizacionog koda. Proverite da li ste ispravno kopirali URL. Možda ste već uspešno prošli autorizaciju?
    window -c @PIKauth
    unset %pikauthstrana
    unset %pikauthhost
    unset %pikauthurl
    unset %rezultat
    unset %authslika
    unset %authcode
    if ($findfile($mircdir,slika.gif,0) == 1) { remove slika.gif }
  }
  if (*neispravan* iswm %x) { drawtext -po @PIKauth 4 5 110 Uneli ste neispravan kod, pokušajte ponovo. } 
}

Comments

Sign in to comment.
oRtakVeLja   -  Jul 22, 2012

Sredio sam ga sad kako treba, kasnije ti mozda odradim i neki template ako hoces? :) Inace ova verzija sad moze da ide u skriptu ;) Radi besprekorno ;)

 Respond  
[85]   -  Jul 21, 2012

Braooo matorii :))

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.