分类 VB.NET 下的文章 - LaoDan 的博客

阿里云acw_sc__v2 参数计算

已知某些站使用的是阿里云的WAF，他是有着一个验证，如果acw_sc__v2参数没有计算成功，那么请求均会失效。弹出的页面中，他是有着下面的代码：var arg1='A666AB682A26885DCDD57662B25048454F91F92B'; VB.NET 代码：Imports System.Text Public Class AlgoCalculator Private Shared ReadOnly MapArray As Integer() = { &HF, &H23, &H1D, &H18, &H21, &H10, &H1, &H26, &HA, &H9, &H13, &H1F, &H28, &H1B, &H16, &H17, &H19, &HD, &H6, &HB, &H27, &H12, &H14, &H8, &

VB.NET · 6 天前 · 38 人浏览

VB.NET 取唯一识别码机器码

创建一个模块，优点在于，如果插入移动硬盘什么的。也不会导致机器码的变化。Imports System.Management Imports System.Security.Cryptography Imports System.Text Module 机器码 Public 全局变量_机器码 As String = GetUniqueId16() Private Function GetCpuId() As String Return GetWMIProperty("SELECT ProcessorId FROM Win32_Processor", "ProcessorId") End Function ' 获取 BIOS 序列号 Private Function GetBiosId() As String Return GetWMIProperty("SELECT SerialNumber FROM Win32_BIOS", "SerialN

VB.NET · 11-06 · 179 人浏览

证书固定防止软件被抓包的方式及代码思路

方式一：采用python的certifi提供的根证书合集进行校验。此方式校验宽松，基本所有的https均支持打开。所以现在用.NET 也来实现的这样的一个功能了，共计三种方式。1、极为宽松的请求策略。所有的HTTPS均可在软件内请求成功。2、极为严格的请求策略，只允许一个或多个的域名的叶子证书哈希在软件内，才允许请求成功。3、中等请求策略，仅允许一个或多个的域名根证书哈希在软件内，才允许请求成功（避免证书续签导致频繁维护）。第二三种都是属于证书固定，用于防止抓包有较强的效果，但需维护。以下是实现的具体代码段：Imports System.IO Imports System.Net Imports System.Security.Cryptography.X509Certificates Imports System.Text Imports System.Text.RegularExpressions Public Class Form1 Private Shared trustedCAs As New List(Of X509Certificate2) Priva

VB.NET · 09-26 · 502 人浏览

证书固定防止软件被抓包的方式及代码思路

易语言引用VB.NET代码的DLL方法

首先创建一个VB.NET类库：添加代码： Public Shared Function IsFileSigned(filePath As String) As Boolean Try Dim certificate As X509Certificate = X509Certificate.CreateFromSignedFile(filePath) Return True Catch ex As Exception Return False End Try End Function 然后右键-添加NuGet程序包-搜索：DllExport，然后进行引用。安装完成之后，弹出的窗体中按下图来点击设置。下面点击：全部重新加载在代码顶部添加：改变为：<DllExport> Public Shared Function IsFileSigned(filePath As String) As Boolean Try

VB.NET · 03-29 · 828 人浏览

易语言引用VB.NET代码的DLL方法

VB.NET TCP双向通讯源码

说明找到了这样的一些源码，运行了几天，一切正常不崩溃。留存，其它业务用这一块进行通讯还是非常不错的。服务端开放端口9877，我客户端连接端口为：26368。如果为独立IP的话，那么双向保持一致即可。但我使用的为NAT挂机宝，所以我做了端口转发。软件截图软件下载Tcp源码.rar

VB.NET · 01-22 · 850 人浏览

VB.NET TCP双向通讯源码

VB.NET 文件上传至服务器源码

PHP后端代码：<?php if ($_SERVER['REQUEST_METHOD'] == 'POST' && isset($_FILES['file'])) { $target_dir = "uploads/"; if (!is_dir($target_dir)) { mkdir($target_dir, 0777, true); } $current_time = date("Ymd_His"); $file_extension = pathinfo($_FILES["file"]["name"], PATHINFO_EXTENSION); $new_file_name = $current_time . "." . $file_extension; $target_file = $target_dir . $new_file_name; if (file_exist

VB.NET · 2024-08-14 · 1157 人浏览

VB.NET 使用Nuget安装LiteDB轻量化数据库

如果对数据写入要求不高，需要轻量级的数据管理的话，推荐LiteDb数据库。安装之后只有一个DLL文件来做调用。相关代码片段：Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' 获取应用程序的目录 Dim appDirectory As String = AppDomain.CurrentDomain.BaseDirectory ' 数据库文件路径 Dim dbPath As String = Path.Combine(appDirectory, "example.db") ' 打开或创建数据库文件 Using db As New LiteDatabase(dbPath) ' 获取Users集合 Dim users = db.GetCollection(Of User)("Users")

VB.NET · 2024-07-03 · 1147 人浏览

VB.NET 操作Excel库MiniExcel

最近一直在找可快速读取与写入的Excel库，发现MiniExcel库非常不错。速度也挺快。读取：Dim currentDirectory As String = AppDomain.CurrentDomain.BaseDirectory Dim filePath As String = IO.Path.Combine(currentDirectory, "222.xlsx") Dim rows As IEnumerable(Of Object) = MiniExcel.Query(filePath) For Each row As IDictionary(Of String, Object) In rows If row.ContainsKey("B") Then Console.WriteLine($"B: {row("B")}") End If Next Console.WriteLine("读取完成") 写入（不带标头）： Dim curren

VB.NET · 2024-07-03 · 1199 人浏览

使用Newtonsoft.Json进行的配置保存代码

Imports System.IO Imports Newtonsoft.Json Module ini读写模块 Public Sub SaveConfig(config As Config, filePath As String) Dim json As String = JsonConvert.SerializeObject(config, Formatting.Indented) File.WriteAllText(filePath, json) End Sub Public Function LoadConfig(filePath As String) As Config If Not File.Exists(filePath) Then Return New Config() End If Dim json As String = File.ReadAllText(filePath) Return JsonConvert.Des

VB.NET · 2024-06-08 · 1216 人浏览

VB.NET 中配置文件调用模块

留存下模块代码，下次写代码就不用翻之前的代码了。模块代码： Module ini读写模块 Private Declare Unicode Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntW" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringW" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As Strin

VB.NET · 2024-05-07 · 1287 人浏览