Pricing plans  Services  API  Partners  About the service  Contacts 
8 (800) 700 7672
Free in Russia
 

Integration with the service (API)

The API allows you to send messages through your projects and services over the HTTP/HTTPS, SMTP, and SMPP protocols. Ready-made libraries in different programming languages connect to your project and help you send messages from anywhere with a single command.


HTTP/HTTPS SMTP SMPP SOAP OMS SMS Commands Libraries and code examples

HTTP and SMTP

To work with our service via HTTP/HTTPS or SMTP protocols, you just need to connect a file of the corresponding library, after which you can send SMS messages or check the status by calling a single command.

Для PHP

Download the library file: smsc_api.php

Library source code:
<?php
// SMSCENTRE.COM API (smscentre.com) версия 3.8 (03.07.2019)

define("SMSC_LOGIN", "login");            // логин клиента
define("SMSC_PASSWORD", "password");    // пароль
define("SMSC_POST", 0);                    // использовать метод POST
define("SMSC_HTTPS", 0);                // использовать HTTPS протокол
define("SMSC_CHARSET", "windows-1251");    // кодировка сообщения: utf-8, koi8-r или windows-1251 (по умолчанию)
define("SMSC_DEBUG", 0);                // флаг отладки
define("SMTP_FROM", "api@smscentre.com");     // e-mail адрес отправителя

// Функция отправки SMS
//
// обязательные параметры:
//
// $phones - список телефонов через запятую или точку с запятой
// $message - отправляемое сообщение
//
// необязательные параметры:
//
// $translit - переводить или нет в транслит (1,2 или 0)
// $time - необходимое время доставки в виде строки (DDMMYYhhmm, h1-h2, 0ts, +m)
// $id - идентификатор сообщения. Представляет собой 32-битное число в диапазоне от 1 до 2147483647.
// $format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
// $sender - имя отправителя (Sender ID).
// $query - строка дополнительных параметров, добавляемая в URL-запрос ("valid=01:00&maxsms=3&tz=2")
// $files - массив путей к файлам для отправки mms или e-mail сообщений
//
// возвращает массив (<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки
// либо массив (<id>, -<код ошибки>) в случае ошибки

function send_sms($phones, $message, $translit = 0, $time = 0, $id = 0, $format = 0, $sender = false, $query = "", $files = array())
{
    static
$formats = array(1 => "flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1");

   
$m = _smsc_send_cmd("send", "cost=3&phones=".urlencode($phones)."&mes=".urlencode($message).
                   
"&translit=$translit&id=$id".($format > 0 ? "&".$formats[$format] : "").
                    (
$sender === false ? "" : "&sender=".urlencode($sender)).
                    (
$time ? "&time=".urlencode($time) : "").($query ? "&$query" : ""), $files);

   
// (id, cnt, cost, balance) или (id, -error)

   
if (SMSC_DEBUG) {
        if (
$m[1] > 0)
            echo
"Сообщение отправлено успешно. ID: $m[0], всего SMS: $m[1], стоимость: $m[2], баланс: $m[3].\n";
        else
            echo
"Ошибка №", -$m[1], $m[0] ? ", ID: ".$m[0] : "", "\n";
    }

    return
$m;
}

// SMTP версия функции отправки SMS

function send_sms_mail($phones, $message, $translit = 0, $time = 0, $id = 0, $format = 0, $sender = "")
{
    return
mail("send@send.smscentre.com", "", SMSC_LOGIN.":".SMSC_PASSWORD.":$id:$time:$translit,$format,$sender:$phones:$message", "From: ".SMTP_FROM."\nContent-Type: text/plain; charset=".SMSC_CHARSET."\n");
}

// Функция получения стоимости SMS
//
// обязательные параметры:
//
// $phones - список телефонов через запятую или точку с запятой
// $message - отправляемое сообщение
//
// необязательные параметры:
//
// $translit - переводить или нет в транслит (1,2 или 0)
// $format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
// $sender - имя отправителя (Sender ID)
// $query - строка дополнительных параметров, добавляемая в URL-запрос ("list=79999999999:Ваш пароль: 123\n78888888888:Ваш пароль: 456")
//
// возвращает массив (<стоимость>, <количество sms>) либо массив (0, -<код ошибки>) в случае ошибки

function get_sms_cost($phones, $message, $translit = 0, $format = 0, $sender = false, $query = "")
{
    static
$formats = array(1 => "flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1");

   
$m = _smsc_send_cmd("send", "cost=1&phones=".urlencode($phones)."&mes=".urlencode($message).
                    (
$sender === false ? "" : "&sender=".urlencode($sender)).
                   
"&translit=$translit".($format > 0 ? "&".$formats[$format] : "").($query ? "&$query" : ""));

   
// (cost, cnt) или (0, -error)

   
if (SMSC_DEBUG) {
        if (
$m[1] > 0)
            echo
"Стоимость рассылки: $m[0]. Всего SMS: $m[1]\n";
        else
            echo
"Ошибка №", -$m[1], "\n";
    }

    return
$m;
}

// Функция проверки статуса отправленного SMS или HLR-запроса
//
// $id - ID cообщения или список ID через запятую
// $phone - номер телефона или список номеров через запятую
// $all - вернуть все данные отправленного SMS, включая текст сообщения (0,1 или 2)
//
// возвращает массив (для множественного запроса двумерный массив):
//
// для одиночного SMS-сообщения:
// (<статус>, <время изменения>, <код ошибки доставки>)
//
// для HLR-запроса:
// (<статус>, <время изменения>, <код ошибки sms>, <код IMSI SIM-карты>, <номер сервис-центра>, <код страны регистрации>, <код оператора>,
// <название страны регистрации>, <название оператора>, <название роуминговой страны>, <название роумингового оператора>)
//
// при $all = 1 дополнительно возвращаются элементы в конце массива:
// (<время отправки>, <номер телефона>, <стоимость>, <sender id>, <название статуса>, <текст сообщения>)
//
// при $all = 2 дополнительно возвращаются элементы <страна>, <оператор> и <регион>
//
// при множественном запросе:
// если $all = 0, то для каждого сообщения или HLR-запроса дополнительно возвращается <ID сообщения> и <номер телефона>
//
// если $all = 1 или $all = 2, то в ответ добавляется <ID сообщения>
//
// либо массив (0, -<код ошибки>) в случае ошибки

function get_status($id, $phone, $all = 0)
{
   
$m = _smsc_send_cmd("status", "phone=".urlencode($phone)."&id=".urlencode($id)."&all=".(int)$all);

   
// (status, time, err, ...) или (0, -error)

   
if (!strpos($id, ",")) {
        if (
SMSC_DEBUG )
            if (
$m[1] != "" && $m[1] >= 0)
                echo
"Статус SMS = $m[0]", $m[1] ? ", время изменения статуса - ".date("d.m.Y H:i:s", $m[1]) : "", "\n";
            else
                echo
"Ошибка №", -$m[1], "\n";

        if (
$all && count($m) > 9 && (!isset($m[$idx = $all == 1 ? 14 : 17]) || $m[$idx] != "HLR")) // ',' в сообщении
           
$m = explode(",", implode(",", $m), $all == 1 ? 9 : 12);
    }
    else {
        if (
count($m) == 1 && strpos($m[0], "-") == 2)
            return
explode(",", $m[0]);

        foreach (
$m as $k => $v)
           
$m[$k] = explode(",", $v);
    }

    return
$m;
}

// Функция получения баланса
//
// без параметров
//
// возвращает баланс в виде строки или false в случае ошибки

function get_balance()
{
   
$m = _smsc_send_cmd("balance"); // (balance) или (0, -error)

   
if (SMSC_DEBUG) {
        if (!isset(
$m[1]))
            echo
"Сумма на счете: ", $m[0], "\n";
        else
            echo
"Ошибка №", -$m[1], "\n";
    }

    return isset(
$m[1]) ? false : $m[0];
}


// ВНУТРЕННИЕ ФУНКЦИИ

// Функция вызова запроса. Формирует URL и делает 5 попыток чтения через разные подключения к сервису

function _smsc_send_cmd($cmd, $arg = "", $files = array())
{
   
$url = $_url = (SMSC_HTTPS ? "https" : "http")."://smscentre.com/sys/$cmd.php?login=".urlencode(SMSC_LOGIN)."&psw=".urlencode(SMSC_PASSWORD)."&fmt=1&charset=".SMSC_CHARSET."&".$arg;

   
$i = 0;
    do {
        if (
$i++)
           
$url = str_replace('://smscentre.com/', '://www'.$i.'.smscentre.com/', $_url);

       
$ret = _smsc_read_url($url, $files, 3 + $i);
    }
    while (
$ret == "" && $i < 5);

    if (
$ret == "") {
        if (
SMSC_DEBUG)
            echo
"Ошибка чтения адреса: $url\n";

       
$ret = ","; // фиктивный ответ
   
}

   
$delim = ",";

    if (
$cmd == "status") {
       
parse_str($arg, $m);

        if (
strpos($m["id"], ","))
           
$delim = "\n";
    }

    return
explode($delim, $ret);
}

// Функция чтения URL. Для работы должно быть доступно:
// curl или fsockopen (только http) или включена опция allow_url_fopen для file_get_contents

function _smsc_read_url($url, $files, $tm = 5)
{
   
$ret = "";
   
$post = SMSC_POST || strlen($url) > 2000 || $files;

    if (
function_exists("curl_init"))
    {
        static
$c = 0; // keepalive

       
if (!$c) {
           
$c = curl_init();
           
curl_setopt_array($c, array(
                   
CURLOPT_RETURNTRANSFER => true,
                   
CURLOPT_CONNECTTIMEOUT => $tm,
                   
CURLOPT_TIMEOUT => 60,
                   
CURLOPT_SSL_VERIFYPEER => 0,
                   
CURLOPT_HTTPHEADER => array("Expect:")
                    ));
        }

       
curl_setopt($c, CURLOPT_POST, $post);

        if (
$post)
        {
            list(
$url, $post) = explode("?", $url, 2);

            if (
$files) {
               
parse_str($post, $m);

                foreach (
$m as $k => $v)
                   
$m[$k] = isset($v[0]) && $v[0] == "@" ? sprintf("\0%s", $v) : $v;

               
$post = $m;
                foreach (
$files as $i => $path)
                    if (
file_exists($path))
                       
$post["file".$i] = function_exists("curl_file_create") ? curl_file_create($path) : "@".$path;
            }

           
curl_setopt($c, CURLOPT_POSTFIELDS, $post);
        }

       
curl_setopt($c, CURLOPT_URL, $url);

       
$ret = curl_exec($c);
    }
    elseif (
$files) {
        if (
SMSC_DEBUG)
            echo
"Не установлен модуль curl для передачи файлов\n";
    }
    else {
        if (!
SMSC_HTTPS && function_exists("fsockopen"))
        {
           
$m = parse_url($url);

            if (!
$fp = fsockopen($m["host"], 80, $errno, $errstr, $tm))
               
$fp = fsockopen("212.24.33.196", 80, $errno, $errstr, $tm);

            if (
$fp) {
               
stream_set_timeout($fp, 60);

               
fwrite($fp, ($post ? "POST $m[path]" : "GET $m[path]?$m[query]")." HTTP/1.1\r\nHost: smscentre.com\r\nUser-Agent: PHP".($post ? "\r\nContent-Type: application/x-www-form-urlencoded\r\nContent-Length: ".strlen($m['query']) : "")."\r\nConnection: Close\r\n\r\n".($post ? $m['query'] : ""));

                while (!
feof($fp))
                   
$ret .= fgets($fp, 1024);
                list(,
$ret) = explode("\r\n\r\n", $ret, 2);

               
fclose($fp);
            }
        }
        else
           
$ret = file_get_contents($url);
    }

    return
$ret;
}

// Examples:
// include "smsc_api.php";
// list($sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "Ваш пароль: 123", 1);
// list($sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, 0, 0, 0, false, "maxsms=3");
// list($sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, 0, 0, 5, false);
// list($sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "", 0, 0, 0, 3, false);
// list($sms_id, $sms_cnt, $cost, $balance) = send_sms("dest@mysite.com", "Ваш пароль: 123", 0, 0, 0, 8, "source@mysite.com", "subj=Confirmation");
// list($cost, $sms_cnt) = get_sms_cost("79999999999", "Вы успешно зарегистрированы!");
// send_sms_mail("79999999999", "Ваш пароль: 123", 0, "0101121000");
// list($status, $time) = get_status($sms_id, "79999999999");
// $balance = get_balance();

?>

An example of using the library:
<?
include_once "smsc_api.php";
...
list(
$sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "Ваш пароль: 123", 1);
...
list(
$sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, 0, 0, 0, false, "maxsms=3");
...
list(
$sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, 0, 0, 5, false);
...
list(
$sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "", 0, 0, 0, 3, false);
...
list(
$cost, $sms_cnt) = get_sms_cost("79999999999", "Вы успешно зарегистрированы!");
...
list(
$status, $time) = get_status($sms_id, "79999999999");
...
$balance = get_balance();
...
// отправка SMS через e-mail
send_sms_mail("79999999999", "Ваш пароль: 123");
...
?>

Для Perl

Download the library file: smsc_api.pm

Library source code:
#!/usr/bin/perl
# SMSCENTRE.COM API (smscentre.com) версия 1.9 (03.07.2019)

package smsc_api;

use
strict;
use
warnings;

# Константы для настройки библиотеки
use constant SMSC_LOGIN => "login";        # логин клиента
use constant SMSC_PASSWORD => "password";    # пароль
use constant SMSC_POST => 0;                # использовать метод POST
use constant SMSC_HTTPS => 0;                # использовать HTTPS протокол
use constant SMSC_CHARSET => 'utf-8';        # $charset - кодировка сообщения (windows-1251 или koi8-r), по умолчанию используется utf-8
use constant SMSC_DEBUG => 0;                # флаг отладки

# Константы для отправки SMS по SMTP
use constant SMTP_FROM => 'api@smscentre.com';    # e-mail адрес отправителя
use constant SMTP_SERVER => 'send.smscentre.com';    # адрес smtp сервера

use LWP::UserAgent;
use
URI::Escape;
use
Net::SMTP;

use
vars qw(@EXPORT);
use
Exporter 'import';
@
EXPORT = qw(send_sms send_sms_mail get_sms_cost get_status get_balance);

# Функция отправки SMS
#
# обязательные параметры:
#
# $phones - список телефонов через запятую или точку с запятой
# $message - отправляемое сообщение
#
# необязательные параметры:
#
# $translit - переводить или нет в транслит (1,2 или 0)
# $time - необходимое время доставки в виде строки (DDMMYYhhmm, h1-h2, 0ts, +m)
# $id - идентификатор сообщения. Представляет собой 32-битное число в диапазоне от 1 до 2147483647.
# $format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
# $sender - имя отправителя (Sender ID).
# $query - строка дополнительных параметров, добавляемая в URL-запрос ("valid=01:00&maxsms=3")
#
# возвращает массив (<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки
# либо массив (<id>, -<код ошибки>) в случае ошибки

sub send_sms {
   
my ($phones, $message, $translit, $time, $id, $format, $sender, $query) = @_;

   
my @formats = ("flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1");

   
my @m = _smsc_send_cmd("send", "cost=3&phones=".uri_escape($phones)."&mes=".uri_escape($message).
                (
$translit ? "&translit=$translit" : "").($id ? "&id=$id" : "").($format ? "&".$formats[$format-1] : "").
                (
defined $sender ? "&sender=".uri_escape($sender) : "").
                (
$time ? "&time=".uri_escape($time) : "").($query ? "&$query" : ""));

   
# (id, cnt, cost, balance) или (id, -error)

   
if (SMSC_DEBUG) {
        if (
$m[1] > 0) {
            print
"Сообщение отправлено успешно. ID: $m[0], всего SMS: $m[1], стоимость: $m[2], баланс: $m[3]\n";
        }
        else {
            print
"Ошибка №", -$m[1], $m[0] ? ", ID: ".$m[0] : "", "\n";
        }
    }

    return @
m;
}

# SMTP версия функции отправки SMS

sub send_sms_mail {
   
my ($phones, $message, $translit, $time, $id, $format, $sender) = @_;

   
my $smtp = Net::SMTP->new(SMTP_SERVER);

   
$smtp->mail(SMTP_FROM);
   
$smtp->to('send@send.smscentre.com');

   
$smtp->data();
   
$smtp->datasend("To: send\@send.smscentre.com\n");
   
$smtp->datasend("Content-Type: text/plain; charset=".SMSC_CHARSET."\n");
   
$smtp->datasend("\n");
   
$smtp->datasend(SMSC_LOGIN.":".SMSC_PASSWORD.":".($id ? $id : "").
                   
":".($time ? $time : "").":".($translit ? $translit : "").
                   
",".($format ? $format : "").(defined $sender ? ",".$sender : "").
                   
":$phones:$message\n");
   
$smtp->dataend();
   
$smtp->quit;
}

# Функция получения стоимости SMS
#
# обязательные параметры:
#
# $phones - список телефонов через запятую или точку с запятой
# $message - отправляемое сообщение
#
# необязательные параметры:
#
# $translit - переводить или нет в транслит (1,2 или 0)
# $format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
# $sender - имя отправителя (Sender ID)
# $query - строка дополнительных параметров, добавляемая в URL-запрос ("list=79999999999:Ваш пароль: 123\n78888888888:Ваш пароль: 456")
#
# возвращает массив (<стоимость>, <количество sms>) либо массив (0, -<код ошибки>) в случае ошибки

sub get_sms_cost {
   
my ($phones, $message, $translit, $format, $sender, $query) = @_;

   
my @formats = ("flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1");

   
my @m = _smsc_send_cmd("send", "cost=1&phones=".uri_escape($phones)."&mes=".uri_escape($message).
                (
defined $sender ? "&sender=".uri_escape($sender) : "").
                (
$translit ? "&translit=$translit" : "").($format ? "&".$formats[$format-1] : "").($query ? "&$query" : ""));

   
# (cost, cnt) или (0, -error)

   
if (SMSC_DEBUG) {
        if (
$m[1] > 0) {
            print
"Стоимость рассылки: $m[0]. Всего SMS: $m[1]\n";
        }
        else {
            print
"Ошибка №", -$m[1], "\n";
        }
    }

    return @
m;
}

# Функция проверки статуса отправленного SMS или HLR-запроса
#
# $id - ID cообщения
# $phone - номер телефона
#
# возвращает массив:
# для отправленного SMS (<статус>, <время изменения>, <код ошибки sms>)
# для HLR-запроса (<статус>, <время изменения>, <код ошибки sms>, <код IMSI SIM-карты>, <номер сервис-центра>, <код страны регистрации>,
# <код оператора абонента>, <название страны регистрации>, <название оператора абонента>, <название роуминговой страны>,
# <название роумингового оператора>)
#
# При $all = 1 дополнительно возвращаются элементы в конце массива:
# (<время отправки>, <номер телефона>, <стоимость>, <sender id>, <название статуса>, <текст сообщения>)
#
# либо массив (0, -<код ошибки>) в случае ошибки

sub get_status {
   
my ($id, $phone, $all) = @_;
   
$all ||= 0;

   
my @m = _smsc_send_cmd("status", "phone=".uri_escape($phone)."&id=$id&all=$all");

   
# (status, time, err, ...) или (0, -error)

   
if (SMSC_DEBUG) {
        if (
exists $m[2]) {
            print
"Статус SMS = $m[0]", $m[1] ? ", время изменения статуса - ".localtime($m[1]) : "", "\n";
        }
        else {
            print
"Ошибка №", -$m[1], "\n";
        }
    }

    if (
$all && @m > 9 && (!exists $m[14] || $m[14] ne "HLR")) { # ',' в сообщении
       
@m = split(",", join(",", @m), 9);
    }

    return @
m;
}

# Функция получения баланса
#
# без параметров
#
# возвращает баланс в виде строки или undef в случае ошибки

sub get_balance {
   
my @m = _smsc_send_cmd("balance"); # (balance) или (0, -error)

   
if (SMSC_DEBUG) {
        if (!
exists $m[1]) {
            print
"Сумма на счете: ", $m[0], "\n";
        }
        else {
            print
"Ошибка №", -$m[1], "\n";
        }
    }

    return
exists $m[1] ? undef : $m[0];
}


# ВНУТРЕННИЕ ФУНКЦИИ

# Функция вызова запроса. Формирует URL и делает 3 попытки чтения

sub _smsc_send_cmd {
   
my ($cmd, $arg) = @_;

   
my $url_orig = (SMSC_HTTPS ? "https" : "http")."://smscentre.com/sys/$cmd.php";
   
my $url = $url_orig;
   
$arg = "login=".uri_escape(SMSC_LOGIN)."&psw=".uri_escape(SMSC_PASSWORD)."&fmt=1&charset=".SMSC_CHARSET.($arg ? "&".$arg : "");

   
my $ret;
   
my $i = 1;

    do {

        if (
$i > 1) {
           
$url = $url_orig;
           
$url =~ s/smsc/www$i.smsc/;
        }

       
$ret = _smsc_read_url($url, $arg);
    }
    while (
$ret eq "" && ++$i < 6);

    if (
$ret eq "") {
        print
"Ошибка чтения адреса: $url\n" if (SMSC_DEBUG);
       
$ret = ",0"; # фиктивный ответ
   
}

    return
split(/,/, $ret);
}

# Функция чтения URL

sub _smsc_read_url {
   
my ($url, $arg) = @_;

   
my $ret = "";
   
my $post = SMSC_POST || length($arg) > 2000;

   
my $ua = LWP::UserAgent->new;
   
$ua->timeout(60);

   
my $response = $post ? $ua->post($url, Content => $arg) : $ua->get($url."?".$arg);

   
$ret = $response->content if $response->is_success;

    return
$ret;
}

1;

# Examples:
# use smsc_api;
# my ($sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "Ваш пароль: 123", 1);
# my ($sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, 0, 0, 0, undef, "maxsms=3");
# my ($sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, 0, 0, 5);
# my ($sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "", 0, 0, 0, 3);
# my ($cost, $sms_cnt) = get_sms_cost("79999999999", "Вы успешно зарегистрированы!");
# send_sms_mail("79999999999", "Ваш пароль: 123");
# my ($status, $time) = get_status($sms_id, "79999999999");
# my $balance = get_balance();
An example of using the library: use smsc_api;
...
my ($sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "Ваш пароль: 123", 1);
...
my ($sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, 0, 0, 0, undef, "maxsms=3");
...
my ($sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, 0, 0, 5);
...
my ($sms_id, $sms_cnt, $cost, $balance) = send_sms("79999999999", "", 0, 0, 0, 3);
...
send_sms_mail("79999999999", "Ваш пароль: 123");
...
my ($status, $time) = get_status($sms_id, "79999999999");
...
my $balance = get_balance();
...
my ($cost, $sms_cnt) = get_sms_cost("79999999999", "Вы успешно зарегистрированы!");

Для Ruby

Download the library file: smsc_api.rb

Library source code:
#coding: utf-8
# SMSCENTRE.COM API (smscentre.com) версия 1.5 (03.07.2019)

require "net/http"
require "net/https"
require "net/smtp"
require "uri"
require "erb"

class SMSC
   
# Константы для настройки библиотеки
   
SMSC_LOGIN = "login"            # логин клиента
   
SMSC_PASSWORD = "password"        # пароль
   
SMSC_POST = false                # использовать метод POST
   
SMSC_HTTPS = false                # использовать HTTPS протокол
   
SMSC_CHARSET = "utf-8"            # кодировка сообщения: koi8-r или windows-1251 (по умолчанию utf-8)
   
SMSC_DEBUG = false                # флаг отладки
   
SMTP_FROM = "api@smscentre.com"        # e-mail адрес отправителя

    # Функция отправки SMS
    #
    # обязательные параметры:
    #
    # phones - список телефонов через запятую или точку с запятой
    # message - отправляемое сообщение
    #
    # необязательные параметры:
    #
    # translit - переводить или нет в транслит (1,2 или 0)
    # time - необходимое время доставки в виде строки (DDMMYYhhmm, h1-h2, 0ts, +m)
    # id - идентификатор сообщения. Представляет собой 32-битное число в диапазоне от 1 до 2147483647.
    # format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
    # sender - имя отправителя (Sender ID).
    # query - строка дополнительных параметров, добавляемая в URL-запрос ("valid=01:00&maxsms=3&tz=2")
    #
    # возвращает массив (<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки
    # либо массив (<id>, -<код ошибки>) в случае ошибки

   
def send_sms(phones, message, translit = 0, time = 0, id = 0, format = 0, sender = false, query = "")
       
formats = ["flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1"]

       
m = _smsc_send_cmd("send", "cost=3&phones=" + _urlencode(phones) + "&mes=" + _urlencode(message) +
                       
"&translit=#{translit}&id=#{id}" + (format > 0 ? "&#{formats[format-1]}" : "") +
                        (
sender == false ? "" : "&sender=" + _urlencode(sender)) +
                        (
time ? "&time=" + _urlencode(time) : "") + (query ? "&#{query}" : ""))

       
# (id, cnt, cost, balance) или (id, -error)

       
if SMSC_DEBUG
           
if m[1] > "0"
               
puts "Сообщение отправлено успешно. ID: #{m[0]}, всего SMS: #{m[1]}, стоимость: #{m[2]}, баланс: #{m[3]}\n"
           
else
               
puts "Ошибка №#{m[1][1]}" + (m[0] > "0" ? ", ID: #{m[0]}" : "") + "\n";
           
end
        end

       
return m
    end

   
# SMTP версия функции отправки SMS

   
def send_sms_mail(phones, message, translit = 0, time = 0, id = 0, format = 0, sender = "")
       
$VERBOSE = nil

        Net
::SMTP.start("send.smscentre.com") do |smtp|
           
smtp.send_message("Content-Type: text/plain; charset=#{SMSC_CHARSET}\n\n#{SMSC_LOGIN}:#{SMSC_PASSWORD}:#{id}:#{time}:#{translit},#{format},#{sender}:#{phones}:#{message}", SMTP_FROM, "send@send.smscentre.com")
       
end

        $VERBOSE
= true
    end

   
# Функция получения стоимости SMS
    #
    # обязательные параметры:
    #
    # phones - список телефонов через запятую или точку с запятой
    # message - отправляемое сообщение
    #
    # необязательные параметры:
    #
    # translit - переводить или нет в транслит (1,2 или 0)
    # format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
    # sender - имя отправителя (Sender ID)
    # query - строка дополнительных параметров, добавляемая в URL-запрос ("list=79999999999:Ваш пароль: 123\n78888888888:Ваш пароль: 456")
    #
    # возвращает массив (<стоимость>, <количество sms>) либо массив (0, -<код ошибки>) в случае ошибки

   
def get_sms_cost(phones, message, translit = 0, format = 0, sender = false, query = "")
       
formats = ["flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1"]

       
m = _smsc_send_cmd("send", "cost=1&phones=" + _urlencode(phones) + "&mes=" + _urlencode(message) +
                       
"&translit=#{translit}" + (format > 0 ? "&#{formats[format-1]}" : "") +
                        (
sender == false ? "" : "&sender=" + _urlencode(sender)) +
                        (
query ? "&#{query}" : ""))

       
# (cost, cnt) или (0, -error)

       
if SMSC_DEBUG
           
if m[1] > "0"
               
puts "Стоимость рассылки: #{m[0]}. Всего SMS: #{m[1]}\n"
           
else
               
puts "Ошибка №#{m[1][1]}\n"
           
end
        end

       
return m
    end

   
# Функция проверки статуса отправленного SMS или HLR-запроса
    #
    # id - ID cообщения
    # phone - номер телефона
    #
    # возвращает массив:
    # для отправленного SMS (<статус>, <время изменения>, <код ошибки sms>)
    # для HLR-запроса (<статус>, <время изменения>, <код ошибки sms>, <код IMSI SIM-карты>, <номер сервис-центра>,
    # <код страны регистрации>, <код оператора абонента>, <название страны регистрации>, <название оператора абонента>,
    # <название роуминговой страны>, <название роумингового оператора>)
    #
    # При all = 1 дополнительно возвращаются элементы в конце массива:
    # (<время отправки>, <номер телефона>, <стоимость>, <sender id>, <название статуса>, <текст сообщения>)
    #
    # либо массив (0, -<код ошибки>) в случае ошибки

   
def get_status(id, phone, all = 0)
       
m = _smsc_send_cmd("status", "phone=" + _urlencode(phone) + "&id=#{id}&all=#{all}")

       
# (status, time, err, ...) или (0, -error)

       
if SMSC_DEBUG
           
if m[1] != "" && m[1] >= "0"
               
puts "Статус SMS = #{m[0]}" + (m[1] > "0" ? ", время изменения статуса - " + Time.at(m[1].to_i).strftime("%d.%m.%Y %T") : "") + "\n"
           
else
               
puts "Ошибка №#{m[1][1]}\n"
           
end
        end

       
if all && m.size > 9 && ((defined?(m[14])).nil? || m[14] != "HLR")
           
m = (m.join(",")).split(",", 9)
       
end

       
return m
    end

   
# Функция получения баланса
    #
    # без параметров
    #
    # возвращает баланс в виде строки или false в случае ошибки

   
def get_balance
        m
= _smsc_send_cmd("balance") # (balance) или (0, -error)

       
if SMSC_DEBUG
           
if m.length < 2
                puts
"Сумма на счете: #{m[0]}\n"
           
else
               
puts "Ошибка №#{m[1][1]}\n"
           
end
        end

       
return m.length < 2 ? m[0] : false
    end

   
# ВНУТРЕННИЕ ФУНКЦИИ

    # Функция вызова запроса. Формирует URL и делает 5 попыток чтения

   
def _smsc_send_cmd(cmd, arg = "")
       
url_orig = (SMSC_HTTPS ? "https" : "http") + "://smscentre.com/sys/#{cmd}" + ".php?login=" + _urlencode(SMSC_LOGIN) + "&psw=" + _urlencode(SMSC_PASSWORD) + "&fmt=1&charset=#{SMSC_CHARSET}&#{arg}"
       
url = url_orig.clone
       
uri = URI.parse(url)
       
http = _server_connect(uri)

       
i = 1
        begin

           
if (i > 1)
               
url = url_orig.clone
               
url.sub!("://smscentre.com/", "://www" + i.to_s + ".smscentre.com/")
               
uri = URI.parse(url)
               
http = _server_connect(uri)
           
end

            begin
                r
= (SMSC_POST || url.length > 2000) ? http.post2(uri.path, uri.query) : http.get2(uri.path + "?" + uri.query)
               
ret = r.body
            rescue
                ret
= ""
           
end

            i
+=1
        end until ret
!= "" || i == 6

       
if ret == ""
           
puts "Ошибка чтения адреса: #{url}\n" if SMSC_DEBUG

            ret
= "0,0" # фиктивный ответ
       
end

       
return ret.split(",")
   
end

   
# Подключение к серверу

   
def _server_connect(uri)
       
http = Net::HTTP.new(uri.host, uri.port)

        if
SMSC_HTTPS
            http
.use_ssl = true
            http
.verify_mode = OpenSSL::SSL::VERIFY_NONE
        end

       
return http
    end
   
   
# кодирование параметра в http-запросе

   
def _urlencode(str)
       
ERB::Util.url_encode(str)
   
end
end

# Examples:
# sms = SMSC.new()
#
# ret = sms.send_sms("79999999999", "Ваш пароль: 123", 1)
# ret = sms.send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, 0, 0, 0, false, "maxsms=3")
# ret = sms.send_sms("79237476298", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, 0, 0, 5)
# ret = sms.send_sms("79999999999", "", 0, 0, 0, 3)
# ret = sms.get_sms_cost("79999999999", "Вы успешно зарегистрированы!")
# sms.send_sms_mail("79999999999", "Ваш пароль: 123", 0, "0101121000")
# ret = sms.get_status(12345, "79999999999")
# balance = sms.get_balance
An example of using the library: #coding: utf-8
require "./smsc_api"
...
sms = SMSC.new()
...
ret = sms.send_sms("79999999999", "Ваш пароль: 123", 1)
...
ret = sms.send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, 0, 0, 0, false, "maxsms=3")
...
ret = sms.send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, 0, 0, 5)
...
ret = sms.send_sms("79999999999", "", 0, 0, 0, 3)
...
sms.send_sms_mail("79999999999", "Ваш пароль: 123", 0, "0101121000")
...
ret = sms.get_status(12345, "79999999999")
...
balance = sms.get_balance
...
ret = sms.get_sms_cost("79999999999", "Вы успешно зарегистрированы!")

Для Python

Download the library file: smsc_api.py

Library source code:
# -*- coding: utf-8 -*-
# SMSCENTRE.COM API (smscentre.com) версия 2.0 (03.07.2019)

from datetime import datetime
from time import sleep
import smtplib

try:
   
from urllib import urlopen, quote
except ImportError
:
   
from urllib.request import urlopen
    from urllib
.parse import quote

# Константы для настройки библиотеки
SMSC_LOGIN = "login"            # логин клиента
SMSC_PASSWORD = "password"    # пароль
SMSC_POST = False                # использовать метод POST
SMSC_HTTPS = False                # использовать HTTPS протокол
SMSC_CHARSET = "utf-8"            # кодировка сообщения (windows-1251 или koi8-r), по умолчанию используется utf-8
SMSC_DEBUG = False                # флаг отладки

# Константы для отправки SMS по SMTP
SMTP_FROM = "api@smscentre.com"        # e-mail адрес отправителя
SMTP_SERVER = "send.smscentre.com"    # адрес smtp сервера
SMTP_LOGIN = ""                    # логин для smtp сервера
SMTP_PASSWORD = ""                # пароль для smtp сервера

# Вспомогательная функция, эмуляция тернарной операции ?:
def ifs(cond, val1, val2):
    if
cond:
        return
val1
   
return val2


# Класс для взаимодействия с сервером smscentre.com

class SMSC(object):

   
# Метод отправки SMS
    #
    # обязательные параметры:
    #
    # phones - список телефонов через запятую или точку с запятой
    # message - отправляемое сообщение
    #
    # необязательные параметры:
    #
    # translit - переводить или нет в транслит (1,2 или 0)
    # time - необходимое время доставки в виде строки (DDMMYYhhmm, h1-h2, 0ts, +m)
    # id - идентификатор сообщения. Представляет собой 32-битное число в диапазоне от 1 до 2147483647.
    # format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
    # sender - имя отправителя (Sender ID).
    # query - строка дополнительных параметров, добавляемая в URL-запрос ("valid=01:00&maxsms=3")
    #
    # возвращает массив (<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки
    # либо массив (<id>, -<код ошибки>) в случае ошибки

   
def send_sms(self, phones, message, translit=0, time="", id=0, format=0, sender=False, query=""):
       
formats = ["flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1"]

       
m = self._smsc_send_cmd("send", "cost=3&phones=" + quote(phones) + "&mes=" + quote(message) + \
                   
"&translit=" + str(translit) + "&id=" + str(id) + ifs(format > 0, "&" + formats[format-1], "") + \
                   
ifs(sender == False, "", "&sender=" + quote(str(sender))) + \
                   
ifs(time, "&time=" + quote(time), "") + ifs(query, "&" + query, ""))

       
# (id, cnt, cost, balance) или (id, -error)

       
if SMSC_DEBUG:
            if
m[1] > "0":
                print(
"Сообщение отправлено успешно. ID: " + m[0] + ", всего SMS: " + m[1] + ", стоимость: " + m[2] + ", баланс: " + m[3])
            else:
                print(
"Ошибка №" + m[1][1:] + ifs(m[0] > "0", ", ID: " + m[0], ""))

        return
m


   
# SMTP версия метода отправки SMS

   
def send_sms_mail(self, phones, message, translit=0, time="", id=0, format=0, sender=""):
       
server = smtplib.SMTP(SMTP_SERVER)

        if
SMSC_DEBUG:
           
server.set_debuglevel(1)

        if
SMTP_LOGIN:
           
server.login(SMTP_LOGIN, SMTP_PASSWORD)

       
server.sendmail(SMTP_FROM, "send@send.smscentre.com", "Content-Type: text/plain; charset=" + SMSC_CHARSET + "\n\n" + \
                           
SMSC_LOGIN + ":" + SMSC_PASSWORD + ":" + str(id) + ":" + time + ":" + str(translit) + "," + \
                           
str(format) + "," + sender + ":" + phones + ":" + message)
       
server.quit()


   
# Метод получения стоимости SMS
    #
    # обязательные параметры:
    #
    # phones - список телефонов через запятую или точку с запятой
    # message - отправляемое сообщение
    #
    # необязательные параметры:
    #
    # translit - переводить или нет в транслит (1,2 или 0)
    # format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
    # sender - имя отправителя (Sender ID)
    # query - строка дополнительных параметров, добавляемая в URL-запрос ("list=79999999999:Ваш пароль: 123\n78888888888:Ваш пароль: 456")
    #
    # возвращает массив (<стоимость>, <количество sms>) либо массив (0, -<код ошибки>) в случае ошибки

   
def get_sms_cost(self, phones, message, translit=0, format=0, sender=False, query=""):
       
formats = ["flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1"]

       
m = self._smsc_send_cmd("send", "cost=1&phones=" + quote(phones) + "&mes=" + quote(message) + \
                   
ifs(sender == False, "", "&sender=" + quote(str(sender))) + \
                   
"&translit=" + str(translit) + ifs(format > 0, "&" + formats[format-1], "") + ifs(query, "&" + query, ""))

       
# (cost, cnt) или (0, -error)

       
if SMSC_DEBUG:
            if
m[1] > "0":
                print(
"Стоимость рассылки: " + m[0] + ". Всего SMS: " + m[1])
            else:
                print(
"Ошибка №" + m[1][1:])

        return
m

   
# Метод проверки статуса отправленного SMS или HLR-запроса
    #
    # id - ID cообщения
    # phone - номер телефона
    #
    # возвращает массив:
    # для отправленного SMS (<статус>, <время изменения>, <код ошибки sms>)
    # для HLR-запроса (<статус>, <время изменения>, <код ошибки sms>, <код IMSI SIM-карты>, <номер сервис-центра>, <код страны регистрации>,
    # <код оператора абонента>, <название страны регистрации>, <название оператора абонента>, <название роуминговой страны>,
    # <название роумингового оператора>)
    #
    # При all = 1 дополнительно возвращаются элементы в конце массива:
    # (<время отправки>, <номер телефона>, <стоимость>, <sender id>, <название статуса>, <текст сообщения>)
    #
    # либо массив (0, -<код ошибки>) в случае ошибки

   
def get_status(self, id, phone, all = 0):
       
m = self._smsc_send_cmd("status", "phone=" + quote(phone) + "&id=" + str(id) + "&all=" + str(all))

       
# (status, time, err, ...) или (0, -error)

       
if SMSC_DEBUG:
            if
m[1] >= "0":
               
tm = ""
               
if m[1] > "0":
                   
tm = str(datetime.fromtimestamp(int(m[1])))
                print(
"Статус SMS = " + m[0] + ifs(m[1] > "0", ", время изменения статуса - " + tm, ""))
            else:
                print(
"Ошибка №" + m[1][1:])

        if
all and len(m) > 9 and (len(m) < 14 or m[14] != "HLR"):
           
m = (",".join(m)).split(",", 8)

        return
m

   
# Метод получения баланса
    #
    # без параметров
    #
    # возвращает баланс в виде строки или False в случае ошибки

   
def get_balance(self):
       
m = self._smsc_send_cmd("balance") # (balance) или (0, -error)

       
if SMSC_DEBUG:
            if
len(m) < 2:
                print(
"Сумма на счете: " + m[0])
            else:
                print(
"Ошибка №" + m[1][1:])

        return
ifs(len(m) > 1, False, m[0])


   
# ВНУТРЕННИЕ МЕТОДЫ

    # Метод вызова запроса. Формирует URL и делает 3 попытки чтения

   
def _smsc_send_cmd(self, cmd, arg=""):
       
url = ifs(SMSC_HTTPS, "https", "http") + "://smscentre.com/sys/" + cmd + ".php"
       
_url = url
        arg
= "login=" + quote(SMSC_LOGIN) + "&psw=" + quote(SMSC_PASSWORD) + "&fmt=1&charset=" + SMSC_CHARSET + "&" + arg

        i
= 0
        ret
= ""

       
while ret == "" and i <= 5:
            if
i > 0:
               
url = _url.replace("smscentre.com/", "www" + str(i) + ".smscentre.com/")
            else:
               
i += 1

           
try:
                if
SMSC_POST or len(arg) > 2000:
                   
data = urlopen(url, arg.encode(SMSC_CHARSET))
                else:
                   
data = urlopen(url + "?" + arg)

               
ret = str(data.read().decode(SMSC_CHARSET))
           
except:
               
ret = ""

           
i += 1

       
if ret == "":
            if
SMSC_DEBUG:
                print(
"Ошибка чтения адреса: " + url)
           
ret = "," # фиктивный ответ

       
return ret.split(",")


# Examples:
# smsc = SMSC()
# smsc.send_sms("79999999999", "test", sender="sms")
# smsc.send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", query="maxsms=3")
# smsc.send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", format=5)
# smsc.send_sms("79999999999", "", format=3)
# r = smsc.get_sms_cost("79999999999", "Вы успешно зарегистрированы!")
# smsc.send_sms_mail("79999999999", "test2", format=1)
# r = smsc.get_status(12345, "79999999999")
# print(smsc.get_balance())
An example of using the library: from smsc_api import *
...
smsc = SMSC()
...
r = smsc.send_sms("79999999999", "Ваш пароль: 123", sender="sms")
...
r = smsc.send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", query="maxsms=3")
...
r = smsc.send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", format=5)
...
r = smsc.send_sms("79999999999", "", format=3)
...
r = smsc.get_sms_cost("79999999999", "Вы успешно зарегистрированы!")
...
r = smsc.get_status(12345, "79999999999")
...
balance = smsc.get_balance()
...
# отправка SMS через e-mail
smsc.send_sms_mail("79999999999", "Ваш пароль: 123")
...

Для Java

Download the library file: smsc_api.java

Library source code:
/*
* SMSCENTRE.COM API (smscentre.com) версия 1.4 (27.10.2021) smsc's sms sender package
*/
package smsc;

import java.net.*;
import java.io.*;
import java.lang.Math;

public class
Smsc {

   
String SMSC_LOGIN    = "login";     // логин клиента
   
String SMSC_PASSWORD = "password"// пароль
   
boolean SMSC_HTTPS   = false;         // использовать HTTPS протокол
   
String SMSC_CHARSET  = "utf-8";       // кодировка сообщения: koi8-r, windows-1251 или utf-8 (по умолчанию)
   
boolean SMSC_DEBUG   = false;         // флаг отладки
   
boolean SMSC_POST    = false;         // Использовать метод POST

    /**
     * constructors
     */
   
public Smsc() {
    }

    public
Smsc(String login, String password) {
       
SMSC_LOGIN    = login;
       
SMSC_PASSWORD = password;
    }

    public
Smsc(String login, String password, String charset) {
       
SMSC_LOGIN    = login;
       
SMSC_PASSWORD = password;
       
SMSC_CHARSET  = charset;
    }

    public
Smsc(String login, String password, String charset, boolean debug) {
       
SMSC_LOGIN    = login;
       
SMSC_PASSWORD = password;
       
SMSC_CHARSET  = charset;
       
SMSC_DEBUG    = debug;
    }

   
/**
     * Отправка SMS
     *
     * @param phones - список телефонов через запятую или точку с запятой
     * @param message - отправляемое сообщение
     * @param translit - переводить или нет в транслит (1,2 или 0)
     * @param time - необходимое время доставки в виде строки (DDMMYYhhmm, h1-h2, 0ts, +m)
     * @param id - идентификатор сообщения. Представляет собой 32-битное число в диапазоне от 1 до 2147483647.
     * @param format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
     * @param sender - имя отправителя (Sender ID).
     * @param query - строка дополнительных параметров, добавляемая в URL-запрос ("valid=01:00&maxsms=3&tz=2")
     * @return array (<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки
     * или массив (<id>, -<код ошибки>) в случае ошибки
     */

   
public String[] send_sms(String phones, String message, int translit, String time, String id, int format, String sender, String query)
    {
       
String[] formats = {"", "flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1"};
       
String[] m = {};

        try {
           
m = _smsc_send_cmd("send", "cost=3&phones=" + URLEncoder.encode(phones, SMSC_CHARSET)
                    +
"&mes=" + URLEncoder.encode(message, SMSC_CHARSET)
                    +
"&translit=" + translit + "&id=" + id + (format > 0 ? "&" + formats[format] : "")
                    + (
sender.equals("") ? "" : "&sender=" + URLEncoder.encode(sender, SMSC_CHARSET))
                    + (
time.equals("") ? "" : "&time=" + URLEncoder.encode(time, SMSC_CHARSET) )
                    + (
query.equals("") ? "" : "&" + query));
        }
        catch (
UnsupportedEncodingException e) {
           
System.out.print("Указанная кодировка символов не поддерживается!\n" + e + "\n");
        }

        if (
m.length > 1) {
            if (
SMSC_DEBUG) {
                if (
Integer.parseInt(m[1]) > 0) {
                   
System.out.println("Сообщение отправлено успешно. ID: " + m[0] + ", всего SMS: " + m[1] + ", стоимость: " + m[2] + ", баланс: " + m[3]);
                }
                else {
                   
System.out.print("Ошибка №" + Math.abs(Integer.parseInt(m[1])));
                   
System.out.println(Integer.parseInt(m[0])>0 ? (", ID: " + m[0]) : "");
                }
            }
        }
        else {
           
System.out.println("Не получен ответ от сервера.");
        }

        return
m;
    };

   
/**
     * Получение стоимости SMS
     *
     * @param phones - список телефонов через запятую или точку с запятой
     * @param message - отправляемое сообщение.
     * @param translit - переводить или нет в транслит (1,2 или 0)
     * @param format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
     * @param sender - имя отправителя (Sender ID)
     * @param query - строка дополнительных параметров, добавляемая в URL-запрос ("list=79999999999:Ваш пароль: 123\n78888888888:Ваш пароль: 456")
     * @return array(<стоимость>, <количество sms>) либо (0, -<код ошибки>) в случае ошибки
     */

   
public String[] get_sms_cost(String phones, String message, int translit, int format, String sender, String query)
    {
       
String[] formats = {"", "flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1"};
       
String[] m = {};

        try {
               
m = _smsc_send_cmd("send", "cost=1&phones=" + URLEncoder.encode(phones, SMSC_CHARSET)
                        +
"&mes=" + URLEncoder.encode(message, SMSC_CHARSET)
                        +
"&translit=" + translit + (format > 0 ? "&" + formats[format] : "")
                        + (
sender.equals("") ? "" : "&sender=" + URLEncoder.encode(sender, SMSC_CHARSET))
                        + (
query.equals("") ? "" : "&" + query));
        }
        catch (
UnsupportedEncodingException e) {
           
System.out.print("Указанная кодировка символов не поддерживается!\n" + e + "\n");
        }
       
// (cost, cnt) или (0, -error)

       
if (m.length > 1) {
            if (
SMSC_DEBUG) {
                if (
Integer.parseInt(m[1]) > 0)
                   
System.out.println("Стоимость рассылки: " + m[0] + ", Всего SMS: " + m[1]);

                else
                   
System.out.print("Ошибка №" + Math.abs(Integer.parseInt(m[1])));
            }
        }
        else
           
System.out.println("Не получен ответ от сервера.");

        return
m;
    }

   
/**
     * Проверка статуса отправленного SMS или HLR-запроса
     *
     * @param id - ID cообщения
     * @param phone - номер телефона
     * @param all - дополнительно возвращаются элементы в конце массива:
     *  (<время отправки>, <номер телефона>, <стоимость>, <sender id>, <название статуса>, <текст сообщения>)
     * @return array
     * для отправленного SMS (<статус>, <время изменения>, <код ошибки sms>)
     * для HLR-запроса (<статус>, <время изменения>, <код ошибки sms>, <код страны регистрации>, <код оператора абонента>,
     * <название страны регистрации>, <название оператора абонента>, <название роуминговой страны>, <название роумингового оператор
     * <код IMSI SIM-карты>, <номер сервис-центра>)
     * либо array(0, -<код ошибки>) в случае ошибки
     */

   
public String[] get_status(int id, String phone, int all)
    {
       
String[] m = {};
       
String tmp;

        try {
           
m = _smsc_send_cmd("status", "phone=" + URLEncoder.encode(phone, SMSC_CHARSET) + "&id=" + id + "&all=" + all);

            if (
m.length > 1) {
                if (
SMSC_DEBUG) {
                    if (!
m[1].equals("") && Integer.parseInt(m[1]) >= 0) {
                       
java.sql.Timestamp currentTimestamp = new java.sql.Timestamp(Integer.parseInt(m[1]));
                       
System.out.println("Статус SMS = " + m[0]);
                    }
                    else
                       
System.out.println("Ошибка №" + Math.abs(Integer.parseInt(m[1])));
                }

                if (
all == 1 && m.length > 9 && (m.length < 14 || !m[14].equals("HLR"))) {
                   
tmp = _implode(m, ",");
                   
m = tmp.split(",", 9);
                }
            }
            else
               
System.out.println("Не получен ответ от сервера.");
        }
        catch (
UnsupportedEncodingException e) {
           
System.out.print("Указанная кодировка символов не поддерживается!\n" + e + "\n");
        }

        return
m;
    }

   
/**
     * Получениe баланса
     *
     * @return String баланс или пустую строку в случае ошибки
     */

   
public String get_balance() {
       
String[] m = {};

       
m = _smsc_send_cmd("balance", ""); // (balance) или (0, -error)

       
if (m.length >= 1) {
            if (
SMSC_DEBUG) {
                if (
m.length == 1)
                   
System.out.println("Сумма на счете: " + m[0]);
                else
                   
System.out.println("Ошибка №" + Math.abs(Integer.parseInt(m[1])));
            }
        }
        else {
           
System.out.println("Не получен ответ от сервера.");
        }
        return
m.length == 2 ?    "" : m[0];
    }

   
/**
     * Формирование и отправка запроса
     * @param cmd - требуемая команда
     * @param arg - дополнительные параметры
     */

   
private String[] _smsc_send_cmd(String cmd, String arg){
       
String ret = ",";

        try {
           
String _url = (SMSC_HTTPS ? "https" : "http") + "://smscentre.com/sys/" + cmd +".php?login=" + URLEncoder.encode(SMSC_LOGIN, SMSC_CHARSET)
                +
"&psw=" + URLEncoder.encode(SMSC_PASSWORD, SMSC_CHARSET)
                +
"&fmt=1&charset=" + SMSC_CHARSET + "&" + arg;

           
String url = _url;
           
int i = 0;
            do {
                if (
i++ > 0) {
                   
url = _url;
                   
url = url.replace("://smscentre.com/", "://www" + (i) + ".smscentre.com/");
                }
               
ret = _smsc_read_url(url);
            }
            while (
ret.equals("") && i < 5);
        }
        catch (
UnsupportedEncodingException e) {
           
System.out.print("Указанная кодировка символов не поддерживается!\n" + e + "\n");
        }

        return
ret.split(",");
    }

   
/**
     * Чтение URL
     * @param url - ID cообщения
     * @return line - ответ сервера
     */
   
private String _smsc_read_url(String url) {

       
String line = "", real_url = url;
       
String[] param = {};
       
boolean is_post = (SMSC_POST || url.length() > 2000);

        if (
is_post) {
           
param = url.split("\\?",2);
           
real_url = param[0];
        }

        try {
           
URL u = new URL(real_url);
           
InputStream is;

            if (
is_post){
               
URLConnection conn = u.openConnection();
               
conn.setDoOutput(true);
               
OutputStreamWriter os = new OutputStreamWriter(conn.getOutputStream(), SMSC_CHARSET);
               
os.write(param[1]);
               
os.flush();
               
os.close();
               
System.out.println("post");
               
is = conn.getInputStream();
            }
            else {
               
is = u.openStream();
            }

           
InputStreamReader reader = new InputStreamReader(is, SMSC_CHARSET);

           
int ch;
            while ((
ch = reader.read()) != -1) {
               
line += (char)ch;
            }

           
reader.close();
        }
        catch (
MalformedURLException e) { // Неверный урл, протокол...
           
System.out.print("Ошибка при обработке URL-адреса!\n" + e + "\n");
        }
        catch (
IOException e) {
           
System.out.print("Ошибка при операции передачи/приема данных!\n" + e + "\n");
        }

        return
line;
    }

    private static
String _implode(String[] ary, String delim) {
       
String out = "";

        for (
int i = 0; i < ary.length; i++) {
            if (
i != 0)
               
out += delim;
           
out += ary[i];
        }

        return
out;
    }
}

// Examples:
/*
        Smsc sd = new Smsc();
        // or
        Smsc sd = new Smsc("login", "password");

        sd.send_sms("79999999999", "Ваш пароль: 123", 1, "", "", 0, "", "");
        sd.get_sms_cost("79999999999", "Вы успешно зарегистрированы!", 0, 0, "", "");
        sd.get_status(sms_id, "79999999999");
        sd.get_balanse();
*/
An example of using the library: import smsc_api.Smsc;
...
Smsc sms= new Smsc();
...
String[] ret = sms.send_sms("79999999999", "Ваш пароль: 123", 1, "", "", 0, "", "");
...
String[] ret = sms.send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, "", "", 0, "", "maxsms=3");
...
String[] ret = sms.send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, "", "", 5, "", "");
...
String[] ret = sms.send_sms("79999999999", "", 0, "", "", 3, "", "");
...
String[] ret = sms.get_status(12345, "79999999999", 0);
...
String balance = sms.get_balance();
...
String[] ret = sms.get_sms_cost("79999999999", "Вы успешно зарегистрированы!", 0, 0, "", "");

For C# (C sharp; .net framework)

Download the library file: smsc_api.cs

Library source code:
// SMSCENTRE.COM API (smscentre.com) версия 3.1 (03.07.2019)
using System;
using System.Web;
using System.Net;
using System.IO;
using System.Net.Mail;
using System.Text;

public class
SMSC
{
   
// Константы с параметрами отправки
   
const string SMSC_LOGIN = "login";            // логин клиента
   
const string SMSC_PASSWORD = "password";    // пароль или MD5-хеш пароля в нижнем регистре
   
bool SMSC_POST = false;                        // использовать метод POST
   
const bool SMSC_HTTPS = false;                // использовать HTTPS протокол
   
const string SMSC_CHARSET = "utf-8";        // кодировка сообщения (windows-1251 или koi8-r), по умолчанию используется utf-8
   
const bool SMSC_DEBUG = false;                // флаг отладки

    // Константы для отправки SMS по SMTP
   
const string SMTP_FROM = "api@smscentre.com";        // e-mail адрес отправителя
   
const string SMTP_SERVER = "send.smscentre.com";    // адрес smtp сервера
   
const string SMTP_LOGIN = "";                // логин для smtp сервера
   
const string SMTP_PASSWORD = "";            // пароль для smtp сервера

   
public string[][] D2Res;

   
// Метод отправки SMS
    //
    // обязательные параметры:
    //
    // phones - список телефонов через запятую или точку с запятой
    // message - отправляемое сообщение
    //
    // необязательные параметры:
    //
    // translit - переводить или нет в транслит
    // time - необходимое время доставки в виде строки (DDMMYYhhmm, h1-h2, 0ts, +m)
    // id - идентификатор сообщения. Представляет собой 32-битное число в диапазоне от 1 до 2147483647.
    // format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
    // sender - имя отправителя (Sender ID).
    // query - строка дополнительных параметров, добавляемая в URL-запрос ("valid=01:00&maxsms=3")
    //
    // возвращает массив строк (<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки
    // либо массив строк (<id>, -<код ошибки>) в случае ошибки

   
public string[] send_sms(string phones, string message, int translit = 0, string time = "", int id = 0, int format = 0, string sender = "", string query = "", string[] files = null)
    {
        if (
files != null)
           
SMSC_POST = true;

       
string[] formats = {"flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1"};

       
string[] m = _smsc_send_cmd("send", "cost=3&phones=" + _urlencode(phones)
                        +
"&mes=" + _urlencode(message) + "&id=" + id.ToString() + "&translit=" + translit.ToString()
                        + (
format > 0 ? "&" + formats[format-1] : "") + (sender != "" ? "&sender=" + _urlencode(sender) : "")
                        + (
time != "" ? "&time=" + _urlencode(time) : "") + (query != "" ? "&" + query : ""), files);

       
// (id, cnt, cost, balance) или (id, -error)

       
if (SMSC_DEBUG) {
            if (
Convert.ToInt32(m[1]) > 0)
               
_print_debug("Сообщение отправлено успешно. ID: " + m[0] + ", всего SMS: " + m[1] + ", стоимость: " + m[2] + ", баланс: " + m[3]);
            else
               
_print_debug("Ошибка №" + m[1].Substring(1, 1) + (m[0] != "0" ? ", ID: " + m[0] : ""));
        }

        return
m;
    }

   
// SMTP версия метода отправки SMS

   
public void send_sms_mail(string phones, string message, int translit = 0, string time = "", int id = 0, int format = 0, string sender = "")
    {
       
MailMessage mail = new MailMessage();

       
mail.To.Add("send@send.smscentre.com");
       
mail.From = new MailAddress(SMTP_FROM, "");

       
mail.Body = SMSC_LOGIN + ":" + SMSC_PASSWORD + ":" + id.ToString() + ":" + time + ":"
                   
+ translit.ToString() + "," + format.ToString() + "," + sender
                   
+ ":" + phones + ":" + message;

       
mail.BodyEncoding = Encoding.GetEncoding(SMSC_CHARSET);
       
mail.IsBodyHtml = false;

       
SmtpClient client = new SmtpClient(SMTP_SERVER, 25);
       
client.DeliveryMethod = SmtpDeliveryMethod.Network;
       
client.EnableSsl = false;
       
client.UseDefaultCredentials = false;

        if (
SMTP_LOGIN != "")
           
client.Credentials = new NetworkCredential(SMTP_LOGIN, SMTP_PASSWORD);

       
client.Send(mail);
    }

   
// Метод получения стоимости SMS
    //
    // обязательные параметры:
    //
    // phones - список телефонов через запятую или точку с запятой
    // message - отправляемое сообщение
    //
    // необязательные параметры:
    //
    // translit - переводить или нет в транслит
    // format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
    // sender - имя отправителя (Sender ID)
    // query - строка дополнительных параметров, добавляемая в URL-запрос ("list=79999999999:Ваш пароль: 123\n78888888888:Ваш пароль: 456")
    //
    // возвращает массив (<стоимость>, <количество sms>) либо массив (0, -<код ошибки>) в случае ошибки

   
public string[] get_sms_cost(string phones, string message, int translit = 0, int format = 0, string sender = "", string query = "")
    {
       
string[] formats = {"flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1"};

       
string[] m = _smsc_send_cmd("send", "cost=1&phones=" + _urlencode(phones)
                        +
"&mes=" + _urlencode(message) + translit.ToString() + (format > 0 ? "&" + formats[format-1] : "")
                        + (
sender != "" ? "&sender=" + _urlencode(sender) : "") + (query != "" ? "&query" : ""));

       
// (cost, cnt) или (0, -error)

       
if (SMSC_DEBUG) {
            if (
Convert.ToInt32(m[1]) > 0)
               
_print_debug("Стоимость рассылки: " + m[0] + ". Всего SMS: " + m[1]);
            else
               
_print_debug("Ошибка №" + m[1].Substring(1, 1));
        }

        return
m;
    }

   
// Метод проверки статуса отправленного SMS или HLR-запроса
    //
    // id - ID cообщения или список ID через запятую
    // phone - номер телефона или список номеров через запятую
    // all - вернуть все данные отправленного SMS, включая текст сообщения (0,1 или 2)
    //
    // возвращает массив (для множественного запроса возвращается массив с единственным элементом, равным 1. В этом случае статусы сохраняются в
    //                    двумерном динамическом массиве класса D2Res):
    //
    // для одиночного SMS-сообщения:
    // (<статус>, <время изменения>, <код ошибки доставки>)
    //
    // для HLR-запроса:
    // (<статус>, <время изменения>, <код ошибки sms>, <код IMSI SIM-карты>, <номер сервис-центра>, <код страны регистрации>, <код оператора>,
    // <название страны регистрации>, <название оператора>, <название роуминговой страны>, <название роумингового оператора>)
    //
    // при all = 1 дополнительно возвращаются элементы в конце массива:
    // (<время отправки>, <номер телефона>, <стоимость>, <sender id>, <название статуса>, <текст сообщения>)
    //
    // при all = 2 дополнительно возвращаются элементы <страна>, <оператор> и <регион>
    //
    // при множественном запросе (данные по статусам сохраняются в двумерном массиве D2Res):
    // если all = 0, то для каждого сообщения или HLR-запроса дополнительно возвращается <ID сообщения> и <номер телефона>
    //
    // если all = 1 или all = 2, то в ответ добавляется <ID сообщения>
    //
    // либо массив (0, -<код ошибки>) в случае ошибки

   
public string[] get_status(string id, string phone, int all = 0)
    {
       
string[] m = _smsc_send_cmd("status", "phone=" + _urlencode(phone) + "&id=" + _urlencode(id) + "&all=" + all.ToString());

       
// (status, time, err, ...) или (0, -error)

       
if (id.IndexOf(',') == -1)
        {
            if (
SMSC_DEBUG)
            {
                if (
m[1] != "" && Convert.ToInt32(m[1]) >= 0)
                {
                   
int timestamp = Convert.ToInt32(m[1]);
                   
DateTime offset = new DateTime(1970, 1, 1, 0, 0, 0, 0);
                   
DateTime date = offset.AddSeconds(timestamp);

                   
_print_debug("Статус SMS = " + m[0] + (timestamp > 0 ? ", время изменения статуса - " + date.ToLocalTime() : ""));
                }
                else
                   
_print_debug("Ошибка №" + m[1].Substring(1, 1));
            }

           
int idx = all == 1 ? 9 : 12;

            if (
all > 0 && m.Length > idx && (m.Length < idx + 5 || m[idx + 5] != "HLR"))
               
m = String.Join(",", m).Split(",".ToCharArray(), idx);
        }
        else
        {
            if (
m.Length == 1 && m[0].IndexOf('-') == 2)
                return
m[0].Split(',');

            Array.
Resize(ref D2Res, 0);
            Array.
Resize(ref D2Res, m.Length);

            for (
int i = 0; i < D2Res.Length; i++)
               
D2Res[i] = m[i].Split(',');

            Array.
Resize(ref m, 1);
           
m[0] = "1";
        }

        return
m;
    }

   
// Метод получения баланса
    //
    // без параметров
    //
    // возвращает баланс в виде строки или пустую строку в случае ошибки

   
public string get_balance()
    {
       
string[] m = _smsc_send_cmd("balance", ""); // (balance) или (0, -error)

       
if (SMSC_DEBUG) {
            if (
m.Length == 1)
               
_print_debug("Сумма на счете: " + m[0]);
            else
               
_print_debug("Ошибка №" + m[1].Substring(1, 1));
        }

        return
m.Length == 1 ? m[0] : "";
    }

   
// ПРИВАТНЫЕ МЕТОДЫ

    // Метод вызова запроса. Формирует URL и делает 3 попытки чтения

   
private string[] _smsc_send_cmd(string cmd, string arg, string[] files = null)
    {
       
string url, _url;

       
arg = "login=" + _urlencode(SMSC_LOGIN) + "&psw=" + _urlencode(SMSC_PASSWORD) + "&fmt=1&charset=" + SMSC_CHARSET + "&" + arg;

       
url = _url = (SMSC_HTTPS ? "https" : "http") + "://smscentre.com/sys/" + cmd + ".php" + (SMSC_POST ? "" : "?" + arg);

       
string ret;
       
int i = 0;
       
HttpWebRequest request;
       
StreamReader sr;
       
HttpWebResponse response;

        do
        {
            if (
i++ > 0)
               
url = _url.Replace("smscentre.com/", "www" + i.ToString() + ".smscentre.com/");

           
request = (HttpWebRequest)WebRequest.Create(url);

            if (
SMSC_POST) {
               
request.Method = "POST";

               
string postHeader, boundary = "----------" + DateTime.Now.Ticks.ToString("x");
               
byte[] postHeaderBytes, boundaryBytes = Encoding.ASCII.GetBytes("--" + boundary + "--\r\n"), tbuf;
               
StringBuilder sb = new StringBuilder();
               
int bytesRead;

               
byte[] output = new byte[0];

                if (
files == null) {
                   
request.ContentType = "application/x-www-form-urlencoded";
                   
output = Encoding.UTF8.GetBytes(arg);
                   
request.ContentLength = output.Length;
                }
                else {
                   
request.ContentType = "multipart/form-data; boundary=" + boundary;

                   
string[] par = arg.Split('&');
                   
int fl = files.Length;

                    for (
int pcnt = 0; pcnt < par.Length + fl; pcnt++)
                    {
                       
sb.Clear();

                       
sb.Append("--");
                       
sb.Append(boundary);
                       
sb.Append("\r\n");
                       
sb.Append("Content-Disposition: form-data; name="");

                        bool pof = pcnt < fl;
                        String[] nv = new String[0];

                        if (pof)
                        {
                            sb.Append("
File" + (pcnt + 1));
                            sb.Append(""; filename="");
                            sb.Append(Path.GetFileName(files[pcnt]));
                        }
                        else {
                            nv = par[pcnt - fl].Split('=');
                            sb.Append(nv[0]);
                        }

                        sb.Append("""
);
                       
sb.Append("\r\n");
                       
sb.Append("Content-Type: ");
                       
sb.Append(pof ? "application/octet-stream" : "text/plain; charset="" + SMSC_CHARSET + """);
                       
sb.Append("\r\n");
                       
sb.Append("Content-Transfer-Encoding: binary");
                       
sb.Append("\r\n");
                       
sb.Append("\r\n");

                       
postHeader = sb.ToString();
                       
postHeaderBytes = Encoding.UTF8.GetBytes(postHeader);

                       
output = _concatb(output, postHeaderBytes);

                        if (
pof)
                        {
                           
FileStream fileStream = new FileStream(files[pcnt], FileMode.Open, FileAccess.Read);

                           
// Write out the file contents
                           
byte[] buffer = new Byte[checked((uint)Math.Min(4096, (int)fileStream.Length))];

                           
bytesRead = 0;
                            while ((
bytesRead = fileStream.Read(buffer, 0, buffer.Length)) != 0)
                            {
                               
tbuf = buffer;
                                Array.
Resize(ref tbuf, bytesRead);

                               
output = _concatb(output, tbuf);
                            }
                        }
                        else {
                           
byte[] vl = Encoding.UTF8.GetBytes(nv[1]);
                           
output = _concatb(output, vl);
                        }

                       
output = _concatb(output, Encoding.UTF8.GetBytes("\r\n"));
                    }
                   
output = _concatb(output, boundaryBytes);

                   
request.ContentLength = output.Length;
                }

               
Stream requestStream = request.GetRequestStream();
               
requestStream.Write(output, 0, output.Length);
            }

            try
            {
               
response = (HttpWebResponse)request.GetResponse();

               
sr = new StreamReader(response.GetResponseStream());
               
ret = sr.ReadToEnd();
            }
            catch (
WebException) {
               
ret = "";
            }
        }
        while (
ret == "" && i < 5);

        if (
ret == "") {
            if (
SMSC_DEBUG)
               
_print_debug("Ошибка чтения адреса: " + url);

           
ret = ","; // фиктивный ответ
       
}

       
char delim = ',';

        if (
cmd == "status")
        {
           
string[] par = arg.Split('&');

            for (
i = 0; i < par.Length; i++)
            {
               
string[] lr = par[i].Split("=".ToCharArray(), 2);

                if (
lr[0] == "id" && lr[1].IndexOf("%2c") > 0) // запятая в id - множественный запрос
                   
delim = '\n';
            }
        }

        return
ret.Split(delim);
    }

   
// кодирование параметра в http-запросе
   
private string _urlencode(string str) {
        if (
SMSC_POST) return str;

        return
HttpUtility.UrlEncode(str);
    }

   
// объединение байтовых массивов
   
private byte[] _concatb(byte[] farr, byte[] sarr)
    {
       
int opl = farr.Length;

        Array.
Resize(ref farr, farr.Length + sarr.Length);
        Array.
Copy(sarr, 0, farr, opl, sarr.Length);

        return
farr;
    }

   
// вывод отладочной информации
   
private void _print_debug(string str) {
       
System.Windows.Forms.MessageBox.Show(str);
    }
}

// Examples:
// SMSC smsc = new SMSC();
// string[] r = smsc.send_sms("79999999999", "Ваш пароль: 123", 2);
// string[] r = smsc.send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, "", 0, 0, "", "maxsms=3");
// string[] r = smsc.send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, "", 0, 5);
// string[] r = smsc.send_sms("79999999999", "", 0, "", 0, 3);
// string[] r = smsc.send_sms("dest@mysite.com", "Ваш пароль: 123", 0, 0, 0, 8, "source@mysite.com", "subj=Confirmation");
// string[] r = smsc.get_sms_cost("79999999999", "Вы успешно зарегистрированы!");
// smsc.send_sms_mail("79999999999", "Ваш пароль: 123", 0, "0101121000");
// string[] r = smsc.get_status("12345", "79999999999");
// string balance = smsc.get_balance();

An example of using the library:
SMSC smsc = new SMSC();
...
string[] r = smsc.send_sms("79999999999", "Ваш пароль: 123", 1);
...
string[] r = smsc.send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, "", 0, 0, "", "maxsms=3");
...
string[] r = smsc.send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, "", 0, 5);
...
string[] r = smsc.send_sms("79999999999", "", 0, "", 0, 3);
...
string[] r = smsc.get_sms_cost("79999999999", "Вы успешно зарегистрированы!");
...
string[] r = smsc.get_status(12345, "79999999999");
...
string balance = smsc.get_balance();
...
// отправка SMS через e-mail
smsc.send_sms_mail("79999999999", "Ваш пароль: 123");
...

Для Delphi

Download the library file: smsc_api.pas

Library source code:
// SMSCENTRE.COM API для Delphi (smscentre.com) версия 3.3 (03.07.2019)
unit smsc_api;

interface

uses IdHTTP, IdURI, IdMessage, IdSMTP, IdStrings, IdGlobal, IdGlobalProtocols, StrUtils, SysUtils,
   
Forms, Classes, DateUtils, Types, Windows, IdMultipartFormData;

var
   
SMSC_POST: Boolean = False;                // использовать метод POST

const
   
// Константы с параметрами отправки
   
SMSC_LOGIN: String = 'login';            // логин клиента
   
SMSC_PASSWORD: String = 'password';        // пароль
   
SMSC_CHARSET: String =    {$IFDEF UNICODE}// кодировка сообщения (utf-8 или koi8-r), по умолчанию используется windows-1251
                           
'utf-8'
                           
{$ELSE}
                           
'windows-1251'
                           
{$ENDIF};
   
SMSC_DEBUG: Boolean = False;            // флаг отладки

    // Константы для отправки SMS по SMTP
   
SMTP_FROM: String = 'api@smscentre.com';        // e-mail адрес отправителя
   
SMTP_SERVER: String = 'send.smscentre.com';    // адрес smtp сервера
   
SMTP_LOGIN: String = '';                // логин для smtp сервера
   
SMTP_PASSWORD: String = '';                // пароль для smtp сервера

type
    SMSC
= class
    public
       
D2Res: array of TStringDynArray;
       
// Общедоступные методы класса SMSС
       
function send_sms(phones: String; mes: String; translit: Integer = 0; time: String = ''; id: Integer = 0; format: Integer = 0; sender: String = ''; query: String = ''; files: TStringList = nil): TStringDynArray;
       
procedure send_sms_mail(phones: String; mes: String; translit: Integer = 0; time: String = ''; id: Integer = 0; format: Integer = 0; senderid: String = '');
        function
get_sms_cost(phones: String; mes: String; translit: Integer = 0; format: Integer = 0; sender: String = ''; query: String = ''): TStringDynArray;
        function
get_status(id: String; phone: String; all: Integer = 0): TStringDynArray;
        function
get_balance: String;

    private
       
// Приватные методы класса SMSС
       
function _smsc_send_cmd(cmd: String; arg: String; files: TStringList = nil): TStringDynArray;
        function
_urlencode(str: String): String;
       
procedure _print_debug(str: String);
        function
_ifs(cond: Boolean; val1: String; val2: String): String;
   
end;

var
   
formats: array[0..11] of String = ('', 'flash=1', 'push=1', 'hlr=1', 'bin=1', 'bin=2', 'ping=1', 'mms=1', 'mail=1', 'call=1', 'viber=1', 'soc=1');

implementation

// Метод отправки SMS
//
// обязательные параметры:
//
// phones - список телефонов через запятую или точку с запятой
// mes - отправляемое сообщение
//
// необязательные параметры:
//
// translit - переводить или нет в транслит
// time - необходимое время доставки в виде строки (DDMMYYhhmm, h1-h2, 0ts, +m)
// id - идентификатор сообщения. Представляет собой 32-битное число в диапазоне от 1 до 2147483647.
// format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
// sender - имя отправителя (Sender ID).
// query - строка дополнительных параметров, добавляемая в URL-запрос ('valid=01:00&maxsms=3')
// files - массив путей к файлам при отправке mms или e-mail сообщений
//
// возвращает массив (<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки
// либо (<id>, -<код ошибки>) в случае ошибки

function SMSC.send_sms(phones: String; mes: String; translit: Integer = 0; time: String = ''; id: Integer = 0; format: Integer = 0; sender: String = ''; query: String = ''; files: TStringList = nil): TStringDynArray;
begin
   
if files <> nil then
        SMSC_POST
:= true;

   
Result := _smsc_send_cmd('send', 'cost=3&phones=' + _urlencode(phones) + '&mes=' + _urlencode(mes) + '&id=' + IntToStr(id) + '&translit=' + IntToStr(translit) +
                           
_ifs(format > 0, '&' + formats[format], '') + _ifs(sender <> '', '&sender=' + _urlencode(sender), '') + _ifs(time <> '', '&time=' +
                           
_urlencode(time), '') + _ifs(query <> '', '&' + query, ''), files);

   
// (id, cnt, cost, balance) или (id, -error)

   
if SMSC_DEBUG then
       
if StrToInt(Result[1]) > 0 then
            _print_debug
('Сообщение отправлено успешно. ID: ' + Result[0] + ', всего SMS: ' + Result[1]
                        +
', стоимость: ' + Result[2] + ', баланс: ' + Result[3])
        else
           
_print_debug('Ошибка №' + Result[1][2] + ', ID: ' + Result[0]);
end;

// SMTP версия метода отправки SMS

procedure SMSC.send_sms_mail(phones: String; mes: String; translit: Integer = 0; time: String = ''; id: Integer = 0; format: Integer = 0; senderid: String = '');
var
   
msg: TIdMessage;
begin
    msg
:= TIdMessage.Create(nil);

   
with TIdSMTP.Create(nil) do
   
begin
        Port
:= 25;
       
Host := SMTP_SERVER;

           if
SMTP_LOGIN <> '' then
        begin
            Username
:= SMTP_LOGIN;
           
Password := SMTP_PASSWORD;
       
end;

       
msg.Recipients.EMailAddresses := 'send@send.smscentre.com';
       
msg.From.Address := SMTP_FROM;
       
msg.ContentType := 'text/plain';
       
msg.CharSet := SMSC_CHARSET;
       
SysLocale.PriLangID := LANG_SYSTEM_DEFAULT; // если не поставить, то Indy будет оборачивать в koi8-r заголовки
       
msg.Body.Add(SMSC_LOGIN + ':' + SMSC_PASSWORD + ':' + IntToStr(id) + ':' + time + ':' + IntToStr(translit) + ',' + IntToStr(format) + ',' + senderid + ':' + phones + ':' + mes);

       
Connect;
       
Send(msg);
       
Disconnect;
       
Destroy;
   
end;

   
msg.Destroy;
end;

// Метод получения стоимости SMS
//
// обязательные параметры:
//
// phones - список телефонов через запятую или точку с запятой
// message - отправляемое сообщение
//
// необязательные параметры:
//
// translit - переводить или нет в транслит
// format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
// sender - имя отправителя (Sender ID)
// query - строка дополнительных параметров, добавляемая в URL-запрос ('list=79999999999:Ваш пароль: 123'#13#10 + '78888888888:Ваш пароль: 456')
//
// возвращает массив (<стоимость>, <количество sms>) либо (0, -<код ошибки>) в случае ошибки

function SMSC.get_sms_cost(phones: String; mes: String; translit: Integer = 0; format: Integer = 0; sender: String = ''; query: String = ''): TStringDynArray;
begin
    Result
:= _smsc_send_cmd('send', 'cost=1&phones=' + _urlencode(phones) + '&mes=' + _urlencode(mes) + '&translit=' + IntToStr(translit) +
                           
_ifs(format > 0, '&' + formats[format], '') + _ifs(sender <> '', '&sender=' + _urlencode(sender), '') + _ifs(query <> '', '&' + query, ''));

   
// (cost, cnt) или (0, -error)

   
if SMSC_DEBUG then
       
if StrToInt(Result[1]) > 0 then
            _print_debug
('Стоимость рассылки: ' + Result[0] + '. Всего SMS: ' + Result[1])
        else
           
_print_debug('Ошибка №' + Result[1][2]);
end;

// Метод проверки статуса отправленного SMS или HLR-запроса
//
// id - ID cообщения или список ID через запятую
// phone - номер телефона или список номеров через запятую
// all - вернуть все данные отправленного SMS, включая текст сообщения (0,1 или 2)
//
// возвращает массив (для множественного запроса возвращается массив с единственным элементом, равным 1. В этом случае статусы сохраняются в
//                    двумерном динамическом массиве класса D2Res):
//
// для одиночного SMS-сообщения:
// (<статус>, <время изменения>, <код ошибки доставки>)
//
// для HLR-запроса:
// (<статус>, <время изменения>, <код ошибки sms>, <код IMSI SIM-карты>, <номер сервис-центра>, <код страны регистрации>, <код оператора>,
// <название страны регистрации>, <название оператора>, <название роуминговой страны>, <название роумингового оператора>)
//
// при all = 1 дополнительно возвращаются элементы в конце массива:
// (<время отправки>, <номер телефона>, <стоимость>, <sender id>, <название статуса>, <текст сообщения>)
//
// при all = 2 дополнительно возвращаются элементы <страна>, <оператор> и <регион>
//
// при множественном запросе (данные по статусам сохраняются в двумерном массиве D2Res):
// если all = 0, то для каждого сообщения или HLR-запроса дополнительно возвращается <ID сообщения> и <номер телефона>
//
// если all = 1 или all = 2, то в ответ добавляется <ID сообщения>
//
// либо массив (0, -<код ошибки>) в случае ошибки

function SMSC.get_status(id: String; phone: String; all: Integer = 0): TStringDynArray;
var
   
ans: String;
   
TZInfo: TIME_ZONE_INFORMATION;
   
i, idx: Integer;
begin

    Result
:= _smsc_send_cmd('status', 'phone=' + _urlencode(phone) + '&id=' + _urlencode(id) + '&all=' + IntToStr(all));

   
// (status, time, err, ...) или (0, -error)

   
if Pos(',', id) = 0 then
    begin
       
if SMSC_DEBUG then
           
if (Result[1] <> '') and (StrToInt(Result[1]) >= 0) then
            begin
                ans
:= 'Статус SMS = ' + Result[0];
               
GetTimeZoneInformation(TZInfo);

                if
StrToInt(Result[1]) > 0 then
                    ans
:= ans + ', время изменения статуса - ' + DateTimeToStr(UnixToDateTime(StrToInt64(Result[1]) - TZInfo.Bias * 60));

               
_print_debug(ans);
           
end
           
else
               
_print_debug('Ошибка №' + Result[1][2]);

       
idx := StrToInt(_ifs(all = 1, '9', '12'));

        if (
all > 0) and (Length(Result) > idx) and ((Length(Result) < idx + 5) or (Result[idx + 5] <> 'HLR')) then
        begin
            ans
:= '';

            for
i := 0 to Length(Result) - 1 do
               
ans := ans + Result[i] + _ifs(i = Length(Result) - 1, '', ',');

           
SetLength(Result, idx);
            for
i := 0 to idx - 2 do
               
IdStrings.SplitString(ans, ',', Result[i], ans);

           
Result[idx - 1] := ans;
       
end;
   
end
   
else
   
begin
       
if (Length(Result) = 1) and (Pos('-', Result[0]) = 3) then
            Result
:= StrUtils.SplitString(Result[0], ',')
        else
       
begin
            SetLength
(D2Res, 0);
           
SetLength(D2Res, Length(Result));

            for
i := 0 to Length(D2Res) - 1 do
               
D2Res[i] := StrUtils.SplitString(Result[i], ',');

           
SetLength(Result, 1);
           
Result[0] := '1';
       
end;
   
end;
end;

// Метод получения баланса
//
// без параметров
//
// возвращает баланс в виде строки или пустую строку в случае ошибки

function SMSC.get_balance: String;
var
   
bal: TStringDynArray;
begin
    bal
:= _smsc_send_cmd('balance', ''); // (balance) или (0, -error)

   
if SMSC_DEBUG then
       
if Length(bal) = 1 then
            _print_debug
('Сумма на счете: ' + bal[0])
        else
           
_print_debug('Ошибка №' + bal[1][2]);

    if
Length(bal) = 1 then
        Result
:= bal[0]
    else
       
Result := '';
end;

// ПРИВАТНЫЕ МЕТОДЫ
//
// Метод вызова запроса. Формирует URL и делает 3 попытки чтения

function SMSC._smsc_send_cmd(cmd: String; arg: String; files: TStringList = nil): TStringDynArray;
var
   
par: TIdMultiPartFormDataStream;
   
params: TStringDynArray;
   
aurl, _aurl, s, delim, VLeft, VRight: String;
   
cnt, i: Integer;
   
pf: TIdFormDataField;

begin
    arg
:= 'login=' + _urlencode(SMSC_LOGIN) + '&psw=' + _urlencode(SMSC_PASSWORD) + '&fmt=1&charset=' + SMSC_CHARSET + '&' + arg;
   
aurl := 'http://smscentre.com/sys/' + cmd + '.php';
   
_aurl := aurl;

   
with TIdHTTP.Create(nil) do
   
begin
        cnt
:= 0;

       
repeat
           
if cnt > 0 then
                aurl
:= StringReplace(_aurl, 'smscentre.com', 'www' + IntToStr(cnt) + '.smscentre.com', [rfReplaceAll])
            else
               
Inc(cnt);

            try
                if
SMSC_POST then
                begin
                    par
:= TIdMultiPartFormDataStream.Create;

                    for
i := 1 to files.Count do
                       
par.AddFile('File' + IntToStr(i), files.Strings[i-1], 'application/octet-stream');

                   
params := StrUtils.SplitString(arg, '&');

                    for
i := 1 to Length(params) do
                   
begin
                        IdStrings
.SplitString(params[i-1], '=', VLeft, VRight);
                       
pf := par.AddFormField(VLeft, VRight);
                       
pf.Charset := SMSC_CHARSET;
                       
pf.ContentTransfer := 'binary';
                   
end;

                   
s := Post(aurl, par);

                   
par.Destroy;
               
end
               
else
                     
s := Get(aurl + '?' + arg);
           
except
                s
:= '';
           
end;

           
Inc(cnt);
       
until (s <> '') or (cnt > 5);

        if
s = '' then
        begin
           
if SMSC_DEBUG then
                _print_debug
('Ошибка чтения адреса: ' + aurl + '?' + arg);

           
s := ','; // фиктивный ответ
       
end;

       
Destroy;
   
end;

   
delim := ',';

    if
cmd = 'status' then
    begin
        params
:= StrUtils.SplitString(arg, '&');

        for
i := 0 to Length(params) - 1 do
       
begin
            IdStrings
.SplitString(params[i], '=', VLeft, VRight);

            if (
VLeft = 'id') and (Pos('%2C', VRight) > 0) then // запятая в id - множественный запрос
               
delim := #10;
       
end;
   
end;

   
Result := StrUtils.SplitString(s, delim);
end;

// кодирование параметра в http-запросе

function SMSC._urlencode(str: String): String;
var
   
EncodeStr, UnsafeChars: String;
   
UStr: UTF8String;
   
i, j: Integer;

begin
    UnsafeChars
:= '!"#%&''*,:;<=>?[]^`{|} ';
   
EncodeStr := '';

    if
SMSC_POST then
        Result
:= str
   
else
   
begin
       
for i := 1 to Length(str) do
            if (
CharIsInSet(str, i, UnsafeChars) or not CharIsInSet(str, i, CharRange(Char(33), Char(126)))) then
            begin
                UStr
:= UTF8String(str[i]);

                for
j := 1 to Length(UStr) do
                   
EncodeStr := EncodeStr + '%' + IntToHex(Byte(UStr[j]), 2);
           
end
           
else
               
EncodeStr := EncodeStr + str[i];

       
Result := EncodeStr;
   
end;
end;

// вывод отладочной информации

procedure SMSC._print_debug(str: String);
begin
    with Application
do MessageBox(PChar(str), '');
end;

function
SMSC._ifs(cond: Boolean; val1: String; val2: String): String;
begin
   
if cond then
        Result
:= val1
   
else
       
Result := val2;
end;

end.

// Examples:
// var
// sms: SMSC;
// ret: TStringDynArray;
// balance: String;
// begin
// sms := SMSC.Create;
// ret := sms.send_sms('79999999999', 'Ваш пароль: 123', 1);
// ret := sms.send_sms('79999999999', 'http://smscentre.com'#13#10 + 'SMSCENTRE.COM', 0, '', 0, 0, '', 'maxsms=3');
// ret := sms.send_sms('79999999999', '0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101', 0, '', 0, 5);
// ret := sms.send_sms('79999999999', '', 0, '', 0, 3);
// ret := sms.send_sms('dest@mysite.com', 'Ваш пароль: 123', 0, 0, 0, 8, 'source@mysite.com', 'subj=Confirmation');
// ret := sms.get_sms_cost('79999999999', 'Вы успешно зарегистрированы!');
// sms.send_sms_mail('79999999999', 'Ваш пароль: 123', 0, '0101121000', 0, 1);
// ret := sms.get_status(12345, '79999999999');
// balance := sms.get_balance;
// sms.Destroy;
// end;

An example of using the library:
uses smsc_api;
...
var
sms: SMSC;
ret: TStringDynArray;
balance: String;
...
begin
...
sms := SMSC.Create;
...
ret := sms.send_sms('79999999999', 'Ваш пароль: 123', 1);
...
ret := sms.send_sms('79999999999', 'http://smscentre.com'#13#10 + 'SMSCENTRE.COM', 0, '', 0, 0, '', 'maxsms=3');
...
ret := sms.send_sms('79999999999', '0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101', 0, '', 0, 5);
...
ret := sms.send_sms('79999999999', '', 0, '', 0, 3);
...
ret := sms.get_sms_cost('79999999999', 'Вы успешно зарегистрированы!');
...
ret := sms.get_status(12345, '79999999999');
...
balance := sms.get_balance;
...
// отправка SMS через e-mail
sms.send_sms_mail('79999999999', 'Ваш пароль: 123');
...
sms.Destroy;
...
end;

For C++ Builder

Download the library file: smsc_api.cpp

Library source code:
// SMSCENTRE.COM API для C++ Builder (smscentre.com) версия 2.1 (03.07.2019)

#include <vcl.h>
#include <IdHTTP.hpp>
#include <IdMessage.hpp>
#include <IdSMTP.hpp>
#include <DateUtils.hpp>
#include <IdStrings.hpp>
# include <System.StrUtils.hpp>

// Константы с параметрами отправки
const char* SMSC_LOGIN = "login";            // логин клиента
const char* SMSC_PASSWORD = "password";        // пароль или MD5-хеш пароля в нижнем регистре
Boolean SMSC_POST = false;                    // использовать метод POST
const char* SMSC_CHARSET =
                           
#ifdef _DELPHI_STRING_UNICODE
                           
"utf-8";
                           
#else
                           
"windows-1251";
                           
#endif            // кодировка сообщения (utf-8 или koi8-r), по умолчанию используется windows-1251
const Boolean SMSC_DEBUG = false;            // флаг отладки

// Константы для отправки SMS по SMTP
const char* SMTP_FROM = "api@smscentre.com";        // e-mail адрес отправителя
const char* SMTP_SERVER = "send.smscentre.com";    // адрес smtp сервера
const char* SMTP_LOGIN = "";                // логин для smtp сервера
const char* SMTP_PASSWORD = "";                // пароль для smtp сервера

typedef DynamicArray < DynamicArray < String > > T2DStringDynArray;

class
SMSC {
public:
   
// Динамический двумерный строковый массив
   
T2DStringDynArray D2Res;

   
// Общедоступные методы класса SMSС
    //
    // Метод отправки SMS
    //
    // обязательные параметры:
    //
    // phones - список телефонов через запятую или точку с запятой
    // mes - отправляемое сообщение
    //
    // необязательные параметры:
    //
    // translit - переводить или нет в транслит
    // time - необходимое время доставки в виде строки (DDMMYYhhmm, h1-h2, 0ts, +m)
    // id - идентификатор сообщения. Представляет собой 32-битное число в диапазоне от 1 до 2147483647.
    // format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
    // sender - имя отправителя (Sender ID).
    // query - строка дополнительных параметров, добавляемая в URL-запрос ("valid=01:00&maxsms=3")
    // files - массив путей к файлам при отправке mms или e-mail сообщений
    //
    // возвращает массив (<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки
    // либо (<id>, -<код ошибки>) в случае ошибки

   
TStringDynArray send_sms(String phones, String mes, int translit = 0, String time = "", int id = 0, int format = 0, String sender = "", String query = "", TStringList *files = NULL)
    {
       
TStringDynArray m;

        if (
files != NULL)
           
SMSC_POST = true;

       
String formats[11] = {"flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1"};

       
m = _smsc_send_cmd("send", "cost=3&phones=" + _urlencode(phones) + "&mes=" + _urlencode(mes) + "&id=" + IntToStr(id) + "&translit=" + IntToStr(translit) +
                            (
format > 0 ? "&" + formats[format-1] : String("")) + (sender != "" ? "&sender=" + _urlencode(sender) : String("")) + (time != "" ? "&time=" +
                           
_urlencode(time) : String("")) + (query != "" ? "&" + query : String("")), files);

       
// (id, cnt, cost, balance) или (id, -error)

       
if (SMSC_DEBUG)
            if (
StrToInt(m[1]) > 0)
               
_print_debug("Сообщение отправлено успешно. ID: " + m[0] + ", всего SMS: " + m[1] +
                           
", стоимость: " + m[2] + ", баланс: " + m[3]);
            else
               
_print_debug("Ошибка №" + m[1].SubString(2, 1) + ", ID: " + m[0]);

        return
m;
    }

   
// SMTP версия метода отправки SMS

   
void send_sms_mail(String phones, String mes, int translit = 0, String time = "", int id = 0, int format = 0, String senderid = "")
    {
       
TIdMessage* msg = new TIdMessage(0);
       
TIdSMTP* idsmtp = new TIdSMTP(0);

       
idsmtp->Port = 25;
       
idsmtp->Host = SMTP_SERVER;

        if (
SMTP_LOGIN != "") {
           
idsmtp->Username = SMTP_LOGIN;
           
idsmtp->Password = SMTP_PASSWORD;
        }

       
msg->Recipients->EMailAddresses = "send@send.smscentre.com";
       
msg->From->Address = SMTP_FROM;
       
msg->ContentType = "text/plain";
       
msg->CharSet = SMSC_CHARSET;
       
SysLocale.PriLangID = LANG_SYSTEM_DEFAULT; // если не поставить, то Indy будет оборачивать в koi8-r заголовки
       
msg->Body->Add(SMSC_LOGIN + String(':') + SMSC_PASSWORD + String(':') + IntToStr(id) + String(':') + time + String(':') + IntToStr(translit) + String(',') + IntToStr(format) + String(',') + senderid + String(':') + phones + String(':') + mes);

       
idsmtp->Connect();
       
idsmtp->Send(msg);
       
idsmtp->Disconnect();
       
idsmtp->Free();

       
msg->Free();
    }

   
// Метод получения стоимости SMS
    //
    // обязательные параметры:
    //
    // phones - список телефонов через запятую или точку с запятой
    // message - отправляемое сообщение
    //
    // необязательные параметры:
    //
    // translit - переводить или нет в транслит
    // format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
    // sender - имя отправителя (Sender ID)
    // query - строка дополнительных параметров, добавляемая в URL-запрос ("list=79999999999:Ваш пароль: 123\n78888888888:Ваш пароль: 456")
    //
    // возвращает массив (<стоимость>, <количество sms>) либо (0, -<код ошибки>) в случае ошибки

   
TStringDynArray get_sms_cost(String phones, String mes, int translit = 0, int format = 0, String sender = "", String query = "")
    {
       
TStringDynArray m;

       
String formats[11] = {"flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1"};

       
m = _smsc_send_cmd("send", "cost=1&phones=" + _urlencode(phones) + "&mes=" + _urlencode(mes) + "&translit=" + IntToStr(translit) +
                            (
format > 0 ? "&" + formats[format-1] : String("")) + (sender != "" ? "&sender=" + _urlencode(sender) : String("")) + (query != "" ? "&" + query : String("")));

       
// (cost, cnt) или (0, -error)

       
if (SMSC_DEBUG)
            if (
StrToInt(m[1]) > 0)
               
_print_debug("Стоимость рассылки: " + m[0] + ". Всего SMS: " + m[1]);
            else
               
_print_debug("Ошибка №" + m[1].SubString(2, 1));

        return
m;
    }

   
// Метод проверки статуса отправленного SMS или HLR-запроса
    //
    // id - ID cообщения или список ID через запятую
    // phone - номер телефона или список номеров через запятую
    // all - вернуть все данные отправленного SMS, включая текст сообщения (0,1 или 2)
    //
    // возвращает массив (для множественного запроса возвращается массив с единственным элементом, равным 1. В этом случае статусы сохраняются в
    //                    двумерном динамическом массиве класса D2Res):
    //
    // для одиночного SMS-сообщения:
    // (<статус>, <время изменения>, <код ошибки доставки>)
    //
    // для HLR-запроса:
    // (<статус>, <время изменения>, <код ошибки sms>, <код IMSI SIM-карты>, <номер сервис-центра>, <код страны регистрации>, <код оператора>,
    // <название страны регистрации>, <название оператора>, <название роуминговой страны>, <название роумингового оператора>)
    //
    // при all = 1 дополнительно возвращаются элементы в конце массива:
    // (<время отправки>, <номер телефона>, <стоимость>, <sender id>, <название статуса>, <текст сообщения>)
    //
    // при all = 2 дополнительно возвращаются элементы <страна>, <оператор> и <регион>
    //
    // при множественном запросе (данные по статусам сохраняются в двумерном массиве D2Res):
    // если all = 0, то для каждого сообщения или HLR-запроса дополнительно возвращается <ID сообщения> и <номер телефона>
    //
    // если all = 1 или all = 2, то в ответ добавляется <ID сообщения>
    //
    // либо массив (0, -<код ошибки>) в случае ошибки

   
TStringDynArray get_status(String id, String phone, int all = 0)
    {
       
TIME_ZONE_INFORMATION TZInfo;
       
TStringDynArray m;
       
String ans;
       
int i;

       
m = _smsc_send_cmd("status", "phone=" + _urlencode(phone) + "&id=" + _urlencode(id) + "&all=" + IntToStr(all));

       
// (status, time, err, ...) или (0, -error)

       
if (id.Pos(",") == 0) {
            if (
SMSC_DEBUG)
                if ((
m[1] != "") && (StrToInt(m[1]) >= 0))
                {
                   
String ans = "Статус SMS = " + m[0];
                   
GetTimeZoneInformation(&TZInfo);

                    if (
StrToInt(m[1]) > 0)
                       
ans = ans + ", время изменения статуса - " + DateTimeToStr(UnixToDateTime(StrToInt64(m[1]) - TZInfo.Bias * 60));
                   
_print_debug(ans);
                }
                else
                   
_print_debug("Ошибка №" + m[1].SubString(2, 1));

           
int idx = all == 1 ? 9 : 12;

            if (
all > 0 && m.Length > idx && (m.Length < idx + 5 || m[idx + 5] != "HLR"))
            {
               
ans = "";

                for (
i = 0; i < m.Length; i++)
                   
ans += m[i] + (i == m.Length - 1 ? "" : ",");

               
m.Length = idx;

                for (
i = 0; i < idx - 1; i++)
                   
SplitString(ans, ",", m[i], ans);

               
m[idx - 1] = ans;
            }
        }
        else {
            if (
m.Length == 1 && m[0].Pos("-") == 3)
                return
SplitString(m[0], ",");

           
D2Res.Length = 0;
           
D2Res.Length = m.Length;

            for (
i = 0; i < D2Res.Length; i++)
               
D2Res[i] = SplitString(m[i], ",");

           
m.Length = 1;
           
m[0] = "1";
        }

        return
m;
    }

   
// Метод получения баланса
    //
    // без параметров
    //
    // возвращает баланс в виде строки или пустую строку в случае ошибки

   
String get_balance(void)
    {
       
TStringDynArray m;

       
m = _smsc_send_cmd("balance", ""); // (balance) или (0, -error)

       
if (SMSC_DEBUG)
            if (
m.Length == 1)
               
_print_debug("Сумма на счете: " + m[0]);
            else
               
_print_debug("Ошибка №" + m[1].SubString(2, 1));

        return
m.Length == 1 ? m[0] : String("");
    }

private:
   
// Приватные методы класса SMSС
    //
    // Метод вызова запроса. Формирует URL и делает 3 попытки чтения

   
TStringDynArray _smsc_send_cmd(String cmd, String arg, TStringList *files = NULL)
    {
       
TIdHTTP* idhttp = new TIdHTTP(0);
       
String s, delim, pl, pr, url, _url;
       
int i, cnt = 0;

       
arg = "login=" + _urlencode(SMSC_LOGIN) + "&psw=" + _urlencode(SMSC_PASSWORD) + "&fmt=1&charset=" + String(SMSC_CHARSET) + "&" + arg;
       
url = _url = "http://smscentre.com/sys/" + cmd + ".php";

        do
        {
            if (
cnt++)
               
url = StringReplace(_url, "smscentre.com", "www" + IntToStr(cnt) + ".smscentre.com", TReplaceFlags() << rfReplaceAll);

            try {
                if (
SMSC_POST) {
                       
TIdMultiPartFormDataStream *par = new TIdMultiPartFormDataStream();

                        for (
i = 0; i < files->Count; i++)
                           
par->AddFile("File" + IntToStr(i), files->Strings[i], "application/octet-stream");

                       
TStringDynArray params = SplitString(arg, "&");
                       
String VLeft, VRight;
                       
TIdFormDataField *pf;

                        for (
i = 0; i < params.Length; i++) {
                           
SplitString(params[i], "=", VLeft, VRight);
                           
pf = par->AddFormField(VLeft, VRight);
                           
pf->Charset = SMSC_CHARSET;
                           
pf->ContentTransfer = "binary";
                        }

                       
s = idhttp->Post(url, par);

                       
delete par;
                       
par = NULL;
                    }
                else
                   
s = idhttp->Get(url + "?" + arg);
            }
            catch (...) {
               
s = "";
            }
        }
        while ((
s == "") && (cnt < 5));

        if (
s == "") {
            if (
SMSC_DEBUG)
               
_print_debug("Ошибка чтения адреса: " + url + "?" + arg);

           
s = ","; // фиктивный ответ
       
}

       
delete idhttp;
       
idhttp = NULL;

       
delim = ",";

        if (
cmd == "status") {
           
TStringDynArray par = SplitString(arg, "&");

            for (
i = 0; i < par.Length; i++) {
               
SplitString(par[i], "=", pl, pr);

                if (
pl == "id" && pr.Pos("%2C") > 1) // запятая в id - множественный запрос
                   
delim = "\n";
            }
        }

        return
SplitString(s, delim);

    }

   
// кодирование параметра в http-запросе

   
String _urlencode(String str)
    {
        if (
SMSC_POST)
            return
str;

       
String UnsafeChars = "!"#%&'*,:;<=>?[]^`{|} ";

       
String EncodeStr = "";
       
UTF8String UStr;
       
int i, j;

        for (
i = 1; i <= str.Length(); i++)
            if (
CharIsInSet(str, i, UnsafeChars) || !CharIsInSet(str, i, CharRange(Char(33), Char(126)))) {
               
UStr = str[i];

                for (
j = 1; j <= UStr.Length(); j++)
                   
EncodeStr += "%" + IntToHex(Byte(UStr[j]), 2);
            }
            else
               
EncodeStr += str[i];

        return
EncodeStr;
    }

   
// вывод отладочной информации

   
void _print_debug(String str)
    {
       
ShowMessage(str);
    }

};

// Examples:
// TStringDynArray ret;
// SMSC* sms = new SMSC;
// String balance;
//
// ret = sms->send_sms("79999999999", "Ваш пароль: 123", 1);
// ret = sms->send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, "", 0, 0, "", "maxsms=3");
// ret = sms->send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, "", 0, 5);
// ret = sms->send_sms("79999999999", "", 0, "", 0, 3);
// ret = sms->send_sms("dest@mysite.com", "Ваш пароль: 123", 0, 0, 0, 8, "source@mysite.com", "subj=Confirmation");
// ret = sms->get_sms_cost("79999999999", "Вы успешно зарегистрированы!");
// sms->send_sms_mail("79999999999", "Ваш пароль: 123", 0, "0101121000");
// ret = sms->get_status(12345, "79999999999");
// balance = sms->get_balance();
//
// delete sms;

An example of using the library:
#include <smsc_api.cpp>
...
TStringDynArray ret;
SMSC* sms = new SMSC;
String balance;
...
ret = sms->send_sms("79999999999", "Ваш пароль: 123", 1);
...
ret = sms->send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, "", 0, 0, "", "maxsms=3");
...
ret = sms->send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, "", 0, 5);
...
ret = sms->send_sms("79999999999", "", 0, "", 0, 3);
...
sms->send_sms_mail("79999999999", "Ваш пароль: 123", 0, "0101121000");
...
ret = sms->get_status(12345, "79999999999");
...
balance = sms->get_balance();
...
ret = sms->get_sms_cost("79999999999", "Вы успешно зарегистрированы!");
...
delete sms;

For Microsoft Visual C++

Download the library file: smsc_api_vc.cpp

Library source code:
// SMSCENTRE.COM API для Microsoft Visual C++ (smscentre.com) версия 1.3 (03.07.2019)

#define _AFXDLL

#include <afxinet.h>
#include <vector>
#include <Shlwapi.h>
#include <Strsafe.h>

using namespace std;

// Константы с параметрами отправки
const CString SMSC_LOGIN = "login";            // логин клиента
const CString SMSC_PASSWORD = "password";    // пароль
const bool SMSC_HTTPS = false;                // использовать протокол HTTPS
const bool SMSC_POST = false;                // использовать метод POST
const CString SMSC_CHARSET =
                           
#if defined _UNICODE || defined UNICODE
                               
"utf-8";
                           
#else
                               
"windows-1251";
                           
#endif            // кодировка сообщения (utf-8 или koi8-r), по умолчанию используется windows-1251
const bool SMSC_DEBUG = false;                // флаг отладки

class SMSC {
public:
   
// Общедоступные методы класса SMSС
    //
    // Метод отправки SMS
    //
    // обязательные параметры:
    //
    // phones - список телефонов через запятую или точку с запятой
    // message - отправляемое сообщение
    //
    // необязательные параметры:
    //
    // translit - переводить или нет в транслит
    // time - необходимое время доставки в виде строки (DDMMYYhhmm, h1-h2, 0ts, +m)
    // id - идентификатор сообщения. Представляет собой 32-битное число в диапазоне от 1 до 2147483647.
    // format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
    // sender - имя отправителя (Sender ID).
    // query - строка дополнительных параметров, добавляемая в URL-запрос ("valid=01:00&maxsms=3")
    //
    // возвращает массив (<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки
    // либо (<id>, -<код ошибки>) в случае ошибки

   
vector<CString> send_sms(CString phones, CString message, int translit = 0, CString time = "", int id = 0, int format = 0, CString sender = "", CString query = "")
    {
       
CString tt, ir;
       
CString formats[11] = {"flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1"};
       
ir.Format((CString)"%i", id);
       
tt.Format((CString)"%i", translit);

       
vector<CString> m = _smsc_send_cmd("send", "cost=3&phones=" + (CString)_urlencode(phones) +
           
"&mes=" + (CString)_urlencode(message) + "&id=" + ir + "&translit=" + tt + (format > 0 ? "&" + formats[format - 1] : "") +
            (
sender != "" ? "&sender=" + (CString)_urlencode(sender) : "") + (time != "" ? "&time=" + (CString)_urlencode(time) : "") +
            (
query != "" ? "&" + query : ""));

       
// (id, cnt, cost, balance) или (id, -error)

       
if (SMSC_DEBUG)
            if (
m[1] > "0")
               
_print_debug("Сообщение отправлено успешно. ID: " + m[0] + ", всего SMS: " + m[1] +
                           
", стоимость: " + m[2] + ", баланс: " + m[3]);
            else
               
_print_debug("Ошибка №" + m[1].Mid(1, 1) + ", ID: " + m[0]);

        return
m;
    };

   
// Метод получения стоимости SMS
    //
    // обязательные параметры:
    //
    // phones - список телефонов через запятую или точку с запятой
    // message - отправляемое сообщение
    //
    // необязательные параметры:
    //
    // translit - переводить или нет в транслит
    // format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
    // sender - имя отправителя (Sender ID)
    // query - строка дополнительных параметров, добавляемая в URL-запрос ("list=79999999999:Ваш пароль: 123\n78888888888:Ваш пароль: 456")
    //
    // возвращает массив (<стоимость>, <количество sms>) либо (0, -<код ошибки>) в случае ошибки

   
vector<CString> get_sms_cost(CString phones, CString message, int translit = 0, int format = 0, CString sender = "", CString query = "")
    {
       
CString tt;

       
CString formats[11] = {"flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1"};
       
tt.Format((CString)"%i", translit);

       
vector<CString> m = _smsc_send_cmd("send", "cost=1&phones=" + (CString)_urlencode(phones) +
           
"&mes=" + (CString)_urlencode(message) + "&translit=" + tt + (format > 0 ? "&" + formats[format-1] : "") +
            (
sender != "" ? "&sender=" + (CString)_urlencode(sender) : "") + (query != "" ? "&" + query : ""));

       
// (cost, cnt) или (0, -error)

       
if (SMSC_DEBUG)
            if (
m[1] > "0")
               
_print_debug("Стоимость рассылки: " + m[0] + ". Всего SMS: " + m[1]);
            else
               
_print_debug("Ошибка №" + m[1].Mid(1, 1));

        return
m;
    };

   
// Метод проверки статуса отправленного SMS или HLR-запроса
    //
    // id - ID cообщения
    // phone - номер телефона
    //
    // возвращает массив:
    // для отправленного SMS (<статус>, <время изменения>, <код ошибки sms>)
    // для HLR-запроса (<статус>, <время изменения>, <код ошибки sms>, <код IMSI SIM-карты>, <номер сервис-центра>, <код страны регистрации>,
    // <код оператора абонента>, <название страны регистрации>, <название оператора абонента>, <название роуминговой страны>,
    // <название роумингового оператора>)
    //
    // При all = 1 дополнительно возвращаются элементы в конце массива:
    // (<время отправки>, <номер телефона>, <стоимость>, <sender id>, <название статуса>, <текст сообщения>)
    //
    // либо (0, -<код ошибки>) в случае ошибки

   
vector<CString> get_status(int id, CString phone, int all = 0)
    {
       
CString ans, ir, tr;
       
int i;

       
ir.Format((CString)"%i", id);
       
tr.Format((CString)"%i", all);

       
vector<CString> m = _smsc_send_cmd("status", "phone=" + (CString)_urlencode(phone) + "&id=" + ir + (all > 0 ? "&all=" + tr : ""));

       
// (status, time, err) или (0, -error)

       
if (SMSC_DEBUG)
            if ((
m[1] != "") && (m[1] >= "0"))
            {
               
time_t tm = _ttoi(m[1]);

               
struct tm ltm;
               
TCHAR st[100] = {0};

               
localtime_s(&ltm, &tm);
               
_stprintf_s(st, 100, (CString)"%2d.%2d.%d %2d:%2d:%2d", ltm.tm_mday, (ltm.tm_mon) + 1, (ltm.tm_year) + 1900, ltm.tm_hour, ltm.tm_min, ltm.tm_sec);

               
_print_debug( "Статус SMS = " + m[0] + ", время изменения статуса - " + st);
            }
            else
               
_print_debug("Ошибка №" + m[1].Mid(1, 1));

        if (
all == 1 && m.size() > 9 && (m.size() < 14 || m[14] != "HLR"))
        {
           
ans = m[0];

            for (
i = 1; i < (int)m.size(); i++)
               
ans += "," + m[i];

           
m.clear();
           
int cp = 0;

            for (
i = 0; i < 8; i++)
               
m.push_back(ans.Tokenize((CString)",", cp));
           
m.push_back(ans.Mid(cp));
        }

        return
m;
    };

   
// Метод получения баланса
    //
    // без параметров
    //
    // возвращает баланс в виде строки или пустую строку в случае ошибки

   
CString get_balance(void)
    {
       
vector<CString> m = _smsc_send_cmd("balance", ""); // (balance) или (0, -error)

       
if (SMSC_DEBUG)
            if (
m.size() == 1)
               
_print_debug("Сумма на счете: " + m[0]);
            else
               
_print_debug("Ошибка №" + m[1].Mid(1, 1));

        return
m.size() == 1 ? m[0] : "";
    };

private:
   
// Приватные методы класса SMSС
    //
    // Метод вызова запроса. Формирует URL и делает 3 попытки чтения

   
vector<CString> _smsc_send_cmd(CString cmd, CString arg)
    {
       
vector<CString> m;
       
int cnt = 0;
       
CString url, _url;

       
arg = "login=" + (CString)_urlencode(SMSC_LOGIN) + "&psw=" + (CString)_urlencode(SMSC_PASSWORD) + "&fmt=1&charset=" + SMSC_CHARSET + "&" + arg;
       
url = _url = (SMSC_HTTPS ? "https" : "http") + (CString)"://smscentre.com/sys/" + cmd + ".php";

       
CString sr, ot, res, strcnt;   
       
INTERNET_PORT pt;
       
DWORD st;
       
char sz[1024] = {0};

       
CInternetSession ses((CString)"Visual C++", PRE_CONFIG_INTERNET_ACCESS);
       
CHttpConnection *ds;

       
AfxParseURL(url + '?' + arg, st, sr, ot, pt);

       
ds = ses.GetHttpConnection(sr, NULL, pt);

        do
        {
            if (
cnt++) {
               
strcnt.Format((CString)"%i", cnt);
               
url = _url;
               
url.Replace((CString)"smscentre.com/", (CString)"www" + strcnt + ".smscentre.com/");

               
AfxParseURL(url + '?' + arg, st, sr, ot, pt);
               
ds = ses.GetHttpConnection(sr, NULL, pt);
            }

           
CHttpFile *pc;

            try {
                if (
SMSC_POST || arg.GetLength() > 2000)
                {
                   
pc = ds->OpenRequest(0, "/sys/" + cmd + ".php", NULL, 1, NULL, NULL, SMSC_HTTPS ? INTERNET_FLAG_SECURE : INTERNET_FLAG_EXISTING_CONNECT);
                   
pc->SendRequest((CString)"Content-Type: application/x-www-form-urlencoded", (LPVOID)(LPCSTR)(CStringA)arg, arg.GetLength());
                }
                else
                {
                   
pc = ds->OpenRequest(1, ot, NULL, 1, NULL, NULL, SMSC_HTTPS ? INTERNET_FLAG_SECURE : INTERNET_FLAG_EXISTING_CONNECT);
                   
pc->SendRequest();
                }

               
pc->Read(sz, 1024);
            }
            catch (
CInternetException* e) {
            }

           
res = sz;

           
pc->Close();
        }
        while ((
res == "") && (cnt < 5));

        if (
res == "")
        {
            if (
SMSC_DEBUG)
               
_print_debug("Ошибка чтения адреса: " + url + "?" + arg);

           
res = ","; // фиктивный ответ
       
}

       
ds->Close();
       
ses.Close();

        return
_explode(res);
    };

   
// кодирование параметра в http-запросе

   
CStringA _urlencode(CString s_in)
    {
       
#if defined _UNICODE || defined UNICODE
           
const WCHAR *pt_utf16 = s_in;
            const
size_t cch_utf16m = INT_MAX - 1;
           
size_t cch_utf16;
       
            ::
StringCchLengthW(pt_utf16, cch_utf16m, &cch_utf16);

            ++
cch_utf16;

           
int cb_utf8 = ::WideCharToMultiByte(CP_UTF8, WC_ERR_INVALID_CHARS, pt_utf16, static_cast<int>(cch_utf16), NULL, 0, NULL, NULL);

           
CStringA s_utf8;
           
CHAR *pt_utf8 = s_utf8.GetBuffer(cb_utf8);

            ::
WideCharToMultiByte(CP_UTF8, WC_ERR_INVALID_CHARS, pt_utf16, static_cast<int>(cch_utf16), pt_utf8, cb_utf8, NULL, NULL);

           
s_utf8.ReleaseBuffer();

            return
_encode(s_utf8);
       
#else
           
return _encode(s_in);
       
#endif
   
};

   
CStringA _encode(CStringA s_in)
    {
       
CStringA s_out;

        for (
int i = 0; i < s_in.GetLength(); i++)
        {
           
CHAR ch = s_in[i];

            if ((
ch >= '0' && ch <= '9') || (ch >= 'A' && ch <= 'Z') || (ch >= 'a' && ch <= 'z'))
               
s_out.AppendChar(ch);
            else
            {
               
BYTE ccv = static_cast<BYTE>(ch);

               
CHAR eb[4];
               
sprintf_s(eb, sizeof(eb), "%%%02X", ccv);

               
s_out.Append(eb);
            }
        }

        return
s_out;
    };

   
// вывод отладочной информации

   
void _print_debug(CString str)
    {
       
MessageBox(NULL, str, NULL, MB_OK);
    };

   
// разделение строки, возвращаемой сервером, на массив строк

   
vector<CString> _explode(CString str)
    {
       
int cp = 0;
       
vector<CString> m;

        do
        {
           
m.push_back(str.Tokenize((CString)",", cp));
        }
        while (
m.back() != "");

       
m.pop_back();

        return
m;
    };
};

// Examples:
// SMSC *sms = new SMSC();
// СString balance;
// vector<CString> ret;
//
// ret = sms->send_sms("79999999999", "Ваш пароль: 123", 1);
// ret = sms->send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, "", 0, 0, "", "maxsms=3");
// ret = sms->send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, "", 0, 5);
// ret = sms->send_sms("79999999999", "", 0, "", 0, 3);
// ret = sms->get_sms_cost("79999999999", "Вы успешно зарегистрированы!");
// ret = sms->get_status(12345, "79999999999");
// balance = sms->get_balance();
//
// delete sms;

An example of using the library:
#include "smsc_api_vc.cpp"
...
SMSC *sms = new SMSC();
СString balance;
vector<CString> ret;
...
ret = sms->send_sms("79999999999", "Ваш пароль: 123", 1);
...
ret = sms->send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, "", 0, 0, "", "maxsms=3");
...
ret = sms->send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, "", 0, 5);
...
ret = sms->send_sms("79999999999", "", 0, "", 0, 3);
...
ret = sms->get_sms_cost("79999999999", "Вы успешно зарегистрированы!");
...
ret = sms->get_status(12345, "79999999999");
...
balance = sms->get_balance();
...
delete sms;

For NodeJS

Download the library file: smsc_api.js

Library source code:
// SMSCENTRE.COM API (smscentre.com) версия 1.2 (08.11.2021)

var Api = function () {
   
'use strict';
    var
http = require('http');
    var
qs = require('querystring');
    var
FormData = require('form-data');
    var
fs = require('fs');

    var
ssl = false,
       
def_fmt = 3,
       
host = 'smscentre.com',
       
charset = 'utf-8';

    var
login = "login",
       
password = "password",
       
sender,
       
log = console.log;

    var
PHONE_TYPES = {
       
'string' : 1,
       
'number' : 2
   
};

    var
get_host = function (www) {
        if (!
www) www = '';
        return (
ssl? 'https://' : 'http://') + www + host + '/sys/';
    };

    var
isInArr = function (arr, val) {
        if (!
arr || !arr.length) return false;
        return
arr.indexOf(val) !== -1;
    };

    var
convert_data = function (data, notConvert) {
        if (
data.fmt) delete data.fmt;
        if (
data.msg) {
           
data.mes = data.msg;
           
delete data.msg;
        } if (
data.message) {
           
data.mes = data.message;
           
delete data.message;
        } if (
data.phone && !isInArr(notConvert, 'phone')) {
           
data.phones = data.phone;
           
delete data.phone;
        } if (
data.number) {
           
data.phones = data.number;
           
delete data.number;
        }

        if (
data.list) {
            var list =
'';
            for (var
i in data.list) {
                list +=
i + ':' + data.list[i]+'\n';
            }
           
data.list = list;
           
delete data.mes;
        }

        if (
data.phones && !(typeof data.phones in PHONE_TYPES)) data.phones = data.phones.join(',');
    };

    var
convert_files = function (form, data) {
        if (!
data.files) return;

        if (
typeof data.files === 'string') {
            var
f = data.files;
            var
bin = fs.readFileSync(f);
           
form.append(i, bin, {
               
filename : f
           
});
            return;
        }

        for (var
i in data.files) {
            var
f = data.files[i];
            var
bin = fs.readFileSync(f);
           
form.append(i, bin, {
               
filename : f
           
});
        }

       
delete data.files;
    };

    var
read_url = function (prs, clb, notConvert) {
        var
fmt = prs.fmt ? prs.fmt : def_fmt;

        var
fd = new FormData();
       
fd.append('fmt', fmt);
       
fd.append('login', login);
       
fd.append('psw', password);
       
fd.append('charset', charset);
        if (
prs.type) fd.append(prs.type, 1);

        if (
prs.data) {
           
convert_data(prs.data, notConvert);

            if (
prs.data.files) {
               
convert_files(fd, prs.data);
            }

            for (var
i in prs.data) {
               
fd.append(i, prs.data[i]);
            }
        }

        var
www = '';
        var
count = 0;
        var
submit = function () {
           
fd.submit(get_host(www) + prs.file, function (err, res) {

                if (
err) {
                    if (
count++ < 5) {
                       
www = 'www'+(count !== 1 ? count : '')+'.';
                       
submit();
                    }
                    else {
                            var
error = {
                           
error : "Connection Error",
                           
error_code : 100
                       
};
                       
clb(error, JSON.stringify(error), error.error, error.error_code);
                    }
                    return;
                }

               
res.setEncoding(charset);
               
                var
full_data = '';

               
res.on('data', function (data) {
                   
full_data += data;
                });

               
res.on('end', function (data) {
                    if (
clb) {
                        var
d = JSON.parse(full_data);
                       
clb(d, full_data, d.error_code ? d.error : null, d.error_code ? d.error_code : null);
                    }
                });

            });
        };

       
submit();
        return;
    };

   
// Конфигурирование
   
this.configure = function (prs) {
       
ssl = !!prs.ssl;
       
login = prs.login;
       
password = prs.password;
        if (
prs.charset) charset = prs.charset;
    };

   
// Отправка сообщения любого типа (data — объект, включающий параметры отправки. Подробнее смотрите в документации к API)
   
this.send = function (type, data, clb) {
        if (
typeof data !== 'object') data = {};
        var
opts = {
           
file : 'send.php',
           
data : data
       
};
       
opts['type'] = type;
       
read_url(opts, clb);
    };

   
// Отправка простого SMS сообщения
   
this.send_sms = function (data, clb) {
        if (
typeof data !== 'object') data = {};
       
read_url({
           
file : 'send.php',
           
data : data
       
}, clb);
    };

   
// Получение статуса сообщения
   
this.get_status = function (data, clb) {
        if (
data.phones) {
           
data.phone = data.phones;
           
delete data.phones;
        } if (
data.number) {
           
data.phone = data.number;
           
delete data.number;
        }

        if (
data.phone && !(typeof data.phone in PHONE_TYPES)) {
           
data.phone = data.phone.join(',');
        }

       
read_url({
           
file : 'status.php',
           
data : data
       
}, clb, ['phone']);
    };

   
// Получение баланса
   
this.get_balance = function (clb) {
       
read_url({
           
file : 'balance.php',
           
data : {
               
cur : 1
           
}
        }, function (
b, r, e, c) {
           
clb(e ? 0 : b.balance, r, e, c);
        });
    };

   
// Получение стоимости сообщения
   
this.get_sms_cost = function (data, clb) {
        if (
typeof data !== 'object') data = {};
        if (!
data.cost) data.cost = 1;
       
read_url({
           
file : 'send.php',
           
data : data
       
}, function (b, r, e, c) {
           
clb(e ? 0 : b.cost, r, e, c);
        });
    };

   
// Запрос к API
   
this.raw = function (file, data, clb) {
       
read_url({
           
file : file,
           
data : data
       
}, clb);
    };

   
// Тестирование подключения и данных авторизации
   
this.test = function (clb) {
       
read_url({
           
file : 'balance.php'
       
}, function (d, r, err) {
           
clb(err);
        });
    };

};

module.exports = new Api();

An example of using the library:
var smsc = require('./smsc/smsc.js');

smsc.configure({
   
login : 'alex',
   
password : '123',
   
//ssl : true/false,
    //charset : 'utf-8',
});

// Проверка авторизации
smsc.test(function (err) {
    if (
err) return console.log('error: ' + err);
    ...
});

// Отправка e-mail
smsc.send('mail', {
   
phones : 'alex@mysite.ru',
   
mes : 'Тестовое сообщение',
   
subj : 'Тема сообщения',
   
sender : 'alex2@mysite.ru',
}, function (
data, raw, err, code) {
    if (
err) return console.log(err, 'code: '+code);
   
console.log(data); // object
    // console.log(raw); // string in JSON format
});

// Отправка MMS
smsc.send('mms', {
   
phones : '79999999999',
   
mes : 'Тестовое сообщение',
   
fmt : 2,
   
files : [
       
'files/123.png'
   
]
}, function (
data, raw, err, code) {
    if (
err) return console.log(err, 'code: '+code);
   
console.log(data); // object
    // console.log(raw); // string in JSON format
});

// Отправка списка SMS сообщений
smsc.send_sms({
    list : {
       
'79999999999' : 'Hello, Alex!',
       
'79999999999' : 'Hello, Petr!'
   
}
}, function (
data, raw, err, code) {
    if (
err) return console.log(err, 'code: '+code);
   
console.log(data); // object
   
console.log(raw); // string in JSON format
});

// Отправка SMS
smsc.send_sms({
   
phones : ['79999999999', '79999999999'],
   
mes : 'Привет!'
}, function (data, raw, err, code) {
    if (
err) return console.log(err, 'code: '+code);
   
console.log(data); // object
   
console.log(raw); // string in JSON format
});

// Обращение к скриптам API
smsc.raw('send.php', {
   
phones : '79999999999,79999999999',
   
mes : 'Hello!'
}, function (data, raw, err, code) {
if (
err) return console.log(err, 'code: '+code);
   
console.log(data); // object
   
console.log(raw); // string in JSON format
});

// Получение баланса
smsc.get_balance(function (balance, raw, err, code) {
if (
err) return console.log(err, 'code: '+code);
   
console.log(balance);
});

// Получение статуса сообщений
smsc.get_status({
   
phones : 79999999999,
   
id : 111,
   
all : 1
}, function (status, raw, err, code) {
if (
err) return console.log(err, 'code: '+code);
   
console.log(status);
});

// Получение стоимости сообщений
smsc.get_sms_cost({
   
phones : '79999999999',
   
mes : 'Hello, World!',
   
cost : 1 // default 1
}, function (status, raw, err, code) {
if (
err) return console.log(err, 'code: '+code);
   
console.log(raw);
});

For C

Download the library file: smsc_api.c

Library source code:
/*
SMSCENTRE.COM cLib smsc API v. 0.0.2 (03.07.2019)
*/

#include <stdio.h>
#include <stdlib.h>
#include <curl/curl.h>
#include <string.h>

#ifndef SMSC_API_H
#define SMSC_API_H

#define UNICODE
// Константы с параметрами отправки

static char* const    SMSC_LOGIN = "login";// логин клиента
static char* const    SMSC_PASSWORD = "password";// пароль
static char const    SMSC_HTTPS = 1;// использовать протокол HTTPS
static char        SMSC_POST = 0;// использовать метод POST
static char* const    SMSC_CHARSET =
           
#if defined _UNICODE || defined UNICODE
               
"utf-8";
           
#else
               
"windows-1251";
           
#endif // кодировка сообщения (utf-8 или koi8-r), по умолчанию используется windows-1251
static char const SMSC_DEBUG = 1; // флаг отладки

// Константы для отправки SMS по SMTP
static char* const SMTP_FROM = "api@smscentre.com";        // e-mail адрес отправителя
static char* const SMTP_SERVER = "send.smscentre.com";    // адрес smtp сервера
static char* const SMTP_LOGIN = "";            // логин для smtp сервера
static char* const SMTP_PASSWORD = "";            // пароль для smtp сервера

typedef char* string_t;

// Функция отправки SMS
//
// обязательные параметры:
//
// phones - список телефонов через запятую или точку с запятой
// message - отправляемое сообщение
//
// необязательные параметры:
//
// translit - переводить или нет в транслит (1,2 или 0)
// time - необходимое время доставки в виде строки (DDMMYYhhmm, h1-h2, 0ts, +m)
// id - идентификатор сообщения. Представляет собой 32-битное число в диапазоне от 1 до 2147483647.
// format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
// sender - имя отправителя (Sender ID).
// query - строка дополнительных параметров, добавляемая в URL-запрос ("valid=01:00&maxsms=3&tz=2")
// files - массив путей к файлам для отправки mms или e-mail сообщений
//
// возвращает <id>, <количество sms>, <стоимость>, <баланс> в случае успешной отправки
// либо <id>, -<код ошибки> в случае ошибки

string_t send_sms (string_t phones, string_t message, int translit, string_t time, int id, int format, string_t sender, string_t query, string_t files);

// SMTP версия метода отправки SMS
void send_sms_mail(string_t phones, string_t mes, int translit, string_t time, int id, int format, string_t sender);

// Получение стоимости SMS
//
// обязательные параметры:
//
// phones - список телефонов через запятую или точку с запятой
// message - отправляемое сообщение
//
// необязательные параметры:
//
// translit - переводить или нет в транслит
// format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
// sender - имя отправителя (Sender ID)
// query - строка дополнительных параметров, добавляемая в URL-запрос ("list=79999999999:Ваш пароль: 123\n78888888888:Ваш пароль: 456")
//
// возвращает <стоимость>, <количество sms> либо 0, -<код ошибки> в случае ошибки

string_t get_sms_cost(string_t phones, string_t mes, int translit, int format, string_t sender, string_t query);

// Проверка статуса отправленного SMS или HLR-запроса
//
// id - ID cообщения или список ID через запятую
// phone - номер телефона или список номеров через запятую
// all - вернуть все данные отправленного SMS, включая текст сообщения (0,1 или 2)
//
//
// для одиночного SMS-сообщения:
// <статус>, <время изменения>, <код ошибки доставки>
//
// для HLR-запроса:
// <статус>, <время изменения>, <код ошибки sms>, <код IMSI SIM-карты>, <номер сервис-центра>, <код страны регистрации>, <код оператора>,
// <название страны регистрации>, <название оператора>, <название роуминговой страны>, <название роумингового оператора>
//
// при all = 1 дополнительно возвращаются элементы:
// <время отправки>, <номер телефона>, <стоимость>, <sender id>, <название статуса>, <текст сообщения>
//
// при all = 2 дополнительно возвращаются элементы <страна>, <оператор> и <регион>
//
// если all = 0, то для каждого сообщения или HLR-запроса дополнительно возвращается <ID сообщения> и <номер телефона>
//
// если all = 1 или all = 2, то в ответ добавляется <ID сообщения>
//
// либо 0, -<код ошибки> в случае ошибки

string_t get_status(string_t id, string_t phone, int all);

// Получение баланса
//
// без параметров
//
// возвращает баланс в виде строки или пустую строку в случае ошибки

string_t get_balance(void);

void _print_debug(string_t str);
string_t _urlencode(string_t str);
string_t _urldecode(string_t str);
string_t _smsc_send_cmd(string_t cmd, string_t arg, string_t files);

#endif /* SMSC_API_H */

string_t send_sms (string_t phones, string_t message, int translit, string_t time, int id, int format, string_t sender, string_t query, string_t files) {
   
string_t res=NULL, arg=NULL;
   
   
char formats[][11] = {"&flash=1", "&push=1", "&hlr=1", "&bin=1", "&bin=2", "&ping=1", "&mms=1", "&mail=1", "&call=1", "&viber=1", "&soc=1"};
   
   
asprintf(&arg, "cost=3&phones=%s%s%s&translit=%d&id=%d%s%s%s%s%s%s%s", _urlencode(phones),
                   
message ? "&mes=" : "", message ? _urlencode(message) : "",
                   
translit, id,
                   
format > 0 ? formats[format - 1] : "",
                   
sender ? "&sender=" : "", sender ? _urlencode(sender) : "",
                   
time ? "&time=" : "", time ? _urlencode(time) : "",
                   
query ? "&" : "", query ? query : "");

    if (
SMSC_DEBUG)
       
printf("%s\n",arg);
   
res = _smsc_send_cmd("send", arg, files);
   
free(arg);
    return
res;
}

void send_sms_mail(string_t phones, string_t mes, int translit, string_t time, int id, int format, string_t sender) {
   
CURL *curl;
   
CURLcode res = CURLE_OK;
   
struct curl_slist *recipients = NULL;

   
curl = curl_easy_init();
   
string_t mail_body;
   
   
asprintf(&mail_body,"%s:%s:%d:%s:%d,%d,%s:%s:%s", SMSC_LOGIN, SMSC_PASSWORD, id, time, translit, format, sender, phones, mes);
    if (
SMSC_DEBUG)
       
printf("%s\n",mail_body);
   
    if (
curl) {
       
curl_easy_setopt(curl, CURLOPT_URL, SMTP_SERVER);
       
recipients = curl_slist_append(recipients, SMTP_FROM);
       
curl_easy_setopt(curl, CURLOPT_MAIL_RCPT, recipients);
       
res = curl_easy_perform(curl);
        if (
res != CURLE_OK)
           
fprintf(stderr, "curl_easy_perform() failed: %s\n", curl_easy_strerror(res));
       
       
curl_slist_free_all(recipients);
       
curl_easy_cleanup(curl);
    }
   
}

string_t get_sms_cost(string_t phones, string_t mes, int translit, int format, string_t sender, string_t query) {
   
string_t res, arg;
   
char formats[][11] = {"&flash=1", "&push=1", "&hlr=1", "&bin=1", "&bin=2", "&ping=1", "&mms=1", "&mail=1", "&call=1", "&viber=1", "&soc=1"};

   
asprintf(&arg, "cost=1&phones=%s&mes=%s&translit=%d%s%s%s%s%s", _urlencode(phones), _urlencode(mes), translit,
                   
format>0 ? formats[format-1] : "",
                   
sender ? "&sender=" : "", sender ? _urlencode(sender) : "",
                   
query ? "&query=" : "", query ? _urlencode(query) : "");
    if (
SMSC_DEBUG)
       
printf("%s\n",arg);
   
res = _smsc_send_cmd("send", arg, NULL);
   
free(arg);
    return
res;
}

string_t get_balance(void) {
    return
_smsc_send_cmd("balance", "", NULL); // (balance) или (0, -error)
}

string_t get_status(string_t id, string_t phone, int all) {
   
string_t arg;
   
   
asprintf(&arg, "phone=%s&id=%s&all=%d", _urlencode(phone),_urlencode(id), all);

    return
_smsc_send_cmd("status", arg, NULL);
}


//==============================================================================
struct MemoryStruct {
   
char *memory;
   
size_t size;
};

static
size_t WriteMemoryCallback(void *contents, size_t size, size_t nmemb, void *userp) {
   
size_t realsize = size * nmemb;
   
struct MemoryStruct *mem = (struct MemoryStruct *) userp;
   
   
mem->memory = realloc(mem->memory, mem->size + realsize + 1);
//    printf("%d", mem->memory);
   
if (mem->memory == NULL) {
   
/* out of memory! */
   
printf("not enough memory (realloc returned NULL)\n");
    return
0;
    }

   
memcpy(&(mem->memory[mem->size]), contents, realsize);
   
mem->size += realsize;
   
mem->memory[mem->size] = 0;
    return
realsize;
}
//==============================================================================

string_t _smsc_send_cmd(string_t cmd, string_t arg, string_t files) {
   
CURL *curl;
   
CURLcode res;
   
struct curl_slist *list = NULL;
   
struct curl_httppost* cpost = NULL;
   
struct curl_httppost* clast = NULL;
   
   
string_t _arg, url, istr, dstr;
   
char post, i=0;

   
struct MemoryStruct chunk;
   
chunk.memory = malloc(1); // will be grown as needed by the realloc above
   
chunk.memory[0] = 0;
   
chunk.size = 0; // no data at this point 

   
curl_global_init(CURL_GLOBAL_ALL);
   
curl = curl_easy_init();
    if (
curl) {
       
curl_easy_setopt(curl, CURLOPT_WRITEFUNCTION, WriteMemoryCallback);
       
curl_easy_setopt(curl, CURLOPT_WRITEDATA, (void *) &chunk);
       
asprintf(&_arg, "login=%s&psw=%s&fmt=1&charset=%s&%s", _urlencode(SMSC_LOGIN), _urlencode(SMSC_PASSWORD), SMSC_CHARSET, arg);
       
post = SMSC_POST || files || (strlen(_arg) > 2000);
        do {
           
asprintf(&url, "smscentre.com/sys/%s.php", cmd);
            if (
i++)
               
asprintf(&url, "%s://www%d.%s", SMSC_HTTPS ? "https" : "http", i, url);
            else
               
asprintf(&url, "%s://%s", SMSC_HTTPS ? "https" : "http", url);
            if (
post) {
               
// разбираем строку параметров
               
istr = strtok(_arg,"=&");
                while (
istr != NULL) {
                   
asprintf(&dstr,"%s", istr);
                   
istr = strtok (NULL, "=&");
//                    printf("%s=%s\n", dstr, istr);
                   
curl_formadd(&cpost, &clast, CURLFORM_COPYNAME, dstr, CURLFORM_COPYCONTENTS, _urldecode(istr), CURLFORM_END);
                   
istr = strtok (NULL, "=&");
                }
                if (
files) {               
                   
res = curl_formadd(&cpost, &clast, CURLFORM_COPYNAME, "pictures", CURLFORM_FILE, files, CURLFORM_END);
                    if (
res != CURLE_OK)
                       
fprintf(stderr, "curl_easy_formadd() formfile failed: %s\n", curl_easy_strerror(res));
                }
               
curl_easy_setopt(curl, CURLOPT_HTTPPOST, cpost);
            }
            else
               
asprintf(&url, "%s?%s",url, _arg);
       
            if (
SMSC_DEBUG)
               
printf("%s\n%s\n", url, _arg);

           
curl_easy_setopt(curl, CURLOPT_URL, url);
           
res = curl_easy_perform(curl);
            if (
res != CURLE_OK)
               
fprintf(stderr, "curl_easy_perform() failed: %s\n", curl_easy_strerror(res));
            else
                if (
SMSC_DEBUG)
                   
printf("%lu bytes retrieved\n%s\n", (long)chunk.size, chunk.memory);       
        } while ((
i < 5) && (res != CURLE_OK));
       
curl_easy_cleanup(curl);
       
free(_arg);
       
free(url);
       
free(dstr);
    }
    return(
chunk.memory);
}

// кодирование параметра в http-запросе

string_t _urlencode(string_t str) {
   
string_t output;
   
CURL *curl;
   
    if (
str) {
       
curl = curl_easy_init();
        if (
curl) {
           
string_t output = curl_easy_escape(curl, str, 0);
           
curl_easy_cleanup(curl);
            return (
output);
        }
    return(
NULL);
    }
    return(
NULL);
}

// декодирование параметра в http-запросе

string_t _urldecode(string_t str) {
   
string_t output;
   
CURL *curl;
   
    if (
str) {
       
curl = curl_easy_init();
        if (
curl) {
           
string_t output = curl_easy_unescape(curl, str, 0, NULL);
           
curl_easy_cleanup(curl);
            return (
output);
        }
    return(
NULL);
    }
    return(
NULL);
}
// вывод отладочной информации

void _print_debug(string_t str) {
   
printf("%s\n", str);
}

An example of using the library:
#include "smsc_api.c"

string_t ret, balance;

ret = send_sms("79999999999", "Ваш пароль: 123", 0, NULL, 0, 7, NULL, "subj=Privet", NULL);
...
ret = send_sms("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, "", 0, 0, "", "maxsms=3", NULL);
...
ret = send_sms("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, "", 0, 5, NULL, NULL, NULL);
...
ret = get_sms_cost("79999999999", "Ваш пароль: 123", 0, 7, NULL, NULL);
...
ret = get_status("12345", "79999999999", 1);
...
balance = get_balance();
...

For Microsoft Excel

Download the library file: smsc_api_excel.bas

Library source code:
Attribute VB_Name = "smsc_api"
' SMSCENTRE.COM API (www.smscentre.com) версия 1.2 (03.07.2019)

Public Const SMSC_DEBUG As Byte = 0         '
флаг отладки
Public Const SMSC_CHARSET As String = "utf-8"    ' кодировка сообщения (utf-8 или koi8-r), по умолчанию используется windows-1251

Public SMSC_LOGIN As String                 '
логин клиента
Public SMSC_PASSWORD As String              ' пароль клиента
Public SMSC_HTTPS As Byte                   '
использовать HTTPS протокол

Public Const SMTP_SERVER As String = "smtp.mail.ru"        ' адрес SMTP сервера
Public Const SMTP_USERNAME As String = "<smtp_user_name>"  '
логин на SMTP сервере
Public Const SMTP_PASSWORD As String = "<smtp_password>"   ' пароль на SMTP сервере
Public Const SMTP_FROM As String = "smtp_user_name@mail.ru" '
e-mail адрес отправителя

Public CONNECT_MODE As Byte         ' режим соединения с интернетом: 0 - прямое, 1 - Proxy, 2 - настройки из Internet Exporer
Public PROXY_SERVER As String       '
адрес Proxy-сервера
Public PROXY_PORT As Integer        ' порт Proxy-сервера
Public PROXY_AUTORIZATION As Byte   '
флаг использования авторизации на Proxy-сервере
Public PROXY_USERNAME As String     ' логин на Proxy-сервере
Public PROXY_PASSWORD As String     '
пароль на Proxy-сервере

Public Connection As Object

' Пауза в приложении
'
' Параметры:
'   
PauseTime - время паузы в секундах
'
Private Sub Sleep(PauseTime As Integer)

    Start = Timer
    Do While Timer < Start + PauseTime
        DoEvents
    Loop
   
End Sub


Public Function URLEncode(ByVal Str As String) As String

    Dim Ret

    Ret = ""
    CharStr = " !""@№#;%:?*().,/$^&\+"
   
    Str = Trim(Str)
    For i = 1 To Len(Str)
       
        S = Mid(Str, i, 1)
        SymCode = Asc(S)
       
        '
Перевод из UNICODE в ASCII
       
If ((SymCode > 1039) And (SymCode < 1104)) Then
            SymCode
= SymCode - 848
       
ElseIf SymCode = 8470 Then
            SymCode
= 185
       
ElseIf SymCode = 1105 Then
            SymCode
= 184
       
ElseIf SymCode = 1025 Then
            SymCode
= 168
        End
If
   
       
fl_replace = 0
       
If InStr(1, CharStr, S, vbBinaryCompare) > 0 Then
            Ret
= Ret & "%" & Hex(Int(SymCode / 16)) & Hex(Int(SymCode Mod 16))
           
fl_replace = 1
        End
If

        If (
SymCode <= 127) And (fl_replace = 0) Then
            Ret
= Ret & S
       
ElseIf fl_replace = 0 Then
            Ret
= Ret + "%" + Hex(Int(SymCode / 16)) & Hex(Int(SymCode Mod 16))
       
End If
   
   
Next i

    URLEncode
= Ret

End
Function

' Функция чтения URL.
'
Private Function SMSC_Read_URL(URL As String, Params As String) As String

    Dim Ret
As String
   
    On Error
GoTo 0
    Connection
.Open "POST", Trim(URL), 0
    Connection
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   
Connection.Send Trim(Params)
   
Ret = Connection.ResponseText()
    If
Err.Number <> 0 Then
        MsgBox
"Не удалось получить данные с сервера!", , "Ошибка"
       
SMSC_Read_URL = ""
       
Exit Function
   
End If
   
   
SMSC_Read_URL = Ret

End
Function

' Функция вызова запроса. Формирует URL и делает 5 попыток чтения.
'
Private Function SMSC_Send_Cmd(Cmd As String, Optional Arg As String = "")
   
   
Dim URL As String, Params As String, Ret As String
       
    URL_orig
= IIf(SMSC_HTTPS, "https", "http") & "://smscentre.com/sys/" & Cmd & ".php"
   
URL = URL_orig

    Params
= "login=" & SMSC_LOGIN & "&psw=" & SMSC_PASSWORD & "&fmt=1" _
           
& IIf(SMSC_CHARSET = "", "", "&charset=" + SMSC_CHARSET) & "&" & Arg
   
    i
= 1
   
Do
        If
i > 1 Then
            URL
= URL_orig
            URL
= Replace(URL, "://smscentre.com/", "://www" & i & ".smscentre.com/")
       
End If

       
Ret = SMSC_Read_URL(URL, Params)
       
i = i + 1
    Loop
While (Ret = "" And i < 6)

    If (
Ret = "") Then
       
If SMSC_DEBUG Then MsgBox "Ошибка чтения адреса: " & URL, , "Ошибка"
       
Ret = ","  ' фиктивный ответ
    End If

    SMSC_Send_Cmd = Split(Ret, ",", -1, vbTextCompare)

End Function

'
Функция получения баланса
'
'
без параметров
'
'
возвращает баланс в виде строки или CVErr(N_Ошибки) в случае ошибки
'
Public Function Get_Balance()

    Dim m
   
    m = SMSC_Send_Cmd("balance")  '
(balance) или (0, -error)

    If
UBound(m) = 0 Then
        Get_Balance
= m(0)
    Else
       
Get_Balance = CVErr(-m(1))
   
End If

End Function

' Функция отправки SMS
'
' обязательные параметры:
'
' Phones - список телефонов через запятую или точку с запятой
'
Message - отправляемое сообщение
'
'
необязательные параметры:
'
'
Translit - переводить или нет в транслит (1 или 0)
' Time - необходимое время доставки в виде строки (DDMMYYhhmm, h1-h2, 0ts, +m)
'
Id - идентификатор сообщения
' Format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
'
Sender - имя отправителя (Sender ID)
' Query - дополнительные параметры
'
' возвращает массив (<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки
'
либо массив (<id>, -<код ошибки>) в случае ошибки
'
Public Function Send_SMS(Phones As String, Message As String, Optional Translit = 0, Optional Time = 0, Optional Id = 0, Optional Format = 0, Optional sender = "", Optional Query = "")
   
    Dim Formats As Variant
    Dim m
   
    Formats = Array("flash=1", "push=1", "hlr=1", "bin=1", "bin=2", "ping=1", "mms=1", "mail=1", "call=1", "viber=1", "soc=1")
    FormatStr = ""
    If (Format > 0) Then
        FormatStr = Formats(Format - 1)
    End If
 
    m = SMSC_Send_Cmd("send", "cost=3&phones=" & URLEncode(Phones) & "&mes=" & Message _
                    & "&translit=" & Translit & "&id=" & Id & IIf(Format > 0, "&" & FormatStr, "") _
                    & IIf(sender = "", "", "&sender=" & URLEncode(sender)) _
                    & "&charset=" & SMSC_CHARSET & IIf(Time = "", "", "&time=" & URLEncode(Time)) _
                    & IIf(Query = "", "", "&" & Query))

    '
(id, cnt, cost, balance) или (id, -error)

   
Send_SMS = m
   
End
Function


' Функция получения стоимости SMS
'
' обязательные параметры:
'
' Phones - список телефонов через запятую или точку с запятой
'
Message - отправляемое сообщение
'
'
необязательные параметры:
'
'
Translit - переводить или нет в транслит (1 или 0)
' Sender - имя отправителя (Sender ID)
'
Query - дополнительные параметры
'
'
возвращает массив (<стоимость>, <количество sms>) либо массив (0, -<код ошибки>) в случае ошибки
'
Public Function Get_SMS_Cost(Phones As String, Message As String, Optional Translit = 0, Optional sender = "", Optional Query = "")

    Dim m
   
    m = SMSC_Send_Cmd("send", "cost=1&phones=" & URLEncode(Phones) & "&mes=" & Message & IIf(sender = "", "", "&sender=" & URLEncode(sender)) _
                    & "&translit=" & Translit & IIf(Query = "", "", "&" & Query))


    '
(cost, cnt) или (0, -error)

   
Get_SMS_Cost = m

End
Function

' Функция проверки статуса отправленного SMS
'
' Id - ID cообщения
'
Phone - номер телефона
'
'
возвращает массив
' для отправленного SMS (<статус>, <время изменения>, <код ошибки sms>)
'
для HLR-запроса (<статус>, <время изменения>, <код ошибки sms>, <код страны регистрации>, <код оператора абонента>,
' <название страны регистрации>, <название оператора абонента>, <название роуминговой страны>, <название роумингового оператора>,
'
<код IMSI SIM-карты>, <номер сервис-центра>)
' либо список (0, -<код ошибки>) в случае ошибки
'
Public Function Get_Status(Id, Phone)

   
Dim m

    m
= SMSC_Send_Cmd("status", "phone=" & URLEncode(Phone) & "&id=" & Id)

   
' (status, time, err) или (0, -error)

    Get_Status = m
   
End Function

'
Инициализация подключения
'
Public Function SMSC_Initialize()

    On Error GoTo 0
    Set Connection = CreateObject("WinHttp.WinHttpRequest.5.1")
    Connection.Option 9, 80
   
    If Err.Number = 440 Or Err.Number = 432 Then
       MsgBox "Не удалось создать объект ""WinHttp.WinHttpRequest.5.1""!" & Chr(13) & "Проверьте наличие системной библиотеки ""WinHttp.dll""", , "Ошибка"
       Err.Clear
    End If

End Function

Full-featured add-in for sending SMS messages based on the library.

Instructions for installing the add-in:
1) While in the main Excel window, open the File menu, nextParameters.
2) Open the tabAdd-ons and clickGo over.
3) In the window that appears, clickBrowse and select the file with the add-in.
4) After the add-in appears in the windowAvailable add-ons, select it and click OK.
5) In the main window, in the add-ons tab, a button will appearSend SMS.
6) To send an SMS to multiple numbers select the column with the numbers and clickSend SMS.
7) To send individual messages, place the phone numbers in the first column and the message texts in the second column, select them and clickSend SMS.

In some cases, due to a Windows security update, all files received from the Internet/mail are blocked when uploaded to Excel. This is done without any warning messages.

If the "Send SMS" button or the "Add-ons" tab does not appear during the installation of our add-in, then you can remove the lock as follows:
1. Close all Excel windows.
2. In File Explorer, right-click on the add-in file.
3. Select " Properties".
4. On the "General" tab, set the "Unblock" flag.".
5. Click the "Apply" - "OK" or just " OK".

For Microsoft Access

Download smsc_api_access.accdb (768 КБ)

To send SMS messages from Microsoft Access, follow these steps::
1) Open the smsc_api_access.accdb file using Microsoft Access version 2007 or higher.
2) Open the smsc_api module.
3) Specify Public Const SMSC_LOGIN As String, Public Const SMSC_PASSWORD As String Your username and password, respectively, and save the file.
4) Go to the formSending, fill in the fieldsTelephone, The message and, if necessary, the Sender ID and clickSend.

Для 1С (Версия 7.7)

Download smsc_api_1c77.txt (52 Kb)

Library source code: // SMSCENTRE.COM API (smscentre.com) версия 1.9 (03.07.2019)

Перем SMSC_Логин;        // логин клиента
Перем SMSC_Пароль;        // пароль клиента
Перем SMSC_HTTPS;        // использовать HTTPS протокол
Перем SMSC_Отладка;        // флаг отладки
Перем SMSC_Кодировка;    // кодировка сообщения (utf-8 или koi8-r), по умолчанию используется windows-1251

Перем ЕСТЬ_ПРОКСИ;        // Флаг использования PROXY-сервера
Перем ПРОКСИ_АДРЕС;
Перем ПРОКСИ_ПОРТ;
Перем ПРОКСИ_ЛОГИН;
Перем ПРОКСИ_ПАРОЛЬ;

Перем Соединение;
Перем Hex[16];
Перем ФорматыСообщений[11];


//***************************************************************************************
// ВНУТРЕННИЕ СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
//***************************************************************************************
// Процедура инициализации переменных
//
Процедура ИнициализацияПеременных()

   
SMSC_Логин = "login";
   
SMSC_Пароль = "password";
   
SMSC_Отладка = 0;
   
SMSC_HTTPS = 1;
   
SMSC_Кодировка = "";

   
ЕСТЬ_ПРОКСИ = 0;
   
ПРОКСИ_АДРЕС = "";
   
ПРОКСИ_ПОРТ = "";
   
ПРОКСИ_ЛОГИН = "";
   
ПРОКСИ_ПАРОЛЬ = "";

КонецПроцедуры


//***************************************************************************************
// Функция преобразования строки вида х,у в список значений
//
Функция Строка2Список(Стр)

   
Перем Рез;

   
Рез = СоздатьОбъект("СписокЗначений");
   
й = 1;

   
Для й = 1 По 4 Цикл

        Поз
= Найти(Стр, ",");

       
Если Поз = 0 Тогда
            Рез
.ДобавитьЗначение(Стр);
           
Прервать;
       
Иначе
            Рез
.ДобавитьЗначение(Лев(Стр,Поз-1));
       
КонецЕсли;

       
Стр = Сред(Стр, Поз+1, СтрДлина(Стр)-Поз);

   
КонецЦикла;

   
Возврат Рез;

КонецФункции // Строка2Список()


//***************************************************************************************
Функция URLEncode(Стр1)

   
//СтрокаСимволов = " !""@№#;%:?*().,/$^&";
   
СтрокаСимволов = " @№#%?/$&+";

   
Рез = "";
   
Стр = СокрЛП(Стр1);
   
Для Сч=1 По СтрДлина(Стр) Цикл

        Символ
= Сред(Стр, Сч, 1);
       
КС = КодСимв(Символ);

       
флЗаменили = 0;
       
Если Найти(СтрокаСимволов, Символ) > 0 Тогда

            Рез
= Рез + "%"+ Hex[Цел(КС/16)+1] + Hex[Цел(КС%16)+1];
           
флЗаменили = 1;

       
КонецЕсли;

       
Если (КС <= 127) и (флЗаменили = 0) Тогда
            Рез
= Рез + Символ;
       
ИначеЕсли флЗаменили = 0 Тогда
            Рез
= Рез + "%"+ Hex[Цел(КС/16)+1] + Hex[Цел(КС%16)+1];
       
КонецЕсли;

   
КонецЦикла;

   
Возврат Рез;

КонецФункции // URLEncode()

//*******************************************************************************
// Переводит время в формате Unix DateTimeStamp в строку с датой, временем
//
// Пареметры:
// ШтампВремени - штамп времени в формате Unix
//
Функция Unix2Date (ШтампВремени)

   
ЧислоДней = Цел(ШтампВремени / 86400);

   
Д = Дата("01.01.1970") + ЧислоДней;
   
ОстСек = ШтампВремени % 86400;

   
Ч = Цел(ОстСек / 3600);
   
ОстСек = ОстСек % 3600;

   
М = Цел(ОстСек / 60);
   
С = ОстСек % 60;

   
Возврат Формат(Д, "Д ДДММГГГГ") + " " + Ч + ":" + М + ":" + С;

КонецФункции // Unix2Date()


//*******************************************************************************
// Осуществляет загрузку внешней компоненты WinHttp.dll
//
Функция УстановитьКомпоненту()

   
Попытка

        Соединение
= СоздатьОбъект("WinHttp.WinHttpRequest.5.1");
       
Соединение.Option(9, 80);
       
Если ЕСТЬ_ПРОКСИ = 1 Тогда
            Соединение
.SetProxy(2, СокрЛП(ПРОКСИ_АДРЕС) + ":" + СокрЛП(ПРОКСИ_ПОРТ));
       
КонецЕсли;

   
Исключение

        Сообщить
("Не удалось создать объект WinHttp.WinHttpRequest.5.1!" + РазделительСтрок +
               
"Проверьте наличие системной библиотеки ""WinHttp.dll""!");
       
Возврат 0;

   
КонецПопытки;

   
Возврат 1;

КонецФункции  // УстановитьКомпоненту()


//***************************************************************************************
// Функция чтения адреса
//
Функция _SMSC_ПрочитатьАдрес(Адрес, Параметры)

   
Перем Рез;

   
Попытка
        Соединение
.Open("POST", СокрЛП(Адрес), 0);
       
Если ЕСТЬ_ПРОКСИ = 1 Тогда
            Соединение
.SetCredentials(СокрЛП(ПРОКСИ_ЛОГИН), СокрЛП(ПРОКСИ_ПАРОЛЬ), 1);
       
КонецЕсли;
       
Соединение.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
       
Соединение.Send(СокрЛП(Параметры));
       
Рез = Соединение.ResponseText();
   
Исключение
        Сообщить
("Не удалось получить данные с сервера!", "!");
       
Возврат "";
   
КонецПопытки;

   
Возврат Рез;

КонецФункции //_SMSC_ПрочитатьАдрес()


//***************************************************************************************
// Функция вызова запроса. Формирует URL и делает 5 попыток чтения.
//
Функция _SMSC_ПослатьКоманду(Команда, Аргументы = "")

   
Адрес = "http" + ?(SMSC_HTTPS = 2, "s", "") + "://smscentre.com/sys/" + Команда + ".php";
   
Параметры = "login=" + СокрЛП(URLEncode(SMSC_Логин)) + "&psw=" + СокрЛП(URLEncode(SMSC_Пароль)) + "&fmt=1" +
        ?(
ПустаяСтрока(SMSC_Кодировка) = 1, "", "&charset=" + SMSC_Кодировка) + "&" + СокрЛП(Аргументы);

   
Для Сч = 1 По 5 Цикл

        Если Сч
> 1 Тогда
            Адрес
= "http" + ?(SMSC_HTTPS = 2, "s" , "") + "://" + "www" + Сч + ".smscentre.com/sys/" + Команда + ".php";
       
КонецЕсли;

       
Рез = _SMSC_ПрочитатьАдрес(Адрес, Параметры);

       
Если ПустоеЗначение(Рез) = 0 Тогда
            Прервать
;
       
КонецЕсли;

   
КонецЦикла;

   
Если ПустоеЗначение (Рез) = 1 Тогда

        Если SMSC_Отладка
= 1 Тогда
            Сообщить
("Ошибка чтения адреса: "+ Адрес + "?" + Параметры);
       
КонецЕсли;

       
Рез = "," // Фиктивный ответ

   
КонецЕсли;

   
Возврат Строка2Список(Рез);

КонецФункции // _SMSC_ПослатьКоманду()


//***************************************************************************************
// Функция отправки SMS
//
// обязательные параметры:
//
// Телефоны - список телефонов через запятую или точку с запятой
// Сообщение - отправляемое сообщение
//
// необязательные параметры:
//
// Транслит - переводить или нет в транслит (1 или 0)
// Время - необходимое время доставки в виде строки (DDMMYYhhmm, h1-h2, 0ts, +m)
// ИД - идентификатор сообщения
// ФорматСообщения - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
// Отправитель - имя отправителя (Sender ID)
// ДопПараметры - строка дополнительных параметров, добавляемая в URL-запрос ("valid=01:00&maxsms=3&tz=2")
//
// возвращает список (<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки
// либо список (<id>, -<код ошибки>) в случае ошибки
//
Функция ПослатьSMS(Телефоны, Сообщение, Транслит = 0, Время = "", ИД = 0, ФорматСообщения = 0, Отправитель = "", ДопПараметры = "")

   
Ответ = _SMSC_ПослатьКоманду ("send", "cost=3&phones=" + URLEncode(Телефоны) + "&mes=" + URLEncode(Сообщение) +
                   
"&translit=" + Транслит + "&id=" + ИД + ?(ФорматСообщения > 0, "&" + ФорматыСообщений[ФорматСообщения], "") +
                    ?(
ПустаяСтрока(Отправитель) = 1, "", "&sender=" + URLEncode(Отправитель)) +
                    ?(
ПустаяСтрока(Время) = 1, "", "&time=" + URLEncode(Время)) +
                    ?(
ПустаяСтрока(ДопПараметры) = 1, "", "&" + ДопПараметры));

   
// (id, cnt, cost, balance) или (id, -error)

   
Если (SMSC_Отладка = 1) Тогда

        РезИД
= Число(Ответ.ПолучитьЗначение(1));
       
Рез = Число(Ответ.ПолучитьЗначение(2));
       
Если (Рез > 0) Тогда
            Сообщить
("Сообщение отправлено успешно. ID: " + РезИД + ", всего SMS: " + Ответ.ПолучитьЗначение(2) +
                   
", стоимость: " + Ответ.ПолучитьЗначение(3) + " руб., баланс: " + Ответ.ПолучитьЗначение(4) + " руб.");
       
Иначе
            Сообщить
("Ошибка № " + Строка(-Рез) + ?(РезИД > 0, ", ID: " + РезИД, ""));
       
КонецЕсли;

   
КонецЕсли;

   
Возврат Ответ;

КонецФункции // ПослатьSMS()


//***************************************************************************************
// Функция получения стоимости SMS
//
// обязательные параметры:
//
// Телефоны - список телефонов через запятую или точку с запятой
// Сообщение - отправляемое сообщение
//
// необязательные параметры:
//
// Транслит - переводить или нет в транслит (1 или 0)
// Отправитель - имя отправителя (Sender ID)
// ДопПараметры - строка дополнительных параметров, добавляемая в URL-запрос ("list=79999999999:Ваш пароль: 123\n78888888888:Ваш пароль: 456")
//
// возвращает список (<стоимость>, <количество sms>) либо список (0, -<код ошибки>) в случае ошибки
//
Функция ПолучитьСтоимость(Телефоны, Сообщение, Транслит = 0, Отправитель = "", ДопПараметры = "")

   
Ответ = _SMSC_ПослатьКоманду("send", "cost=1&phones=" + URLEncode(Телефоны) + "&mes=" + URLEncode(Сообщение) +
                    ?(
ПустаяСтрока(Отправитель) = 1, "", "&sender=" + URLEncode(Отправитель)) +
                   
"&translit=" + Транслит + ?(ПустаяСтрока(ДопПараметры) = 1, "", "&" + ДопПараметры));

   
// (cost, cnt) или (0, -error)

   
Если (SMSC_Отладка = 1) Тогда

        Рез1
= Число(Ответ.ПолучитьЗначение(1));
       
Рез2 = Число(Ответ.ПолучитьЗначение(2));
       
Если (Рез2 > 0) Тогда
            Сообщить
("Стоимость рассылки: " + Рез1 + " руб. Всего SMS: " + Рез2);
       
Иначе
            Сообщить
("Ошибка № " + Строка(-Рез2));
       
КонецЕсли;

   
КонецЕсли;

   
Возврат Ответ;

КонецФункции


//***************************************************************************************
// Функция проверки статуса отправленного SMS
//
// ИД - ID cообщения
// Телефон - номер телефона
//
// возвращает список:
// для отправленного SMS (<статус>, <время изменения>, <код ошибки sms>)
// для HLR-запроса (<статус>, <время изменения>, <код ошибки sms>, <код страны регистрации>, <код оператора абонента>,
// <название страны регистрации>, <название оператора абонента>, <название роуминговой страны>, <название роумингового оператора>,
// <код IMSI SIM-карты>, <номер сервис-центра>)
// либо список (0, -<код ошибки>) в случае ошибки
//
Функция ПолучитьСтатус(ИД, Телефон)

   
Ответ = _SMSC_ПослатьКоманду("status", "phone=" + URLEncode(Телефон) + "&id=" + ИД);

   
// (status, time, err) или (0, -error)

   
Если (SMSC_Отладка = 1) Тогда

        Рез1
= Число(Ответ.ПолучитьЗначение(1));
       
Рез2 = Число(Ответ.ПолучитьЗначение(2));

       
Если (Рез2 >= 0) Тогда
            Сообщить
("Статус SMS = " + Рез1 +  ?(ПустоеЗначение(Рез2) = 0, ", время изменения статуса - " + Unix2Date(Число(Ответ.ПолучитьЗначение(2))), ""));
       
Иначе
            Сообщить
("Ошибка № " + Строка(-Рез2));
       
КонецЕсли;

   
КонецЕсли;

   
Возврат Ответ;

КонецФункции // ПолучитьСтатус()


//***************************************************************************************
// Функция получения баланса
//
// без параметров
//
// возвращает баланс в виде строки или 0 в случае ошибки

Функция ПолучитьБаланс()

   
Ответ = _SMSC_ПослатьКоманду("balance"); // (balance) или (0, -error)
   
Рез = Число(Ответ.ПолучитьЗначение(1));

   
Если (SMSC_Отладка = 1) Тогда

        Если Рез
>= 0 тогда
            Сообщить
("Сумма на счете: " Рез + " руб.");
       
Иначе
            Сообщить
("Ошибка № " Строка(-Число(Ответ.ПолучитьЗначение(2))));
       
КонецЕсли;

   
КонецЕсли;

   
Возврат Рез;

КонецФункции // ПолучитьБаланс()


//***************************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()

   
Если УстановитьКомпоненту() = 0 Тогда
        Возврат
;
   
КонецЕсли;

   
ИнициализацияПеременных();

КонецПроцедуры // ПриОткрытии()


//***************************************************************************************
// ОПЕРАТОРЫ ОСНОВНОЙ ПРОГРАММЫ
//***************************************************************************************
Hex[1]="0";
Hex[2]="1";
Hex[3]="2";
Hex[4]="3";
Hex[5]="4";
Hex[6]="5";
Hex[7]="6";
Hex[8]="7";
Hex[9]="8";
Hex[10]="9";
Hex[11]="A";
Hex[12]="B";
Hex[13]="C";
Hex[14]="D";
Hex[15]="E";
Hex[16]="F";

ФорматыСообщений[1] = "flash=1";
ФорматыСообщений[2] = "push=1";
ФорматыСообщений[3] = "hlr=1";
ФорматыСообщений[4] = "bin=1";
ФорматыСообщений[5] = "bin=2";
ФорматыСообщений[6] = "ping=1";
ФорматыСообщений[7] = "mms=1";
ФорматыСообщений[8] = "mail=1";
ФорматыСообщений[9] = "call=1";
ФорматыСообщений[10] = "viber=1";
ФорматыСообщений[11] = "soc=1";

// Examples:
// Ответ = ПослатьSMS("79999999999", "Ваш пароль: 123", 1);
// Ответ = ПослатьSMS("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, 0, 0, 0, "", "maxsms=3");
// Ответ = ПослатьSMS("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, 0, 0, 5, "");
// Ответ = ПослатьSMS("79999999999", "", 0, 0, 0, 3, "");
// Ответ = ПолучитьСтатус(sms_id, "79999999999");
// Баланс = ПолучитьБаланс();

An example of using the library: ...
Ответ = ПослатьSMS("79999999999", "Ваш пароль: 123", 1);
...
Ответ = ПослатьSMS("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, 0, 0, 0, "", "", "push=1");
...
Ответ = ПослатьSMS("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, 0, 0, 0, "", "", "bin=2");
...
Ответ = ПослатьSMS("79999999999", "", 0, 0, 0, 0, "", "", "hlr=1");
...
Ответ = ПолучитьСтатус(sms_id, "79999999999");
...
Баланс = ПолучитьБаланс();
...

A full-featured processing to send SMS messages based on library.

For 1C (Version 8.2; 8.3)

Скачать smsc_api_1c82.txt (10 Kb)

Library source code: // SMSCENTRE.COM API (www.smscentre.com) версия 1.19 (03.07.2019)

Перем SMSC_LOGIN;         // логин клиента
Перем SMSC_PASSWORD;      // пароль клиента
Перем SMSC_HTTPS;         // использовать HTTPS протокол
Перем SMSC_DEBUG;         // флаг отладки

Перем ЕСТЬ_ПРОКСИ;        // Флаг использования PROXY-сервера
Перем ПРОКСИ_АДРЕС;
Перем ПРОКСИ_ПОРТ;
Перем ПРОКСИ_ЛОГИН;
Перем ПРОКСИ_ПАРОЛЬ;

Перем Соединение;
Перем ФорматыСообщений;

//***************************************************************************************
// ВНУТРЕННИЕ СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
//***************************************************************************************

//***************************************************************************************
// Процедура инициализации переменных
//
Процедура ИнициализацияПеременных()
   
   
SMSC_LOGIN = "<login>";           
   
SMSC_PASSWORD = "<password>";     
   
SMSC_DEBUG = 0;               
   
SMSC_HTTPS = 1;
   
   
ЕСТЬ_ПРОКСИ = Ложь;
   
ПРОКСИ_АДРЕС = "";
   
ПРОКСИ_ПОРТ = "";
   
ПРОКСИ_ЛОГИН = "";
   
ПРОКСИ_ПАРОЛЬ = "";
   
КонецПроцедуры   


//***************************************************************************************
// Функция преобразования строки вида х,у в список значений
//
Функция Строка2Список(Стр)       
   
   
Перем Рез;
       
   
Рез = Новый СписокЗначений;
   
Сч = 1;
   
   
Для Сч = 1 По 4 Цикл
       
        Поз
= Найти(Стр, ",");
       
       
Если Поз = 0 Тогда
            Рез
.Добавить(Стр);
           
Прервать;                 
       
Иначе   
            Рез
.Добавить(Лев(Стр,Поз-1));
       
КонецЕсли;     
       
       
Стр = Сред(Стр, Поз+1, СтрДлина(Стр)-Поз);
       
   
КонецЦикла;
   
   
Возврат Рез;
   
КонецФункции // Строка2Список()


//***************************************************************************************
// Переводит время в формате Unix DateTimeStamp в строку с датой, временем
//
// Пареметры:
// ШтампВремени - штамп времени в формате Unix
//
Функция Unix2Date (ШтампВремени
   
   
Возврат Дата("19700101000000") + ШтампВремени;
   
КонецФункции // Unix2Date()


//***************************************************************************************
функция Hex(КС)
   
   
_Hex = Новый Массив(16);
   
_Hex[0]="0";
   
_Hex[1]="1";
   
_Hex[2]="2";
   
_Hex[3]="3";
   
_Hex[4]="4";
   
_Hex[5]="5";
   
_Hex[6]="6";
   
_Hex[7]="7";
   
_Hex[8]="8";
   
_Hex[9]="9";
   
_Hex[10]="A";
   
_Hex[11]="B";
   
_Hex[12]="C";
   
_Hex[13]="D";
   
_Hex[14]="E";
   
_Hex[15]="F";   
   
   
Возврат(_Hex[Цел(КС/16)] + _Hex[Цел(КС%16)]);
   
конецфункции


//***************************************************************************************
Функция URLEncode(Стр1)
             
   
Рез = "";
   
Стр= СокрЛП(Стр1);
   
Для Сч=1 По СтрДлина(Стр) Цикл
           
        Символ
= Сред(Стр, Сч, 1);
       
КС = КодСимвола(Символ);
       
       
Рез = Рез + "%"+ Hex(Цел(КС/256)) + "%"+ Hex(КС%256);
       
   
КонецЦикла;

   
Возврат Рез;
   
КонецФункции // URLEncode()

   
//***************************************************************************************
// Функция вызова запроса. Формирует URL и делает 3 попытки чтения.
//
Функция _SMSC_ПрочитатьАдрес(Сервер, РесурсНаСервере, _Параметры) Экспорт
    Перем Рез
;
   
Перем ХТТПОтвет;
   
   
ЕСТЬ_ПРОКСИ = Ложь;
   
   
Прокси = Неопределено;
   
Если ЕСТЬ_ПРОКСИ Тогда
        Прокси
= Новый ИнтернетПрокси;
       
Прокси.НеИспользоватьПроксиДляЛокальныхАдресов = Истина;
       
Прокси.Пользователь = ПРОКСИ_ЛОГИН;
       
Прокси.Пароль = ПРОКСИ_ПАРОЛЬ;
       
Прокси.Установить("http" + ?(SMSC_HTTPS=1, "s", ""), ПРОКСИ_АДРЕС, ПРОКСИ_ПОРТ);
   
КонецЕсли;
   
Попытка
        Если SMSC_HTTPS
= 0 Тогда
            Соединение
= Новый HTTPСоединение(Сервер, , , , Прокси, Ложь);
       
Иначе
            Соединение
= Новый HTTPСоединение(Сервер, , , , Прокси, 10, Новый ЗащищенноеСоединениеOpenSSL);
       
Конецесли;
   
Исключение
        Сообщить
("Не удалось установить соединение с сервером:"
           
+ Символы.ПС + ИнформацияОбОшибке().Описание, СтатусСообщения.Важное);
       
Возврат "";
   
КонецПопытки;

   
ИмяФайлаРезультата = ПолучитьИмяВременногоФайла();
   
   
РесурсПараметры = РесурсНаСервере+"?"+_Параметры;
   
Если СтрДлина(РесурсПараметры) < 2000 Тогда // GET
       
       
Попытка
            ХТТПОтвет
= Соединение.Получить(РесурсПараметры, ИмяФайлаРезультата);
           
Соединение = Неопределено;
       
Исключение
            Сообщить
("Не удалось получить данные с сервера", СтатусСообщения.Важное);
           
Возврат "";
       
КонецПопытки;
           
   
Иначе // POST   
       
        //Создаём файл отправки - содержимое POST-запроса.
       
ИмяФайлаОтправки = ПолучитьИмяВременногоФайла();
       
ФайлОтправки = Новый ЗаписьТекста(ИмяФайлаОтправки, КодировкаТекста.ANSI, "", ЛОЖЬ);
       
ФайлОтправки.Записать(_Параметры);
       
ФайлОтправки.Закрыть();

       
//Формируем заголовок POST-запроса.
       
ЗаголовокHTTP = Новый Соответствие();
       
ЗаголовокHTTP.Вставить("Content-Type", "application/x-www-form-urlencoded");
       
ФайлОтправки = Новый Файл(ИмяФайлаОтправки);
       
РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());
       
ЗаголовокHTTP.Вставить("Content-Length", Строка(РазмерФайлаОтправки));

       
Попытка
            ХТТПОтвет
= Соединение.ОтправитьДляОбработки(ИмяФайлаОтправки, РесурсНаСервере, ИмяФайлаРезультата, ЗаголовокHTTP);
           
Соединение = Неопределено;
       
Исключение
            Сообщить
("Не удалось получить данные с сервера:" + Символы.ПС + ИнформацияОбОшибке().Описание, СтатусСообщения.Важное);
           
Возврат "";
       
КонецПопытки;
       
   
КонецЕсли;         
   
   
Кодировка = "";
   
Если Найти(ХТТПОтвет.Заголовки.Получить("Content-Type"), "charset=utf-16be") > 0 Тогда 
        Кодировка
= "UTF-16BE";   
   
КонецЕсли;
   
ФайлРезультата = Новый ЧтениеТекста(ИмяФайлаРезультата, Кодировка);
   
Рез = ФайлРезультата.ПрочитатьСтроку();
   
   
Возврат Рез;
   
КонецФункции //_SMSC_ПрочитатьАдрес()
               

//***************************************************************************************
// Функция вызова запроса. Формирует URL и делает 5 попыток чтения.
//
Функция _SMSC_ПослатьКоманду(Команда, Аргументы = "")

   
Сервер = "smscentre.com";
   
Ресурс = "/sys/" + Команда + ".php";
   
_Параметры = "login=" + СокрЛП(URLEncode(SMSC_LOGIN)) + "&psw=" + СокрЛП(URLEncode(SMSC_PASSWORD)) + "&fmt=1&charset=utf-16" +
        ?(
Не ПустаяСтрока(Аргументы), "&" + СокрЛП(Аргументы), "");
   
Для Сч = 1 По 5 Цикл

        Если Сч
> 1 Тогда
            Сервер
= "www" + Сч + ".smscentre.com";
       
КонецЕсли;

       
Рез = _SMSC_ПрочитатьАдрес(Сервер, Ресурс, _Параметры);

       
Если НЕ ПустаяСтрока(Рез) Тогда
            Прервать
;
       
КонецЕсли;

   
КонецЦикла;

   
Если ПустаяСтрока (РезТогда

        Если SMSC_DEBUG
= 1 Тогда
            Сообщить
("Ошибка чтения адреса: "+ Сервер + Ресурс + "?" + _Параметры);
       
КонецЕсли;

       
Рез = "," // Фиктивный ответ

   
КонецЕсли;

   
Возврат Строка2Список(Рез);

КонецФункции // _SMSC_ПослатьКоманду()


//***************************************************************************************
// Функция отправки SMS
//
// обязательные параметры:
//
// Телефоны - список телефонов через запятую или точку с запятой
// Сообщение - отправляемое сообщение
//
// необязательные параметры:
//
// Транслит - переводить или нет в транслит (1 или 0)
// Время - необходимое время доставки в виде строки (DDMMYYhhmm, h1-h2, 0ts, +m)
// ИД - идентификатор сообщения
// ФорматСообщения - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call, 10 - viber, 11 - soc)
// Отправитель - имя отправителя (Sender ID)
// ДопПараметры - строка дополнительных параметров, добавляемая в URL-запрос ("valid=01:00&maxsms=3&tz=2")
//
// возвращает список (<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки
// либо массив (<id>, -<код ошибки>) в случае ошибки
//
Функция ПослатьSMS(Телефоны, Сообщение, Транслит = Ложь, Время = "", ИД = 0, ФорматСообщения = 0, Отправитель = "", ДопПараметры = "")
             
   
Ответ = _SMSC_ПослатьКоманду ("send", "cost=3&phones=" + URLEncode(Телефоны) + "&mes=" + URLEncode(Сообщение) +
                   
"&translit=" + ?(Транслит,1,0) + "&id=" + XMLСТрока(ИД) + ?(ФорматСообщения > 0, "&" + ФорматыСообщений[ФорматСообщения], "") +
                    ?(
ПустаяСтрока(Отправитель), "", "&sender=" + URLEncode(Отправитель)) +
                    ?(
ПустаяСтрока(Время), "", "&time=" + URLEncode(Время)) +
                    ?(
ПустаяСтрока(ДопПараметры), "", "&" + ДопПараметры));

   
// (id, cnt, cost, balance) или (id, -error)

   
Если SMSC_DEBUG = 1 Тогда

        РезИД
= Число(Ответ[0].Значение);
       
Рез = Число(Ответ[1].Значение);
       
Если (Рез > 0) Тогда
            Сообщить
("Сообщение отправлено успешно. ID: " + РезИД + ", всего SMS: " + Ответ[1].Значение +
                   
", стоимость: " + Ответ[2].Значение + " руб., баланс: " + Ответ[3].Значение + " руб.");
       
Иначе       
            Сообщить
("Ошибка № " + Строка(-Рез) + ?(РезИД > 0, ", ID: " + РезИД, ""));
       
КонецЕсли;   

   
КонецЕсли;

   
Возврат Ответ;
   
КонецФункции // ПослатьSMS()

//***************************************************************************************
// Функция получения стоимости SMS
//
// обязательные параметры:
//
// Телефоны - список телефонов через запятую или точку с запятой
// Сообщение - отправляемое сообщение
//
// необязательные параметры:
//
// Транслит - переводить или нет в транслит
// Отправитель - имя отправителя (Sender ID)
// ДопПараметры - строка дополнительных параметров, добавляемая в URL-запрос ("list=79999999999:Ваш пароль: 123\n78888888888:Ваш пароль: 456")
//
// возвращает список (<стоимость>, <количество sms>) либо список (0, -<код ошибки>) в случае ошибки
//
Функция ПолучитьСтоимость(Телефоны, Сообщение, Транслит = Ложь, Отправитель = "", ДопПараметры = "")

   
Ответ = _SMSC_ПослатьКоманду("send", "cost=1&phones=" + URLEncode(Телефоны) + "&mes=" + URLEncode(Сообщение) +
                    ?(
ПустаяСтрока(Отправитель), "", "&sender=" + URLEncode(Отправитель)) +
                   
"&translit=" + ?(Транслит,1,0) + ?(ПустаяСтрока(ДопПараметры), "", "&" + ДопПараметры));

   
// (cost, cnt) или (0, -error)

   
Если SMSC_DEBUG = 1 Тогда
       
        Рез1
= Число(Ответ[0].Значение);
       
Рез2 = Число(Ответ[1].Значение);
       
Если (Рез2 > 0) Тогда
            Сообщить
("Стоимость рассылки: " + Рез1 + " руб. Всего SMS: " + Рез2);
       
Иначе
            Сообщить
("Ошибка № " + Строка(-Рез2));
       
КонецЕсли;   

   
КонецЕсли;

   
Возврат Ответ;
   
КонецФункции


//***************************************************************************************
// Функция проверки статуса отправленного SMS
//
// ИД - ID cообщения
// Телефон - номер телефона
//
// возвращает список:
// для отправленного SMS (<статус>, <время изменения>, <код ошибки sms>)
// для HLR-запроса (<статус>, <время изменения>, <код ошибки sms>, <код страны регистрации>, <код оператора абонента>,
// <название страны регистрации>, <название оператора абонента>, <название роуминговой страны>, <название роумингового оператора>,
// <код IMSI SIM-карты>, <номер сервис-центра>)
// либо список (0, -<код ошибки>) в случае ошибки
//
Функция ПолучитьСтатус(ИД, Телефон)
     
   
Ответ = _SMSC_ПослатьКоманду("status", "phone=" + URLEncode(Телефон) + "&id=" + XMLСтрока(ИД));

   
// (status, time, err) или (0, -error)

   
Если SMSC_DEBUG = 1 Тогда

        Рез1
= Число(Ответ[0].Значение);
       
Рез2 = Число(Ответ[1].Значение);
       
       
Если (Рез2 >= 0) Тогда
            Сообщить
("Статус SMS = " + Рез1 +  ?(Рез2 > 0, ", время изменения статуса - " + Ответ[1].Значение, ""));
       
Иначе
            Сообщить
("Ошибка № " + Строка(-Рез2));
       
КонецЕсли;   
       
   
КонецЕсли;

   
Возврат Ответ;
   
КонецФункции // ПолучитьСтатус()



//***************************************************************************************
// Функция получения баланса
//
// без параметров
//
// возвращает баланс в виде строки или 0 в случае ошибки
//
Функция ПолучитьБаланс()
           
   
Ответ = _SMSC_ПослатьКоманду("balance"); // (balance) или (0, -error)
   
Рез = Число(Ответ[0].Значение);

   
Если SMSC_DEBUG Тогда

        Если Рез
>= 0 тогда
            Сообщить
("Сумма на счете: " Рез + " руб.");
       
Иначе
            Сообщить
("Ошибка № " Строка(-Число(Ответ[1].Значение)));
       
КонецЕсли;   

   
КонецЕсли;
       
   
Возврат Рез;
   
КонецФункции // ПолучитьБаланс() 


//***************************************************************************************
// Предопределенная процедура
//
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)           
   
   
ИнициализацияПеременных();
   
КонецПроцедуры // ПередОткрытием() 

Процедура КнопкаВыполнитьНажатие()
   
// Ответ = ПослатьSMS("79999999999", "Ваш пароль: 123", Истина);               
    // Сообщение(Ответ);   
КонецПроцедуры   


//***************************************************************************************
// ОПЕРАТОРЫ ОСНОВНОЙ ПРОГРАММЫ
//***************************************************************************************

ФорматыСообщений = Новый Массив(12);
ФорматыСообщений[1] = "flash=1";
ФорматыСообщений[2] = "push=1";
ФорматыСообщений[3] = "hlr=1";
ФорматыСообщений[4] = "bin=1";
ФорматыСообщений[5] = "bin=2";
ФорматыСообщений[6] = "ping=1";
ФорматыСообщений[7] = "mms=1";
ФорматыСообщений[8] = "mail=1";
ФорматыСообщений[9] = "call=1";
ФорматыСообщений[10] = "viber=1";
ФорматыСообщений[11] = "soc=1";

// Examples:
// Ответ = ПослатьSMS("79999999999", "Ваш пароль: 123", Истина);
// Ответ = ПослатьSMS("79999999999", "http://smscentre.com\nSMSCENTRE.COM", Ложь, 0, 0, 0, "", "maxsms=3");
// Ответ = ПослатьSMS("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", Ложь, 0, 0, 5, "");
// Ответ = ПослатьSMS("79999999999", "", Ложь, 0, 0, 3, "");
// Ответ = ПолучитьСтатус(sms_id, "79999999999");
// Баланс = ПолучитьБаланс();

An example of using the library: ...
Ответ = ПослатьSMS("79999999999", "Ваш пароль: 123", 1);
...
Ответ = ПослатьSMS("79999999999", "http://smscentre.com\nSMSCENTRE.COM", 0, 0, 0, 0, "", "", "push=1");
...
Ответ = ПослатьSMS("79999999999", "0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101", 0, 0, 0, 0, "", "", "bin=2");
...
Ответ = ПослатьSMS("79999999999", "", 0, 0, 0, 0, "", "", "hlr=1");
...
Ответ = ПолучитьСтатус(sms_id, "79999999999");
...
Баланс = ПолучитьБаланс();
...

A full-featured processing to send SMS messages based on library.

FAQ: How to connect using the HTTPS protocol



© 2003–2023 SMS Center LLC
License no. 166255
support@smscentre.com
Contacts
Design — Artemy Lebedev Studio
Site Information
SMS Center for Android Yandex. Metrica