static gPlain[3][145];

stock afficher(server[], const texte[])
{
    new
    size = strlen(texte),
    buffer[size+3] = "t=";
    strcat(buffer, texte);
    strcat(server, "afficher.php");
    return HTTP(1, HTTP_POST, server, buffer, "OnQueryResponse");
}

stock hasher_md5(server[], const plain[145])
{
    gPlain[0] = plain;
    new
    buffer[147] = "p=";
    strcat(buffer, plain);
    strcat(server, "md5.php");
    return HTTP(2, HTTP_POST, server, buffer, "OnQueryResponse")
}

stock hasher_sha1(server[], const plain[145])
{
    gPlain[1] = plain;
    new
    buffer[147] = "p=";
    strcat(buffer, plain);
    strcat(server, "sha1.php");
    return HTTP(3, HTTP_POST, server, buffer, "OnQueryResponse");
}

stock hasher_whirlpool(server[], const plain[145])
{
    gPlain[2] = plain;
    new
    buffer[147] = "p=";
    strcat(buffer, plain);
    strcat(server, "whirlpool.php");
    return HTTP(4, HTTP_POST, server, plain, "OnQueryResponse");
}

stock mail(server[], const dest[], const subject[], message[])
{
    new
        buffer[2048] = "t=",
        pos = 2,
        len = strlen(dest)
    ;
    traiter_message(message);

    memcpy(buffer, dest, 8, (len+1)*4);
    encode(buffer[pos], 2048 - pos);
    strcat(buffer, "&s=");

    pos = strlen(buffer);
    len = strlen(subject);

    memcpy(buffer, subject, pos*4, (len+1)*4);
    encode(buffer[pos], 2048-pos);
    strcat(buffer, "&m=");

    pos = strlen(buffer);
    len = strlen(message);

    memcpy(buffer, message, pos*4, (len+1)*4);
    encode(buffer[pos], 2048-pos);

    strcat(server, "mail.php");

    return HTTP(5, HTTP_POST, server, buffer, "OnQueryResponse");
}

stock recuperer(server[])
{
    strcat(server, "get_head.txt");
    return HTTP(6, HTTP_GET, server, "", "OnQueryResponse");
}

stock recuperer_head(server[])
{
    strcat(server, "get_head.txt");
    return HTTP(7, HTTP_HEAD, server, "", "OnQueryResponse");
}

static stock traiter_message(message[])
{
    for(new i = 0; i < strlen(message); i++)
    {
        static var = 0;
        var++;
        if(message[i] == '\n') message[i] == '\r\n';
        if(message[i] == ' ' && var > 60) strins(message, "\r\n", i, .maxlenght = sizeof(message)), var = 0;
    }
}

static stock encode(szURL[], iSize = sizeof(szURL))
{
    for(new i = 0, iLen = strlen(szURL); szURL[i] != EOS; ++i)
    {
        switch(szURL[i])
        {
            case '0' .. '9', 'A' .. 'Z', 'a' .. 'z', '-', '_', '.', '!', '~', '*', '\'', '(', ')': continue;
            case ' ': szURL[i] = '+', continue;
        }
        if((i + 3) >= iSize) szURL[i] = EOS, break;
        if((iLen + 3) >= iSize) szURL[iSize - 3] = EOS;
        static s_szHex[3];
        format(s_szHex, sizeof(s_szHex), "%02x", szURL[i]);
        szURL[i++] = '%';
        strins(szURL, s_szHex, i++, iSize);
    }
}

static OnQueryResponse(idx, response, data[]);

public OnQueryResponse(idx, response, data[])
{
    if(response != 200) printf("ERREUR : %d", response);
    switch(idx)
    {
        case 1: printf("AFFICHER RETOURNE : %s", data);
        case 2: printf("HASH MD5 POUR %s : %s", gPlain[0], data);
        case 3: printf("HASH SHA-1 POUR %s : %s", gPlain[1], data);
        case 4: printf("HASH WHIRLPOOL POUR %s : %s", gPlain[2], data);
        case 5: printf("LE MAILER RETOURNE : %s", data);
        case 6: printf("LA REQUETE GET RETOURNE : %s", data);
        case 7: printf("LA REQUETE HEAD RETOURNE : %s", data);
    }
    return true;
}