|
글 수 557
alias urlencode { return $regsubex($1-,/\G(.)/g,$iif(\t !isalnum && !$prop,$chr(37) $+ $base($asc(\t),10,16),\t)) } alias urldecode { return $replacex($regsubex($1,/%(\w\w)/g,$chr($iif($base(\t,16,10) != 32,$v1,255))),$chr(255),$chr(32)) } alias uniutf8url { var %i $regsubex(uniutf, $iif($isutf($1), $1, $utfencode($1)), /U\+([0-9A-F]{1,6})/g, $bin_utf8($base(\t, 16, 2, 21))) return $regsubex(%i,/\G(.)/g,$iif(\t !isalnum && !$prop,$chr(37) $+ $base($asc(\t),10,16),\t)) } on *:input:*: { tokenize 32 $strip($1-) if ( $1 == !deb ) { unset %cpnick set %cpnick $uniutf8url($2)undefinedundefinedundefined set %ncrank $chr(40) $+ $chr(45) $+ $chr(41) sockclose cpr sockopen cpr cyphers.nexon.com 80 } } on 1:sockopen:cpr:{ sockwrite -nt $sockname GET http://cyphers.nexon.com/cyphers/article/ranking/total/season2/search/nickname/ $+ %cpnick $+ /1 HTTP/1.1 sockwrite -nt $sockname host: cyphers.nexon.com sockwrite -nt $sockname $crlf } on 1:sockread:cpr:{ sockread $dll(utf8.dll,convertlocal,%cpr.temp) echo -a %cpr.temp } | ||