تقييم الموضوع :
  • 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;
?>
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تحويل هذا الكود و جعله يعمل Necro PC 2 166 15-10-21, 03:08 PM
آخر رد: Necro PC
  مشكلة عند تحويل البيانات من الداتاقريدفيو الى الإكسل جيولوجي مبتدئ 3 204 09-10-21, 06:55 PM
آخر رد: ahmed4
  مشكلة في تحويل كود من #c الي vb.net الماجيك مسعد 6 375 27-09-21, 04:31 PM
آخر رد: الماجيك مسعد
  تحويل مشروع فيجوال بيسك الى سي شارب salim0ham 5 607 20-08-21, 05:49 PM
آخر رد: momani33
Question [سؤال] حل مشكلة تظهر عند تحويل كود من VBA إلى VB.NET السندبااد 1 377 19-08-21, 11:42 AM
آخر رد: السندبااد
  تحويل الارقام الي حروف محمد بوقزاحة 7 5,817 12-08-21, 09:03 AM
آخر رد: Jamil Alanesi
  [VB.NET] تحويل كود بايثون ل vb.net farfour 1 332 27-06-21, 04:40 PM
آخر رد: farfour
  تحويل عمود في الداتاقريدفيو الى datetimepicker جيولوجي مبتدئ 3 449 17-06-21, 04:58 PM
آخر رد: جيولوجي مبتدئ
  [VB.NET] تحويل pdf الى صورة بدون استخدام الاكروبات بأستخدام adobe reader العادى فقط AhmedNagib 0 351 25-05-21, 12:38 AM
آخر رد: AhmedNagib
  تحويل كود من c# الى vb.net aldery 2 464 24-05-21, 08:39 PM
آخر رد: aldery

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


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