encryption – how to invert this code VB

I have a vb file or c # am confused which language anyway here is what we need

from the file as functions (PHP fan: p).

StringParser public static object (object d, object p)
{
ASCIIEncoding asciiencoding = new ASCIIEncoding ();
byte[] array = Convert.FromBase64String (Conversions.ToString (d));
array = (byte[]) DecodeStringx.smethod_0 (array, RuntimeHelpers.GetObjectValue (p));
return asciiencoding.GetString (array);
}

private static object smethod_0 (octet[] b, object p)
{
return DecodeStringx.DC_Work (b, (byte[]) DecodeStringx.StrToByteArray (Conversions.ToString (p)));
}

private static object DC_Work (byte[] d, byte[] p)
{
checked
{
new byte[d.Length + 1];
int[] array = new int[257];
int num = 0;
int num2 = 0;
DecodeStringx.DC_Init (p, table of references);
int num3 = d.Length - 1;
for (int i = 0; i <= num3; i ++)
{
num = (num + 1)% 256;
num2 = (num2 + array[num])% 256;
int num4 = table[num];
board[num] = table[num2];
board[num2] = num4;
int value = table[(board[(Array[(tableau[(array[num] + table[num2])% 256];
re[i] ^ = Convert.ToByte (value);
}
return d;
}
}

static void protected DC_Init (octet[] k, ref int[] r)
{
int num = k.Length;
int num2 = 0;
checked
{
make
{
r[num2] = num2;
num2 ++;
}
while (num2 <= 255);
int num3 = 0;
num2 = 0;
make
{
num3 = (num3 + r[num2] + (int) k[num2 % num])% 256;
int num4 = r[num2];
r[num2] = r[num3];
r[num3] = num4;
num2 ++;
}
while (num2 <= 255);
}
}

private static object StrToByteArray (string d)
{
ASCIIEncoding asciiencoding = new ASCIIEncoding ();
return asciiencoding.GetBytes (" 0" + d + " 0");
}

so what i need is to reverse these codes and get a php code that decrypts

scrambled texts an example:

Versioned.CallByName (DecodeStringx.string_23, Conversions.ToString (DecodeStringx.StringParser ("t2381U9 / fVs =, xxxxxxx")), CallType.Set,

P.S: I'm in the right place 🙂

Number Theory – Resolution of $ (u-x_1) ^ {1/3} + (u-x_2) ^ {1/3} + (u-x_3) ^ {1/3} = {vb} ^ {1 / 3} $ with elliptic curves

Let $ x_1 $,$ x_2 $,$ x_3 $ to be the roots of cubic $ x ^ 3 + px + q $ more than $ mathbb Q $, the idea is that rational solutions $ (u, v) $ of the equation

$$ (u-x_1) ^ {1/3} + (u-x_2) ^ {1/3} + (u-x_3) ^ {1/3} = {vb} ^ {1/3} quad ( 1) $$

actually form a affine plane algebraic curve, which can be constructed as follows. First, consider the variety $ V $ lying in space $ mathbb A ^ 8 langle u, v, x_1, x_2, x_3, y_1, y_2, y_3 rangle $ on the function field $ mathbb Q (p, q) $,
$$ V: left { begin {aligned} & x_1 + x_2 + x_3 = 0, \
& x_1 x_2 + x_2 x_3 + x_1 x_3 = p, \
& x_1 x_2 x_3 = -q, \
& y_1 ^ 3 = u-x_1, \
& y_2 ^ 3 = u-x_2, \
& y_3 ^ 3 = u-x_3, \
& (y_1 + y_2 + y_3) ^ 3 = v. \
end {aligned} right. $$

Then define our curve $ C $ like the image of $ V $ under the map $ f: V to mathbb A ^ 2 langle x, y rangle $ given by
$ (u, v, x_1, x_2, x_3, y_1, y_2, y_3) mapsto (u, v) $. We can get an explicit equation for $ C $ with the help of
Magma calculator:

> F: = FunctionField (Rationals (), 2);
> A8: = AffineSpace (F, 8);
> V: = Scheme (A8,[x1+x2+x3, x1*x2+x2*x3+x3*x1-p, x1*x2*x3+q,
> u-x1-y1^3, u-x2-y2^3, u-x3-y3^3, (y1+y2+y3)^3-v])
> A2: = AffineSpace (F, 2);
> f: = mapA2 |[u,v]>;
> C: = image (f); C;
Diagram of Rational Multivariate Rational Function Field 2 on a Rational Field
Defined by
x ^ 7 * y ^ 2 - 1/27 * x ^ 6 * y ^ 3 + 1/9 * x ^ 5 * y ^ 4 + 11/9 * p * x ^ 5 * y ^ 2 - q * x ^ 5 * y - 1/243 * x ^ 4 * y ^ 5
- 13/27 * p * x ^ 4 * y ^ 3 + 11/9 * q * x ^ 4 * y ^ 2 + 2/9 * p ^ 2 * x ^ 4 * y + 1/243 * x ^ 3 * y ^ 6 +
46/243 * p * x ^ 3 * y ^ 4 - 16/27 * q * x ^ 3 * y ^ 3 + 7/27 * p ^ 2 * x ^ 3 * y ^ 2 - 5/9 * p * q * x ^ 3 * y -
1/27 * p ^ 3 * x ^ 3 - 1/6561 * x ^ 2 * y ^ 7 - 10/729 * p * x ^ 2 * y ^ 5 - 8/243 * q * x ^ 2 * y ^ 4 -
73/243 * p ^ 2 * x ^ 2 * y ^ 3 + 26/27 * p * q * x ^ 2 * y ^ 2 + (1/9 * p ^ 3 - 7/9 * q ^ 2) * x ^ 2 * y -
1/9 * p ^ 2 * q * x ^ 2 + 1/19683 * x * y ^ 8 + 35/6561 * p * x * y ^ 6 - 7/729 * q * x * y ^ 5 +
29/243 * p ^ 2 * x * y ^ 4 - 155/243 * p * q * x * y ^ 3 + (-1 / 9 * p ^ 3 + 19/27 * q ^ 2) * x * y ^ 2 +
2/9 * p ^ 2 * q * x * y - 1/9 * p * q ^ 2 * x - 1/531441 * y ^ 9 + 1/6561 * p * y ^ 7 + 53/6561 * q * y ^ 6 -
1/243 * p ^ 2 * y ^ 5 + 20/243 * p * q * y ^ 4 + (1/27 * p ^ 3 - 28/243 * q ^ 2) * y ^ 3 - 1/9 * p ^ 2 * q * y ^ 2
+ 1/9 * p * q ^ 2 * y - 1/27 * q ^ 3

Note that although the map $ f $ is not invertible, the bijection between the rational solutions of the equation $ (1) $ and rational points on the curve $ C $ is obvious:
$ (u, v) longleftrightarrow (x, y) $.
Moreover, using formulas in
this answer, we can build a rational map (which will be noted by $ varphi $) of elliptic curve
$ E: e ^ 2 = d ^ 3 + 27p ^ 3 + frac {729} 4q ^ 2 $ at the curve $ C $:

> One: = AffineSpace (F, 2);
> E: = curve (A,[-e^2+d^3+27*p^3+(729/4)*q^2])
> u: = (1/9 * d ^ 6 * e - 27/2 * q * d ^ 6 - p * d ^ 5 * e - 243/2 * p * q * d ^ 5 + (-12 * p ^ 3 -
> 81 * q ^ 2) * d ^ 3 * e + (-1458 * p ^ 3 * q - 19683/2 * q ^ 3) * d ^ 3 + (216 * p ^ 4 +
> 1458 * p * q ^ 2) * d ^ 2 * e + (-2592 * p ^ 6 - 34992 * p ^ 3 * q ^ 2 - 118098 * q ^ 4) * e) / (d ^ 7
> + 9 * p * d ^ 6 + 81 * p ^ 2 * d ^ 5 + (216 * p ^ 3 + 1458 * q ^ 2) * d ^ 4 + (972 * p ^ 4 +
> 6561 * p * q ^ 2) * d ^ 3 + (11664 * p ^ 6 + 157464 * p ^ 3 * q ^ 2 + 531441 * q ^ 4) * d);
> w: = (1/9 * d ^ 6 * e + 27/2 * q * d ^ 6 + 2 * p * d ^ 5 * e + (-12 * p ^ 3 - 81 * q ^ 2) * d ^ 3 * e +
> (1458 * p ^ 3 * q + 19683/2 * q ^ 3) * d ^ 3 + (-432 * p ^ 4 - 2916 * p * q ^ 2) * d ^ 2 * e +
> (-2592 * p ^ 6 - 34992 * p ^ 3 * q ^ 2 - 118098 * q ^ 4) * e) / (d ^ 7
> + 9 * p * d ^ 6 + 81 * p ^ 2 * d ^ 5 + (216 * p ^ 3 + 1458 * q ^ 2) * d ^ 4 + (972 * p ^ 4 +
> 6561 * p * q ^ 2) * d ^ 3 + (11664 * p ^ 6 + 157464 * p ^ 3 * q ^ 2 + 531441 * q ^ 4) * d);
> m: = e * (d ^ 5 + 12 * p * d ^ 4 + 54 * p ^ 2 * d ^ 3 + (108 * p ^ 3 + 729 * q ^ 2) * d ^ 2 +
> (-648 * p ^ 4 - 4374 * p * q ^ 2) * d) +
> 81/2 * q * d ^ 5 + (4374 * p ^ 3 * q + 59049/2 * q ^ 3) * d ^ 2;
> n: = d ^ 6 + 9 * p * d ^ 5 + 81 * p ^ 2 * d ^ 4 +
> (216 * p ^ 3 + 1458 * q ^ 2) * d ^ 3 + (972 * p ^ 4 + 6561 * p * q ^ 2) * d ^ 2 +
## EQU1 ##
> phi: = map C | [u, 3*u+3*m/n-3*w]>;
> time Image (phi) eq C;
true
Time: 66,680

If we choose the point $ P: = (- 3p, frac {27} 2 q) $ sure $ E $, we can check that the preimage of the point $ varphi (nP) in C $ cardinality $ 1 $ for everyone $ n in mathbb Z $ such as $ | n | <$ 5. It therefore seems plausible that the map $ varphi: E to C $ is a birational isomorphism; from where the questions:

  1. Is it possible to find the reverse of the map $ varphi $?
  2. How can we transform the curve $ C $ in the normal form of Weierstrass without knowing $ E $ in advance?

vb.net – Publish an application in VB with database

Well

I create a small program in Visual Basic to access access to the database, in which one can insert, edit, delete, and so on. But when I create the configuration, everything works fine, I can not access the database. Is there a way to create a configuration with the embedded database or must it be hosted on a server?

Thank you

Nginx proxy cache 404 static files not found (css, js, jpg, png vb)

My proxy server Nginx: 10.90.100.2
My back-end server: 10.90.100.3

my proxy server does not load static files (css, js, woff, png vb.)

My conf





proxy_cache_path / etc / nginx / proxy_cache levels = 1: 2 keys_zone = ferditest: 10m inactive = 60m;
proxy_cache_key "$ scheme $ request_method $ host $ request_uri";

server {

listen to 80;
listen to 443 ssl;
server_name www.abc.com abc.com;

ssl_certificate /etc/letsencrypt/live/abc.com/fullchain.pem;
ssl_certificate_key /etc/letsencrypt/live/abc.com/privkey.pem;




location ~ * . (jpg | jpeg | png | gif | ico | css | js | pdf | woff | woff2 | pdf) $ {
expires 30d;
}



#include /etc/nginx/bots.d/ddos.conf;
#include /etc/nginx/bots.d/blockbots.conf;
#include /etc/nginx/bots.d/blacklist-ips.conf;


ssl_ciphers HIGH :! aNULL :! MD5;
ssl_prefer_server_ciphers on;
shared ssl_session_cache: SSL: 1m;
ssl_session_timeout 5m;
ssl_protocols TLSv1 TLSv1.1 TLSv1.2; # do not use SSLv3 because of deadly poodles


the speed of pages on;
pagespeed FileCachePath "/ etc / nginx / ngx_pagespeed /";
pagespeed EnableFilters collapse_whitespace;
pagespeed EnableFilters extend_cache;
pagespeed EnableFilters make_google_analytics_async;
pagespeed EnableFilters lazyload_images;
pagespeed EnableFilters rewrite_images;

location ~ " .pagespeed .[a-z].)?[a-z]{2} .[^.]{ten}.[^.]+ "{
add_header "" "";
}
location ~ "^ / pagespeed_static /" {}
location ~ "^ / ngx_pagespeed_beacon $" {}



location / {


add_header Strict-Transport-Security "max-age = 31536000";
add_header X-Content-Type-Options nosniff;
add_header X-Cache $ upstream_cache_status;


proxy_cache ferditest;
add_header X-Proxy-Cache $ upstream_cache_status;
proxy_ignore_headers X-Accel -Excires Expires Cache-Control Set-Cookie;
proxy_set_header Accept-Encoding "gzip";

proxy_buffering on;
proxy_cache_valid 200 302 1m;
proxy_cache_valid 404 1m;
proxy_cache_methods GET HEAD;

wait time error proxy_cache_use_stale invalid_header update http_500 http_502 http_503 http_504;
proxy_cache_lock on;
proxy_cache_use_stale updated;
proxy_bind 0.0.0.0;


proxy_pass http://10.90.100.3;

proxy_set_header Host $ http_host;
proxy_set_header X-Forwarded-Host $ http_host;
proxy_set_header X-Real-IP $ remote_addr;
proxy_set_header X-Forwarded-For $ proxy_add_x_forwarded_for;
proxy_set_header X-Forwarded-Proto https;
proxy_set_header HTTPS "on";
proxy_set_header X-NginX-Proxy true;
proxy_set_header X-Accel-Internal / nginx-static-location-internal;





}
}

error.log


[error]    23151 # 23151: * 6 open () "/etc/nginx/html/test1/wp-includes/js/wp-embed.min.js" failed (2: no such file or directory), client:

Thank you

vb.net – The index was out of reach. It must have a non-negative value and less than the size of the collection. vb

Public Sub Form1_Load (sender as object and as EventArgs) handles MyBase.Load

Me.DataGridView1.Columns.Add ("A", "Account")
Me.DataGridView1.Columns.Add ("B", "Account Name")
Me.DataGridView1.Columns.Add ("C", "Must")
Me.DataGridView1.Columns.Add ("D", "Haber")
Me.DataGridView1.RowCount = 5

End Sub

I stated in the data grid 4 columns and 5 rows, but when performing this procedure, an error occurred.

Public Sub fillDatagrdid (
Me.DataGridView1 (0, 0) .Value = 12345
End Sub

It's as if the datagird had no cells, help me please!

Kali Linux Install the VB MacBook

I have downloaded the kali-linux-2018.4-amd64.iso file and have run the graphical installation on the virtualbox on my mac.

After installation, I was able to log in and I saw all the tools available, but when I turned off my terminal and I tried to restart the computer, this screen s & # 39; displays.

I am super new on Linux and consider CEH as an alternative to my daily work.

Please help. Thank you

enter the description of the image here

Help me convert the VB script to Google script

Can any one help me convert the following VB script into Google script.

Sub ShowPass ()

UserForm1.Show

End Sub

Under ResetSIG ()
Dim pwd As String

& # 39; Disable application events to avoid issues related to updating the page
Application.EnableEvents = False

& # 39; Get the GIS password
pwd = ActiveWorkbook.Worksheets ("Drops"). Beach ("A17"). Value

& # 39; Reset all tabs to their defaults
Application.Run "Module2.ColHide", pwd

& # 39; And password protects the leaves
Application.Run "module2.ProtectOnly", pwd

& # 39; Move to the Scope tab
ActiveWorkbook.Worksheets (4) .Select

& # 39; Enable application events
Application.EnableEvents = True


End Sub

Under ScopingPWProtect ()

PWPass1.Show

End Sub

Sub ShowPass ()

UserForm1.Show

End Sub

Under ResetSIG ()
Dim pwd As String

& # 39; Disable application events to avoid issues related to updating the page
Application.EnableEvents = False

& # 39; Get the GIS password
pwd = ActiveWorkbook.Worksheets ("Drops"). Beach ("A17"). Value

& # 39; Reset all tabs to their defaults
Application.Run "Module2.ColHide", pwd

& # 39; And password protects the leaves
Application.Run "module2.ProtectOnly", pwd

& # 39; Move to the Scope tab
ActiveWorkbook.Worksheets (4) .Select

& # 39; Enable application events
Application.EnableEvents = True


End Sub

Under ScopingPWProtect ()

PWPass1.Show

End Sub

vb – save the elements of an XML response in vailable

How to save list items from an xml?

that is to say that I have the answer that reigns me with multiple elements and that these elements record it in variables?

example:

For each record nd As Xml.XmlNode In
rec = New answer ()
rec.name = nd.Item ("Name"). InnerText
rec.direction = nd.Item ("dir"). InnerText
rec.factura = nd.Item ("folio"). InnerText
resp.ListaRecord.Add (rec)
following

something like that

$ alpha + beta = sup_ {v < gamma} ( alpha + beta_ {vb}) $?

On page 124 of Introduction to Set Theory, Jech states that the ordinal functions below are continuous in the second variable: If $ gamma $ is a limit ordinal and $ beta = sup_ {v < gamma} beta_ {vb} $ then
$$ alpha + beta = sup_ {v < gamma} ( alpha + beta_ {vb}) $$
$$ alpha. beta = sup_ {v < gamma} ( alpha. beta_ {vb}) $$
$$ alpha ^ beta = sup_ {v < gamma} ( alpha ^ { beta_ {vb}} $$
Then, we say that the above results are tracked directly from the definitions!
Someone has answered something that asks the same question but the above problem, taken directly from Jech's book, is formulated slightly differently by considering the indexes and this has caused confusion in my mind since I am new to the subject. I would be grateful if you could clarify the exact arguments above.