Home/ Questions/Q 676267
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-14T00:54:33+00:00

How do I convert the below PHP code to VB.NET? <?php $X_HOST =foo.com; $X_URL

  • 0

How do I convert the below PHP code to VB.NET?

<?php
    $X_HOST ="foo.com";
    $X_URL = "/index.php";
    $X_PORT ="8080";
    $X_USERNAME = "foo";
    $X_PASSWORD = "bar";
    $s_POST_DATA = "Channel=UK.VODAFONE"; // Channel
    $s_POST_DATA .= "&Shortcode=12345"; // Shortcode
    $s_POST_DATA .= "&SourceReference=3456"; // Source Reference
    $s_POST_DATA .= "&MSISDN=447811111111"; // Phone
    $s_POST_DATA .= "&Content=test"; // Content
    $s_POST_DATA .= "&DataType=0"; // Data Type
    $s_POST_DATA .= "&Premium=1"; // Premium
    $s_POST_DATA .= "&CampaignID=4321"; // CampaignID
    $s_Request = "POST ".$X_URL." HTTP/1.0\r\n";
    $s_Request .="Host: ".$X_HOST.":".$X_PORT."\r\n";
    $s_Request .="Authorization: Basic ".base64_encode($X_USERNAME.":".$X_PASSWORD)."\r\n";
    $s_Request .="Content-Type: application/x-www-form-urlencoded\r\n";
    $s_Request .="Content-Length: ".strlen($s_POST_DATA)."\r\n";
    $s_Request .="\r\n".$s_POST_DATA;
    //Sends out the request to the server.
    $fp = fsockopen ($X_HOST, $X_PORT, $errno, $errstr, 30) or die("Error!!!");
    fputs ($fp, $s_Request);
    while (!feof($fp)) {
    $s_GatewayResponse .= fgets ($fp, 128);
    }
    fclose ($fp);
    //Array of official response codes.
    $a_Responses = array(
    "100" => "Server has returned an unspecified error.",
    "101" => "Server successfully received the request.",
    "102" => "Server has returned an database error",
    "103" => "Server has returned an syntax error."
    );
    echo "<HTML>\n<BODY>\n\n";
    //Checks for an official response code.
    foreach ($a_Responses as $s_ResponseCode => $s_ResponseDescription) {
    if (stristr($s_GatewayResponse, "\n$s_ResponseCode\n")) {
    echo "A response code of $s_ResponseCode was returned – ";
    echo $s_ResponseDescription";
    $b_CodeReturned = true;
    }
    }
    //Checks for an authorization failure where an official response code has 
    //not been recognized.
    if (!$b_CodeReturned) {
    if (stristr($s_GatewayResponse, "HTTP/1.1 401")) {
    echo "The server rejected your username/password (HTTP 401).";
    } else {
    echo "No recognised response code was returned by the server.";
    }
    }
    echo "\n\n</BODY>\n</HTML>";
    ?>

and 

<?php
    $s_ref = $HTTP_POST_VARS["Reference"]; // Reference
    $s_trg = $HTTP_POST_VARS["Trigger"]; // trigger
    $s_shc = $HTTP_POST_VARS["Shortcode"]; // shortcode
    $s_pho = $HTTP_POST_VARS["MSISDN"]; // MSISDN
    $s_con = $HTTP_POST_VARS["Content"]; // Content
    $s_chn = $HTTP_POST_VARS["Channel"]; // Channel
    $s_pay = $HTTP_POST_VARS["DataType"]; // Data Type
    $s_dat = $HTTP_POST_VARS["DateReceived"]; // Date Received
    $s_cam = $HTTP_POST_VARS["CampaignID"]; // CampaignID
    $b_IsValid = getValidateRequest($s_ref, $s_trg, $s_shc, $s_pho, $s_con, $s_cam, $s_chn, $s_pay, 
    $s_dat);
    if ($b_IsValid) 
    {
    $s_ResponseCode = "success";
    } 
    else 
    {
    $s_ResponseCode = "fail";
    }
    exit($s_ResponseCode);
    /*******************************************************************************/
    function getValidateRequest ($s_req_ref, $s_req_trg, $s_req_shc, $s_req_pho, $s_req_con, $s_req_cam, 
    $s_req_chn, $s_req_pay, $s_req_dat) {
    /*
     * Stub function to be replaced with whatever process is needed to
     * process/validate request from server by specific client requirements.
     */
    return(true);
    }
    ?>

lastly

    <?php
$s_ref = $HTTP_POST_VARS["Reference"]; // Reference
$s_sta = $HTTP_POST_VARS["Status"]; // Status
$s_dat = $HTTP_POST_VARS["DateDelivered"]; // Date Delivered
$b_IsValid = getValidateReceipt($s_ref, $s_sta, $s_dat);
if ($b_IsValid) 
{
$s_ResponseCode = "success";
} 
else 
{
$s_ResponseCode = "fail";
}
exit($s_ResponseCode);
/*******************************************************************************/
function getValidateReceipt ($s_req_ref, $s_req_sta, $s_req_dat) 
{
/*
 * Stub function to be replaced with whatever process is needed to
 * process/validate receipts from server by specific client requirements.
 */
return(true);
}
?>

Thank you very much in advance
Regards
Greg

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    The first bunch of code is just downloading a web page with specific headers & authentication. Check out the HttpWebRequest class.

    The other two chunks of code are just retreiving POST’d data from a client and then it passes those variables to the getValidateReceipt() function that validates what was sent in, note it’s empty though, so it does nothing.

    This looks like old PHP code as using the CURL library and $_POST would be more modern ways of doing things.

    • 0