التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



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


الردود في هذا الموضوع
تحويل كود php الي vb - بواسطة medomessi101 - 27-06-18, 03:53 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 359 13-01-24, 04:22 AM
آخر رد: dr.programming
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 718 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 265 29-12-23, 10:44 PM
آخر رد: Kamil
  تحويل مشروع من 2008 الي 2015 atefkhalf2004 0 259 23-11-23, 03:10 PM
آخر رد: atefkhalf2004
  طريقة تحويل الأرقام إلى حروف Adel27213 2 495 18-11-23, 01:40 AM
آخر رد: sniper2030
  تحويل التاريخ في الداتاقريدفيو إلى أيام عربية صالح عبدالله 2 318 08-10-23, 12:17 AM
آخر رد: صالح عبدالله
  تحويل مشروع دوت نت الى native code ابو محمد محمد محمد 0 406 26-07-23, 12:18 AM
آخر رد: ابو محمد محمد محمد
  [VB.NET] تحويل من Hex الى text aminesori 4 446 18-07-23, 07:05 PM
آخر رد: aminesori
  تحويل من قاعدة بيانات الى مصفوفة Lathe1 4 821 31-05-23, 09:41 PM
آخر رد: fouadhdfouad
Lightbulb [كود] ♥ تحويل كودين مــــــــ VB.net ـــــــــن إلــــــــــــ VB6 ــــــــــــى♥ أبو خالد الشكري 7 573 27-05-23, 10:35 PM
آخر رد: أبو خالد الشكري

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


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