$db="database.inf";
## Arquivo de registros
## Recomenda-se usar path
$arq="inflog.inf";
## Arquivo de log da administração, ele será criado após o primeiro acesso administrativo
## Recomenda-se usar path
$sadm="senha";
## Senha Administrativas
$fdo="http://baixa-torrents.blogspot.pt/";
## URL completa para o download.cgi
################### Formulário - Não Mexa depois daqui
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
if (length($buffer) < 5) {
$buffer = $ENV{QUERY_STRING};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
$form{$name} = $value;
$in{$name} = $value;
}
1;
programas
Seguidores
Teste 1
_
Públicos SendSMS Função (ByVal msg As String, ByVal SendTo As String)
UseMsg Dim As String
I As Integer Dim
C Dim As String
'Converter caracteres no texto da mensagem
useMsg = ""
Para i = 1 a Len (msg)
c = Mid (msg, i, 1)
Selecione Caixa c
Caso vbCrLf: "0A"% c =
Caso vbLf: "0D%" c =
Case "": c = "20%"
Caso "+": "% 2B" c =
Case "" "": c = "22%"
Caso "#": c = "23%"
"%" Caso: c = "25%"
Caso "&": c = "26%"
Case ",": c = "% 2C"
Caso "." : C = "% 2E"
Caso "/": c = "% 2F"
Caso ":": c = "% 3A"
Caso ";": c "3B%" =
Caso "<": c = "% 3C"
Caso "=": "3D"% c =
Caso ">": c = "3E%"
Caso "?" : C = "% 3F"
Caso "¡": c = "% A1"
"R $" caso: c = "% A3"
Caso "#": "A4"% c =
"¥" caso: "A5%" c =
Caso "§": c = "% A7"
Caso "A": c = "% C4"
Caso "A": c = "% C5"
Caso "A": c = "% E0"
Caso "A": c = "% E4"
Caso "A": c = "% E5"
Caso "Æ": "C6%" c =
Caso "C": c = "% C7"
Caso "E": c = "% C9"
Caso "E": c = "% E8"
Caso "E": "E9%" c =
Caso "i": c = "% CE"
Caso "n": c = "% D1"
Case "ñ": "F1"% c =
"O" caso: c = "% F2"
"Ö" caso: c = "% F6"
Caso "O": c = "% D8"
Caso "O": c = "% D6"
Caso "Ü": "DC"% c =
Caso de "u": c = "% F9"
Case "ü": c = "% FC"
Caso "SS": "DF"% c =
End Select
useMsg useMsg = + c
Próximo
Consulta Dim As String
QLen Dim As Integer
"Construir a seqüência de consulta HTTP
Query = "UN = username.12345" _
& "& Senha = 12345678" _
& "& N =" & _ SendTo
& "& M =" & useMsg
qLen = Len (consulta)
"Solicitar e objetos de resposta
ObjReq Dim System.Net.HttpWebRequest
ObjRes Dim System.Net.HttpWebResponse
Sr Dim System.IO.StreamReader
Sw Dim Sistema.IO.StreamWriter
Gateways Dim (1)
Dim gw
Gateways (0) = "www.csoft.co.uk / SendSMS"
Gateways (1) = "www2.csoft.co.uk/sendsms"
Para cada GW em Gateways
objReq = System.Net.WebRequest.Create ("http://" & CStr (gw))
objReq.Method = "POST"
objReq.ContentType = "application / x-www-form-urlencoded; charset =" "UTF-8" ""
objReq.ContentLength = qLen
sw = Sistema.IO.StreamWriter Novo (objReq.GetRequestStream ())
sw.Write (consulta)
sw.Close ()
"Obter resposta do servidor
objRes = objReq.GetResponse
sr = New System.IO.StreamReader (objRes.GetResponseStream ())
Se CStr (Esquerda (sr.ReadToEnd, 2)) = "01" Then 'sucesso circuito de saída,
sr.Close ()
objRes.Close ()
Para sair
End If
Próximo