分类 VB.NET 下的文章 - 理想 Just Code - LaoDan的博客

VMP加壳NET 相关的强度代码

变异+虚拟<System.Reflection.Obfuscation(Feature:="ultra", Exclude:=False)> 虚拟化：<System.Reflection.Obfuscation(Feature:="virtualization", Exclude:=False)> 变异：<System.Reflection.Obfuscation(Feature:="mutation", Exclude:=False)> 锁定到序列号：<System.Reflection.Obfuscation(Feature:="virtualizationlockbykey", Exclude:=False)> 变异+虚拟+锁定到序列号：<System.Reflection.Obfuscation(Feature:="ultralockbykey", Exclude:=False)> 基本用法：全局：Public hwid

VB.NET · 5 天前 · 50 人浏览

阿里云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 · 2025-12-17 · 395 人浏览

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 · 2025-11-06 · 502 人浏览

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

方式一：采用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 · 2025-09-26 · 834 人浏览

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

易语言引用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 · 2025-03-29 · 991 人浏览

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

VB.NET TCP双向通讯源码

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

VB.NET · 2025-01-22 · 975 人浏览

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 · 1283 人浏览

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 · 1338 人浏览

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 · 1349 人浏览

使用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 · 1388 人浏览