本来很早就想搞个这玩意了，就是校验软件是否可用性，当然也可以进行请求数据的加密！软件远程请求PHP文件，PHP进行AES的加密。加密内带入时间戳。软件接收到了PHP的加密值，然后在软件内进行解密。解密之后校验时间戳，判断当前的时间戳是否在返回的时间戳六十秒之内（提高安全性）。判断无误的话，则提取解密数据的|之前的字符，进行校验。校验成功，进软件。校验失败，弹出服务器返回的失败内容。软件生成之后记得使用VMP加壳软件加壳，不然被破解还是轻轻松松，加上壳之后破解难度就飙升了。代码如下：PHP代码：<?php function EncryptAES($key, $data) { $ivLength = 16; $iv = openssl_random_pseudo_bytes($ivLength); $encryptedText = openssl_encrypt($data, 'AES-128-CBC', $key, OPENSSL_RAW_DATA, $iv); $combinedData = $iv . $encryptedText; $e
运行图源码Sub Main(args As String()) 跳过: Console.Clear() Dim inputString As String Console.WriteLine("请输入字符串：") inputString = Console.ReadLine() Dim unicodeArray(inputString.Length - 1) As Integer For i As Integer = 0 To inputString.Length - 1 unicodeArray(i) = Char.ConvertToUtf32(inputString, i) Next Console.Write("输出的十进制Unicode编码为：" & Environment.NewLine) For Each code As Integer In unicodeArray Console.Write("&#" & code.To
首先，点击项目-右键-点击管理 nuget程序包再点击浏览，输入sunnyui，搜索到之后选择安装最新版本。在右侧，选择form1-form1，点击Dispose(Boolean)修改下面的代码：修改为：导入Sunny.UI命名空间：Imports Sunny.UIForm1类继承UIForm类：Inherits UIForm然后打开窗体设计页面，这个时候发现窗体已生效。
给别人定制软件时遇到的一个问题，使用HttpWebRequest请求类时，提示错误。这个应该是HTTPS证书的问题。以下是解决方法。代码如下：'使用TLS12安全协议连接 ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 '创建HTTP请求对象，并指定URL地址 Dim request As HttpWebRequest = WebRequest.Create(TextBox2.Text) '设置HTTP请求方法为POST request.Method = "POST" '设置HTTP User-Agent头信息 request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/109.0.0.0 Safari/537.36 Edg/109.0.1518.100" '不保持连接状态 request.KeepAl
Function GetMD5Hash(ByVal strToHash As String) As String Dim md5Obj As New MD5CryptoServiceProvider() Dim bytesToHash() As Byte = Encoding.ASCII.GetBytes(strToHash) bytesToHash = md5Obj.ComputeHash(bytesToHash) Dim strResult As New StringBuilder() For Each b As Byte In bytesToHash strResult.Append(b.ToString("x2")) Next Return strResult.ToString() End Function 使用方式：GetMD5Hash("需要加密的字符串")
' 定义一个名为“解析JSON”的子过程，并传递一个字符串类型参数 str Sub 解析JSON(ByVal str As String) ' 创建一个对象 ScriptObj 并将其设置为“MSScriptControl.ScriptControl”类的实例 Dim ScriptObj As Object ScriptObj = CreateObject("MSScriptControl.ScriptControl") ' 允许 UI 操作 ScriptObj.AllowUI = True ' 将脚本语言设置为 JavaScript ScriptObj.Language = "JavaScript" ' 向 ScriptObj 对象添加代码，该代码将变量 data 设置为传入的 JSON 字符串 str ScriptObj.AddCode("var data = " & str & ";
Imports System.Text.RegularExpressions ' 导入正则表达式命名空间 Imports System.Net ' 导入网络请求命名空间 Public Class Form1 ' 定义窗体类 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' 按钮1的点击事件处理程序 Dim url As String = TextBox1.Text ' 从文本框1获取输入的链接 Dim regex_domain As New Regex("^https:\/\/([\.\w-]+)\/.*$") ' 定义匹配域名的正则表达式对象 Dim regex_name As New Regex("\/g\/personal\/(\w+)\/") ' 定义匹配用户名的正则表达式对象 Dim regex_link As New Regex("\/
以下是 VB.NET 中使用 System.Threading 命名空间启动 10 个线程并调用函数的示例代码：Imports System.Threading Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' 创建一个包含 10 个线程的 Thread 数组 Dim threads(9) As Thread For i As Integer = 0 To 9 threads(i) = New Thread(AddressOf DoWork) threads(i).Start(i) Next End Sub Private Sub DoWork(ByVal data As Object) Dim id As Integer = CType(data, Integer)
其实还有其它的方法来延迟过程，并不卡死窗体。' 导入 Threading 命名空间 Imports System.Threading Public Class Form1 ' 创建延迟函数 Public Async Function Delay(ByVal milliseconds As Integer) As Task Await Task.Delay(milliseconds) End Function ' 使用示例 Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click For i = 0 To 10 ListBox1.Items.Add(i) Await Delay(3000) ' 延迟 3 秒 Next End Sub End Class
下面是 VB.NET 中使用 HttpClient 类进行 GET 请求的示例代码：Imports System.Net.Http Public Class Form1 Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' 创建一个 HttpClient 对象实例 Using client As New HttpClient() ' 向指定 URL 发送 GET 请求，并等待响应 Dim response As HttpResponseMessage = Await client.GetAsync("https://example.com") ' 检查是否成功，如果成功则读取响应内容 If response.IsSuccessStatusCode Then Dim c
LaoDan
鱼头网络工作室
