تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل كود php الي vb
#1
السلام عليكم احبائي
اريد تحويل كود php مهم الي لغه ال vb

وجزاكم الله كل خير
الكود
PHP كود :
<?PHP
function mid($atext,$start,$olength){
$outx="";
    for (
$k=0;$k<$olength;$k++){
    
$outx=$outx.$atext[$start+$k-1];
    }
    return 
$outx;
}
function 
BaseShuffle($sStr$ShuffleMap){
$mpmem Explode(",",$ShuffleMap);
$baseout="";
    For (
$shfi=1;$shfi<21;$shfi++){
        
$baseout $baseout mid($sStr$mpmem[$shfi 1], 1);
    }
    return 
$baseout;
}
function 
MapShuffle($sStr,$sMap) {
$ccount intval(strlen($sStr) / 20);
$Shuffleout="";
    For (
$ispf=1;$ispf<$ccount+1;$ispf++){
$Shuffleout $Shuffleout BaseShuffle(mid($sStr, ($ispf 1) * 20 120),$sMap);
    }
$Shuffleout $Shuffleout mid($sStr$ccount 20 1strlen($sStr) - $ccount 20);
    return 
$Shuffleout;
}
?>
<?php
    if 
(getenv('HTTP_CLIENT_IP'))
 
       $ip getenv('HTTP_CLIENT_IP');
 
   else if(getenv('HTTP_X_FORWARDED_FOR'))
 
       $ip getenv('HTTP_X_FORWARDED_FOR');
 
   else if(getenv('HTTP_X_FORWARDED'))
 
       $ip getenv('HTTP_X_FORWARDED');
 
   else if(getenv('HTTP_FORWARDED_FOR'))
 
       $ip getenv('HTTP_FORWARDED_FOR');
 
   else if(getenv('HTTP_FORWARDED'))
 
       $ip getenv('HTTP_FORWARDED');
 
   else if(getenv('REMOTE_ADDR'))
 
       $ip getenv('REMOTE_ADDR');
 
   else
        $ip 
'UNKNOWN';

$url 'https://proxies-beinmena.portail.alphanetworks.be/proxy/login';
$username $_GET['email'];
$password $_GET['password'];
$data = array('email' => $username,'password' => $password);
// use key 'http' even if you send the request to https://...
$options = array(
 
   'http' => array(
 
       'header'  => "Host: proxies-beinmena.portail.alphanetworks.be\r\nConnection: keep-alive\r\nAccept: */*\r\nX-AN-WebService-IdentityKey: swezezavave3r5brujeWruchabuvejup\r\nUser-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.186 Safari/537.36\r\nContent-Type: application/x-www-form-urlencoded; charset=UTF-8\r\nDNT: 1\r\nAccept-Encoding: gzip, deflate, br\r\nAccept-Language: en-US,en;q=0.9",
 
       'method'  => 'POST',
 
       'content' => http_build_query($data)
 
   )
);
$context  stream_context_create($options);
$result file_get_contents($urlfalse$context);
if (
$result === FALSE) { 
echo 
'Error in email or password';
exit;
 }
//var_dump($result);
$json json_decode($resulttrue);
$frsttk $json['result']['newAuthToken'];
echo 
"First : ",$frsttk,"<br>" ;

$url 'https://proxies-beinmena.portail.alphanetworks.be/proxy/casAvailableDevice';
$data = array('territory' => 'MENA''custToken' => $frsttk);

// use key 'http' even if you send the request to https://...
$options = array(
 
   'http' => array(
 
       'header'  => "Host: proxies-beinmena.portail.alphanetworks.be\r\nConnection: keep-alive\r\nAccept: */*\r\nX-AN-WebService-IdentityKey: swezezavave3r5brujeWruchabuvejup\r\nUser-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.186 Safari/537.36\r\nContent-Type: application/x-www-form-urlencoded; charset=UTF-8\r\nDNT: 1\r\nAccept-Encoding: gzip, deflate, br\r\nAccept-Language: en-US,en;q=0.9\r\nX-AN-WebService-CustomerAuthToken:{$frsttk}",
 
       'method'  => 'POST',
 
       'content' => http_build_query($data)
 
   )
);
$context  stream_context_create($options);
$result file_get_contents($urlfalse$context);
if (
$result === FALSE) { 
echo 
'ERROR 2';
exit;
}

$json json_decode($resulttrue);
$deviceID $json['result']['device'][rand(0,count($json['result']['device'])-1)]['uniqueDeviceId'];
if(
$deviceID == ''){
    echo 
'This account not valid';
    exit;
}else{
    
// cont 
}
$url 'https://proxies-beinmena.portail.alphanetworks.be/proxy/casAddDevice';
$data = array('deviceUniqueId' => "{$deviceID}");

// use key 'http' even if you send the request to https://...
$options = array(
 
   'http' => array(
 
       'header'  => "Host: proxies-beinmena.portail.alphanetworks.be\r\nConnection: keep-alive\r\nAccept: */*\r\nX-AN-WebService-IdentityKey: swezezavave3r5brujeWruchabuvejup\r\nUser-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.186 Safari/537.36\r\nContent-Type: application/x-www-form-urlencoded; charset=UTF-8\r\nDNT: 1\r\nAccept-Encoding: gzip, deflate, br\r\nAccept-Language: en-US,en;q=0.9\r\nX-AN-WebService-CustomerAuthToken:{$frsttk}",
 
       'method'  => 'POST',
 
       'content' => http_build_query($data)
 
   )
);
$context  stream_context_create($options);
$result file_get_contents($urlfalse$context);
if (
$result === FALSE) { echo 'Account not valid';
exit; }

$json json_decode($resulttrue);
$deviceToken $json['result']['deviceAuthToken'];

$url 'https://proxies-beinmena.portail.alphanetworks.be/proxy/loginWebPlayer';
$data = array('{}');

// use key 'http' even if you send the request to https://...
$options = array(
 
   'http' => array(
 
       'header'  => "Host: proxies-beinmena.portail.alphanetworks.be\r\nConnection: keep-alive\r\nAccept: */*\r\nX-AN-WebService-IdentityKey: swezezavave3r5brujeWruchabuvejup\r\nUser-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.186 Safari/537.36\r\nContent-Type: application/x-www-form-urlencoded; charset=UTF-8\r\nDNT: 1\r\nAccept-Encoding: gzip, deflate, br\r\nAccept-Language: en-US,en;q=0.9\r\nX-AN-WebService-CustomerAuthToken:{$frsttk}\r\nX-AN-WebService-DeviceAuthToken:{$deviceToken}",
 
       'method'  => 'POST',
 
       'content' => http_build_query($data)
 
   )
);
$context  stream_context_create($options);
$result file_get_contents($urlfalse$context);
if (
$result === FALSE) { echo 'ERROR 3';
exit; }
$json json_decode($resulttrue);
$secttk $json['result']['newAuthToken'];
echo 
"Second : ",$secttk;
?>
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب تحويل كود من vba الى vb.net Lathe1 3 265 06-06-22, 09:59 PM
آخر رد: رمضان272
  [سؤال] استفسار عن تحويل كود طباعة داتا قريد فيو من اليسار لليمين Marwan9990 15 6,286 25-05-22, 11:39 PM
آخر رد: atefkhalf2004
  تحويل كود الى جافا saidhamed 1 204 25-05-22, 10:29 PM
آخر رد: asmarsou
  مطلوب تحويل كود من vba الى vb.net Lathe1 2 211 21-05-22, 10:29 AM
آخر رد: Lathe1
  [VB.NET] نقاش تحويل المشاريع بتقنية vbnet للعمل على الأنظمة الأخرى Kit909 3 368 11-05-22, 05:22 AM
آخر رد: Kit909
  [VB.NET] تحويل مشروع من اصدار فيجوال بيسك لأصدار احدث على رمضان أبو احمد 1 367 09-05-22, 09:16 PM
آخر رد: ابراهيم ايبو
  مشكلة في تحويل الصوت mohmmadadli 1 540 10-03-22, 12:41 AM
آخر رد: asmarsou
  [VB.NET] مساعدة في تحويل كود بايثون الى فيجوال ميدو الفنان 11 1,451 09-02-22, 08:08 AM
آخر رد: ميدو الفنان
  تحويل الداتاغريدفيو إلى الغريد كونترول التابع للديف إكسبرس nouribenyahia 5 663 26-12-21, 01:53 AM
آخر رد: DR.YASER
  [VB.NET] كيفية تحويل قيمة textbox الي hex ابو ياسين ويزن 2 648 29-11-21, 09:35 PM
آخر رد: ابو ياسين ويزن

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم