IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - $rawurlencode(&binary) && $rawurldecode(&binary)

Bu mIRC code post verileriniz belirttiğiniz binary %FD gibi hexlenmıs kodları cozer ve belırttıgımız binary aktarır ben bunu mIRC WEB SERVER için tasarlamıştım belki işinize yarar ;oki

PHP- Kodu:

   alias rawurldecode {
  var %r = $md5($r(1,9999999999999)) , %i  [ $+ [ %r ] ] 1 , %p [ $+ [ %r ] ] , %t [ $+ [ %r ] ]
  bset &u [ $+ [ %r ] ] 1 37
  bcopy -c $1 $b($1) &u [ $+ [ %r ] ] 1 -1
  breplace $1 43 32
  bunset &u [ $+ [ %r ] ]
  while $bfind($1,%i [ $+ [ %r ] ],37) {
    %i [ $+ [ %r ] ] = $ifmatch + 1
    %p [ $+ [ %r ] ] = $base($bvar($1,%i [ $+ [ %r ] ],2).text,16,10)
    $breplacer($1,$bvar($1,$calc(%i [ $+ [ %r ] ] - 1),3).text,37,%p [ $+ [ %r ] ])
  }
  bcopy -c &u [ $+ [ %r ] ] 1 $1 1 -1
  bunset $1
  bcopy -c $1 1 &u [ $+ [ %r ] ] 1 $calc($bvar(&u [ $+ [ %r ] ],0) - 1)
  bunset &u [ $+ [ %r ] ]
  return $1
}
alias rawurlencode {
  var %r = $md5($r(1,99999999999999)) , %i [ $+ [ %r ] ] 1 , %c , %t [ $+ [ %r ] ] , %o
  breplace $1 32 43
  while %i [ $+ [ %r ] ] <= $bvar($1,0) {
    %t [ $+ [ %r ] ] = $bvar($1,%i [ $+ [ %r ] ],900).text
    while $regex(%t [ $+ [ %r ] ], /([^a-zA-Z0-9_\-\.\+])/) {
      %c = $regsub(%t [ $+ [ %r ] ],/([^a-zA-Z0-9_\-\.\+])/, $+(,$base($asc($regml(1)),10,16,2)),%o)
      %t [ $+ [ %r ] ] = %o
    }
    bset -t &u [ $+ [ %r ] ] 1 $replace(%t [ $+ [ %r ] ],,%)
    bcopy &uen [ $+ [ %r ] ] $b(&uen [ $+ [ %r ] ]) &u [ $+ [ %r ] ] 1 -1
    bunset &u [ $+ [ %r ] ]
    inc %i [ $+ [ %r ] ] 900
  }
  bunset $1
  bcopy -c $1 1 &uen [ $+ [ %r ] ] 1 -1
}
alias b { return $calc($bvar($1,0) + 1) }
alias breplacer {
  var %r = $md5($r(1,99999999999999)) , %tmpz1 [ $+ [ %r ] ]  $bfind($1,1,$2) , %tmpz2  [ $+ [ %r ] ]
  if ((%tmpz1  [ $+ [ %r ] ] == 0) || !$4) { return }
  bset  &binvarxpt555 [ $+ [ %r ] ] 1 $4
  %tmpz2  [ $+ [ %r ] ] = $bfind($1,%tmpz1 [ $+ [ %r ] ],$3) + 3
  bcopy -c &binvarxpt342 [ $+ [ %r ] ] 1 $1 1 $calc(%tmpz1 [ $+ [ %r ] ] - 1)
  bcopy -c &binvarxpt342 [ $+ [ %r ] ] %tmpz1 [ $+ [ %r ] ] &binvarxpt555 [ $+ [ %r ] ] 1 -1
  bcopy -c &binvarxpt342 [ $+ [ %r ] ] $calc(%tmpz1 [ $+ [ %r ] ] + $bvar(&binvarxpt555 [ $+ [ %r ] ],0)) $1 %tmpz2 [ $+ [ %r ] ] -1
  bunset $1
  bcopy -c $1 1 &binvarxpt342 [ $+ [ %r ] ] 1 -1
  bunset &binvarxpt342 [ $+ [ %r ] ]
  bunset &binvarxpt555 [ $+ [ %r ] ]
}