Hướng dẫn vb net to php converter online - công cụ chuyển đổi vb net sang php trực tuyến
Chào buổi sáng kỹ sư Mã vb.net này chịu trách nhiệm mã hóa mật khẩu
Và đây sẽ là mã trong PHP mà tôi đã làm nhưng tôi đã thất bại ở đâu đó vì tôi không nhận được kết quả mong muốn
Một ví dụ sẽ là trong vb.net, khóa 12345 được mã hóa vào năm 2468: và trong Php, khóa tương tự được mã hóa vào năm 13579 Tôi sẽ biết ơn tất cả những người có thể giúp tôi tìm ra nơi tôi đang thất bại và làm thế nào tôi có thể sửa nó Cảm ơn Bản quyền © 2022, Tập đoàn phần mềm tiến bộ và/hoặc các công ty con hoặc chi nhánh của nó. Đã đăng ký Bản quyền. Tiến trình, Telerik và một số tên sản phẩm được sử dụng ở đây là nhãn hiệu hoặc nhãn hiệu đã đăng ký của Tập đoàn phần mềm tiến độ và/hoặc một trong các công ty con hoặc chi nhánh của nó ở Hoa Kỳ và/hoặc các quốc gia khác.Xem nhãn hiệu để biết các dấu hiệu thích hợp.
Chuyển đổi vb.net thành PHPPublic Function Encrypt(ByVal clave As String) As String ' Defino variables Dim indice As Integer = 1 Dim largo As Integer = 0 Dim final As String = "" largo = Len(Trim(clave)) Dim caracteres(largo) As String For indice = 1 To largo caracteres(indice) = Mid(clave, indice, 1) caracteres(indice) = Chr(Asc(caracteres(indice)) + indice) final = final & caracteres(indice) Next indice Return final End Function public static function encryption($clave){ $indice = 0; $largo = 0; $final = ''; $largo = strlen(trim($clave)); $caracteres = array(); for ($indice; $indice < $largo; $indice++) { $caracteres[$indice] = substr($clave, $indice, 1); $caracteres[$indice] = chr(ord($caracteres[$indice]) + $indice); $final = $final.$caracteres[$indice]; } return $final; } #{example} Gửi dữ liệu từ vb.net đến PHP và ngược lạiPrivate Sub activateBtn_Click(sender As Object, e As EventArgs) Handles activateBtn.Click Process.Start("http://localhost/license/activate.php?ser=" & serialnum.Text & "&&comp=" & compname.Text) End Sub Dim strReq As String Dim strData As String Dim dataStream As Stream Dim reader As StreamReader Dim request As WebRequest Dim response As WebResponse strReq = "http://localhost/license/activate.php?ser=" & serialnum.Text & "&&comp=" & compname.Text request = WebRequest.Create(strReq) response = request.GetResponse() dataStream = response.GetResponseStream() reader = New StreamReader(dataStream) strData = reader.ReadToEnd() reader.Close() response.Close() Bài học tiếp theo hướng dẫn PHP
Câu trả lời
|