alias sms {
  if $1 isnum && $len($2-) < 160 {
    sockopen $+(sms,$r(1,9999)) www.24sms.net 80
    set %sms $regsubex($2-,/(\W)/g,% $+ $base($asc(\t),10,16,2))
    set %smsN $1
    set %smsL $len(%sms)
    set %smsG $+(al=1064&SendFrom=MircScripting&SendTo=,%smsN,&Msg=,%sms,&remLen=,$calc(160 - %smsL))
    set %smsCL $len(%smsG)

  }
  else { 
    echo ** kullanım: /sms +905325323232 mesaj (160 kar.)
  }
}

on *:sockopen:sms*: {
  var %s sockwrite -n $sockname 
  %s POST / HTTP/1.1
  %s Host: www.24sms.net
  %s User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:21.0) Gecko/20100101 Firefox/21.0
  %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %s Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  ;%s Accept-Encoding: gzip, deflate
  %s Referer: http://www.24sms.net/
  %s Cookie: pcid=b6030c294b46a5c7c12d4c7ae0b45a11630e08fb; __atuvc=19%7C25
  %s Connection: keep-alive
  %s Content-Type: application/x-www-form-urlencoded
  %s Content-Length: %smsCL
  %s $crlf
  %s %smsG
  unset %sms*

}
on *:sockread:sms*:{
  var %d
  sockread -f %d
  if %d {
    echo -a : %d
  }
}