<?php
// размер символа
$wchar = 9;
$hchar = 13;
$strDict = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 ';
$imgDict = imagecreatetruecolor(2 + strlen($strDict)* $wchar, $hchar);
$bg = imagecolorallocate($imgDict, 0xF6, 0xF6, 0xF6);
$textcolor = imagecolorallocate($imgDict, 0x4C, 0x4C, 0x4C);
imagefill($imgDict, 0, 0, $bg);
imagestring($imgDict, 5, 2, 0, $strDict, $textcolor);

// инициализируем cURL
$ch = curl_init();
// устанавливаем url, с которого будем получать данные
//curl_setopt($ch, CURLOPT_URL, 'https://www.vpnbook.com/password.php');
curl_setopt($ch, CURLOPT_URL, 'https://script.google.com/macros/s/AKfycbwYPfaZobtjbFv0mSYI8U4NIXPh1Sft_DkGH8QKgg/exec');
// устанавливаем опцию, чтобы содержимое вернулось нам в string
curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($ch, CURLOPT_BINARYTRANSFER, 1); // also, this seems wise considering output is image.
// выполняем запрос
$output = curl_exec($ch);
// закрываем cURL
curl_close($ch);

// echo $output;

$imgOCR = imagecreatefromstring(base64_decode($output));
//$imgOCR = imageCreateFromPng('password.png');
// в текущее изображение может поместиться 10 полных символов. 2 + 10*9 = 92 < 100
$maxchar = floor((imagesx($imgOCR) - 2) / 9);
$imgBox = imagecreatetruecolor($wchar, $hchar);
$hashDict = Array();

// генерируем словарь
for ($k = 0; $k < strlen($strDict) ; $k++) {
	imagecopy($imgBox, $imgDict, 0, 0, 2 + $k * $wchar, 0, $wchar, $hchar);
	$hashStr = "";
	for($y = 0; $y < $hchar ; $y++)
		for($x = 0; $x < $wchar; $x++) $hashStr .= (imagecolorat($imgBox, $x, $y) != 0xF6F6F6)? '1': '0';
	$hashDict[$hashStr] = $strDict[$k];
}

// ищем символы по словарю
for ($k = 0; $k < $maxchar ; $k++) {
	imagecopy($imgBox, $imgOCR, 0, 0, 2 + $k * $wchar, 0, $wchar, $hchar);
	$hashStr = "";
	for($y = 0; $y < $hchar ; $y++)
		for($x = 0; $x < $wchar; $x++) $hashStr .= (imagecolorat($imgBox, $x, $y) != 0xF6F6F6)? '1': '0';
  $tempchar = $hashDict[$hashStr];
  if ($tempchar=='u' || $tempchar=='y') // проблема совпадения символов
    $tempchar = (mt_rand(0, 1))? 'u': 'y';
    //$tempchar = (time() / 60 % 60 % 2)? 'u': 'y';
  elseif ($tempchar==' ') break;
	print($tempchar);
}

/*
header('Content-type: image/png');
imagepng($imgDict);
*/

//var_dump($hashDict);
imagedestroy($imgDict);
imagedestroy($imgOCR);
imagedestroy($imgBox);
?>

function doGet() {
  //var file = DriveApp.getFilesByName("password2.png").next();
  //var image = file.getBlob(); 
  
  var image = UrlFetchApp.fetch('https://www.vpnbook.com/password.php').getBlob();
  var imageString = image.getDataAsString();
  var imageArray = image.getBytes().map(function(e) { return e & 0xff; });
  // imageArray = blobToUint8(imageArray);
  
  var chunkIDATStart = imageString.indexOf("IDAT") + 4; // начало секции IDAT
  var chunkIDATLen = bytesToUint32(imageArray, imageString.indexOf("IDAT") - 4); // размер секции IDAT
  var IDATArray = imageArray.slice(chunkIDATStart, chunkIDATStart + chunkIDATLen)
   
  var inflate = new zlibjs.Inflate(IDATArray); // распаковка IDAT с помощью zlib
  var plain = inflate.decompress();

  const Width = 100; // ширина изображения
  const Height = 13; // высота изображения
  const wchar = 9; // ширина символа
  const hchar = 13; // высота символа
  
  //Logger.log(typeof(plain));
  //Logger.log(plain);
  
  rowlen = (Width / 8) >> 0; // целое число байт, длина строки пикселей
  if ((Width - rowlen * 8) > 0) { // остаток от деления
    rowlen+=2;  // +1 filter byte at the beginning of each row. Из описания формата PNG
  } else {
    rowlen++;
  }
 
  function getXY(x, y) { // значение пикселя: 0/1
    var xbyte = (x / 8 >> 0); // номер байта, целое деления
    //Logger.log("xbyte: " + xbyte);
    var xbit = x - xbyte * 8; // номер бита, остаток от деления
    //Logger.log("xbit: " + xbit);
    return (plain[xbyte + 1 + y * rowlen] << xbit & 0x80) >> 7;  // +1 filter byte at the beginning of each row
  }
  // Logger.log("getXY: " + getXY(4, 3));
  // Хэш-таблица символов. Каждый символ в изображении можно выделить как 8 бит (без учета отступов) x 10 строк, поэтому можно хранить строку в целом числе (byte), а весь символ как последовательность 10 целых чисел.
  // Получается 10 hex чисел на символ.
  var hashDict = {'183C66C3C3C3FFC3C3C3':'A','FCC6C3C6FCC6C3C3C6FC':'B','3E63C1C0C0C0C0C1633E':'C','FCC6C3C3C3C3C3C3C6FC':'D', 'FEC0C0C0FCC0C0C0C0FE':'E','FFC0C0C0FCC0C0C0C0C0':'F','3E63C0C0C0C7C3C3633E':'G','C3C3C3C3FFC3C3C3C3C3':'H', '7E18181818181818187E':'I','1E666666466C38':'J','C3C6CCD8F0F0D8CCC6C3':'K','C0C0C0C0C0C0C0C0C0FE':'L', 'C3E7FFDBDBDBC3C3C3C3':'M','C3E3F3F3DBDBCFC7C7C3':'N','3C66C3C3C3C3C3C3663C':'O','FEC3C3C3FEC0C0C0C0C0':'P', '3C66C3C3C3C3DBCF663D':'Q','FEC3C3C3FEF8CCC6C3C3':'R','7EC3C0C07E333C37E':'S','FF181818181818181818':'T', 'C3C3C3C3C3C3C3C3663C':'U','C3C3C36666663C3C1818':'V','C3C3C3C3DBDBDBFFE7C3':'W','C3C3663C18183C66C3C3':'X', 'C3C3663C181818181818':'Y','FE66C183060C0C0FE':'Z','0003E6337FC3C77B':'a','C0C0C0DCE6C3C3C3E6DC':'b', '0003E63C0C0C0633E':'c','3333B67C3C3C3673B':'d','0003C66C3FFC0633E':'e','1E33333030FC30303030':'f', '0007DC7C6C67CC07E':'g','C0C0C0DCE6C3C3C3C3C3':'h','181803818181818187E':'i','660E66666C6':'j', '606060666C78786C6663':'k','3818181818181818183C':'l','000B6DBDBDBDBDBDB':'m','000DCE6C3C3C3C3C3':'n', '0003C66C3C3C3663C':'o','000DCE6C3C3C3E6DC':'p','0003B67C3C3C3673B':'q','000DE736060606060':'r', '0007EC3C07E3C37E':'s','03030FC30303030331E':'t','000C3C3C3C3C3673B':'u','000C3C366663C3C18':'v', '000C3C3DBDBDBFF66':'w','000C3663C183C66C3':'x','000C3C3C3C3C3673B':'y','0007E6C1830607E':'z', '183C66C3C3C3C3663C18':'0','1838781818181818187E':'1','3C66C336C183060FF':'2','7CC6361C633C67C':'3', '6E1E3666C6FF666':'4','FEC0C0DCE633C3663C':'5','3C66C2C0DCE6C3C3663C':'6','FF336C183060C0C0':'7', '3C66C3663C66C3C3663C':'8','3C66C3C3673B343663C':'9','0000000000':' '};

  // в текущее изображение может поместиться 10 полных символов. 2 + 10*9 = 92 < 100
  const maxchar = (Width - 2) / wchar >> 0;
  var password = '';
  for (var charX = 2; charX < maxchar * wchar + 2; charX+=wchar) { // проход по символам
    var hash = ''; // хэш символа
    for (var charY = 3; charY < hchar; charY++) { // проход по Y-строкам
      var charrow = 0; // целое число - значение 8бит строки пикселей
      for (var charXbit = 0; charXbit < 8; charXbit++) { // проход по X-стобцам
        charrow <<= 1;
        charrow |= getXY(charX + charXbit, charY);
      }
      hash += charrow.toString(16).toUpperCase();
      //Logger.log("charrow: " + charrow.toString(2));
      //Logger.log("charrow: " + charrow.toString(16).toUpperCase());
    }
    var tempChar = hashDict[hash];
    if (tempChar === 'u' || tempChar === 'y') { // решение проблемы совпадения символов
      tempChar = (Date.now() % 2) ? 'u': 'y';
    }
    if (tempChar !== ' ') {
      password += tempChar; 
      // Logger.log("hash: " +  hash);
      // Logger.log("Char: " +  tempChar);
    }
  }
  Logger.log("password: " +  password);
  return ContentService.createTextOutput(password);
}

function blobToUint8(blob) {
  return blob.map(function(e){
    return e & 0xff;
  });
}

function bytesToUint32(byteArray, start) {
    var value = 0;
    for (var i = start; i < start + 4; i++) {
        value = (value * 256) + (byteArray[i] & 0xff);
    }
    return value;
}

function my2() {
  var file = DriveApp.getFilesByName("password2.png").next();
  // var file = DriveApp.getFilesByName("test.bin").next();
  var image = file.getBlob(); 
  //var imageArray = image.getBytes();
  //var img = UrlFetchApp.fetch('http://example.com/image.png');
  var reader = new pngjs.PNGReader(image.getBytes());
  var png = reader.parse(function(err, png){
    if (err) throw err;
	return png;
  });
  Logger.log(png);
}

# VPNBookScript v4
:local VPNBookpIfName "pptp-out1"
:local VPNBookServerAddresses {"PL226.vpnbook.com";"de4.vpnbook.com";"us1.vpnbook.com";"us2.vpnbook.com";"fr1.vpnbook.com ";"fr8.vpnbook.com ";"ca222.vpnbook.com ";"ca198.vpnbook.com"}

:local VPNBookErr false
:global VPNBookPass
:global VPNBookRun

:global VPNBookServerIndex
:if ([:typeof $VPNBookServerIndex] != "num") do={:set VPNBookServerIndex 0}

:if ([/interface pptp-client get $VPNBookpIfName running]) do={
  :set VPNBookRun true
} else {
  :if (!$VPNBookRun) do={
    :set VPNBookServerIndex ($VPNBookServerIndex + 1)
    :if ($VPNBookServerIndex>=[:len $VPNBookServerAddresses]) do={:set VPNBookServerIndex 0}
  } else {
    :set VPNBookRun false
  }
  :if (![/interface pptp-client get $VPNBookpIfName disabled]) do={/interface pptp-client set $VPNBookpIfName disabled=yes}
#  :do {:set VPNBookPass ([/tool fetch url="http://serv/vpnbookpass_googlescript.php" output=user as-value]->"data")} on-error={:set VPNBookErr true}
  :do {
# First request with Moved Temporarily. Fetch out to gasfetchout.txt
    :local jobid [:execute script={/tool fetch url="https://script.google.com/macros/s/A.....g/exec" output=user as-value} file=gasfetchout.txt]
# Wait end job
    :while ([:len [/system script job find .id=$jobid ]] > 0) do={ delay 1s }
# parse new URL for second fetch
    :local fetchOut [/file get gasfetchout.txt contents]
    :local startURL [:find $fetchOut "http" -1]
    :local endURL [:find $fetchOut "\"> " startURL]
    :local moveURL [:pick $fetchOut $startURL $endURL]
    :set VPNBookPass ([/tool fetch url=$moveURL output=user as-value]->"data")
  } on-error={:set VPNBookErr true}
  :if (!$VPNBookErr) do={
    :if ([/interface pptp-client get $VPNBookpIfName password] != $VPNBookPass) do={/interface pptp-client set $VPNBookpIfName password=$VPNBookPass}
    :if ([/interface pptp-client get $VPNBookpIfName connect-to] != $VPNBookServerAddresses->$VPNBookServerIndex) do={/interface pptp-client set $VPNBookpIfName connect-to=($VPNBookServerAddresses->$VPNBookServerIndex)}
    :log info "VPNBook: Attempt to connect to: $($VPNBookServerAddresses->$VPNBookServerIndex). Password: $VPNBookPass"
    /interface pptp-client set $VPNBookpIfName disabled=no
  }
}