精华内容
下载资源
问答
  • vb加密软件(含源码)vb加密软件(含源码)
  • VB加密实现注册码序列号验证实例,VB使用加密方法实现的软件序列号验证实例,相对不加密的序列号,当然可以提高可靠性,程序包中含有两个源程序,一个是注册程序,一个是序列号生成程序,你可以对照学习一下。...
  • 摘要:VB源码,加密解密,加密狗,足球比分网站 VB利用并口加密狗注册软件,本源码演示了使用加密狗注册软件的整个过程,包括读取加密狗中的信息,程序可能需要连接加密狗才可以。只是一个调用例子,功能并不可用。 ...
  • 在使用VB6.0软件编程过程中,收集了各种VB源码实例进行测试,然后按照自己的需要进行编辑整理。这里AES加密算法,适合新学者和初次编程人员进行参考。
  • 这个是用VB做的一个加密软件,用的是凯撒密码的改编!
  • 内容索引:VB源码,加密解密,文件加密 采用异或加密的文件加密器,它可以对任何文件(TXT文本文件、OFFICE文件、EXE等),用些软件加密后文件变为不可运行,且打开后是乱码。解密时是将加密后的文件重新再次加密...
  • 摘要:VB源码,文件操作,加密文件夹 VB加密文件夹,Visualbasic6.0进行文件夹加密的例子,选择需要加密的文件夹,点击“加密”按钮即可。操作简单方便,不过作为一个成形的软件,似乎要做的功能还挺多,但是你可把此...
  • 摘要:VB源码,系统相关,加密狗,体育足球即时比分 Vb读取和写入加密狗数据,两个例子源码,一个是从加密狗中读取数据,一个是将数据写入加密狗,读取加密狗数据是一个判断注册码为例,获取加密狗中的数据与用户的输入...
  • 自定义VB程序加密方案

    千次阅读 2018-09-06 12:12:29
    目录 第一步,获取电脑唯一性标志 第二步,编密文 第三步,封装Dll 第四步,编客户端和注册机 ... 想到的就这些了,本案列以C盘序列号和电脑名为电脑的识别依据,以阐述加密算法  获取C...

    目录

    第一步,获取电脑唯一性标志

    第二步,编密文

    第三步,封装Dll

    第四步,编客户端和注册机

    注册

    C盘序列号

    电脑名

    第五步,应用程序引用


     


    第一步,获取电脑标志

        每一台电脑的标志有哪些?

        1、硬盘序列号

        2、电脑名

        3、IP地址

        想到的就这些了,本案列以C盘序列号和电脑名为电脑的识别依据,以阐述加密算法

        获取C盘序列号代码:

        Dim DriveID
        Set DriveID = CreateObject("Scripting.FileSystemObject")
        mySerial = DriveID.GetDrive("C").SerialNumber

        获取电脑名代码:

        dim PcName as string  '电脑名
        Set a = CreateObject("Wscript.Network")
        PcName =  a.ComputerName   

        OK,如果要给另一台电脑使用权限,限定识别时间,使用期限,加上试用次数
        差不多了。比如:

        信息大概这样写:2018/9/6_10_-2070513827_DESKTOP-NS7FOVN_2019/3/9

        解释下:日期(后续程序可以自定义保留5天)_试用次数_未注册或者注册信息错误但格式正确,提取该数字每次打开“-1”,      _C盘序列号_电脑名_到期日期(可设定为固定字段,然后封装到程序内,即便含义依然很难破解算法【dll封】)

    第二步,编密文

    第一步的注册信息基本完备,如上图,如果就这样给用户使用程序,注册码随便编一个也可,辛苦敲定的程序就成了做贡献了,别吃饭了,但是我们如何让用户看不懂注册码呢——加密算法。看看别个的算法介绍:

    https://blog.csdn.net/ddffr/article/details/77153127

    看了算法原理介绍以后(其实想多了),个人这几个渣渣小程序还没那么大的影响力,稍微秀一下小算法,简单点你破解依然很困难,除非你知道我的dll里面写的什么。来吧,我也来介绍下我的算法思路,算法相同,随便改改参数你都很难破解,而且为了这点成本花这么大力气破解这么简单的算法是没有必要的,我想。

    2018/9/6_10_-2070513827_DESKTOP-NS7FOVN_2019/3/9,将每一个字符转化为2个字符

    假定字符x,char(97)=a  ,  ASC(a)=97  , 则ASC(x)=yy 或则 ASC(x)=zzz

    大家知道,ascii码集中在33-126间,那么我减去某个数或则加上某个数那么这群数字就全是yy,或者zzz了

    我在逆向算法时按字段长度取出来就是了,正向算法时不足加上某个特定字符就可以了

    以下就是编译之后的注册码了,大哥们,谁有兴趣为小程序破译这个算法

    1、注册有时限

    2、试用有次数限制

    3、指定使用阶段,本参数在dll里面,怎么破

    4、限定使用时间

    5、针对你的C盘序列号和电脑名仅此一份

    本程序针对封闭式工程研发小程序,基本不予外网连接,困难点就是输入注册码较多,比较麻烦,但是实现原理简单

    不想麻烦那就用参考链接里面的大数因式分解吧,以后研究,我还没考虑好该如何将这几个信息变成大数呢,各位欢迎评论
     

    第三步,封装Dll

    继承第二部,我们需要将理论的算法付诸实践

    在该类模块插入以下代码,Change1是类Certif20的一个方法(正向编译成数字),其余程序就可以引用了——封装为dll。

    Public Function Change1(ByVal Str1 As String) As String
        Dim Str_B As String
        For i = 1 To Len(Str1)
            tt = Mid(Str1, i, 1)
            Str_B = Str_B & (Asc(tt) - 30)
        Next
        Change1 = Str_B
    End Function

    逆向编译段

    Public Function Change2(ByVal Str1 As String) As String
        Dim State01 As Boolean
        State01 = False
        For i = 1 To Len(Str1) / 2
            tt = Mid(Str1, i * 2 - 1, 2)
            Str_C = Str_C & Chr(CInt(tt) + 30)
        Next
        Change2 = Str_C
    End Function

    以上代码是两位的,如果要弄成3位的也可,参数做一下修改

    最后生成dll即可。

     

    第四步,编客户端和注册机

    图一图二分别是客户端和注册机界面,原理大家一看便知,便不多说了,直接上代码

    注册

    Private Sub Command1_Click()
        Rem 获取C盘序列号
        Dim C_str, CName, Str1 As String
        Dim DriveID
        Set DriveID = CreateObject("Scripting.FileSystemObject")
        C_str = DriveID.GetDrive("C").SerialNumber
        Set a = CreateObject("Wscript.Network")
        CName = a.ComputerName
        
        Dim Cer1 As
    Certif20
        Set Cer1 = New Certif20
        Str1 = Cer1.Change2(Text3.Text)
        Dim Arr1
        Arr1 = Split(Str1, "CQVB")
        If UBound(Arr1) <> 2 Then
            MsgBox "注册信息有误" & Chr(10) & "联系邮箱:510265404@qq.com", , "注册失败"
            Exit Sub
        End If
        If Arr1(1) <> CStr(C_str) Then
            MsgBox "序列号不匹配" & Chr(10) & "联系邮箱:510265404@qq.com", , "注册失败"
        ElseIf InStr(Arr1(2), CName) <> 1 Then
            MsgBox "电脑名不匹配" & Chr(10) & "联系邮箱:510265404@qq.com", , "注册失败"
        Else
            Dim date2 As Date
            date2 = right(Arr1(2), Len(Arr1(2)) - Len(CName))
            MsgBox "恭喜恭喜!" & Chr(10) & "有效期至: " & date2, , "注册成功"
            Rem 创建记录        *******************************************************
            Rem 判断有无缓存记录(txt),无则创建一个空值
            Dim fso As Object, blnExist As Boolean
            Set fso = CreateObject("Scripting.FileSystemObject")
            blnExist = fso.FileExists("D:\MSFus_1.0\Setting\Certif\licence.txt")
            If blnExist = False Then
            Dim sFile As Object
            Set sFile = fso.CreateTextFile("D:\MSFus_1.0\Setting\Certif\licence.txt", True)
            End If
            Rem 读取TXT
            Const ForWriting = 2
            Set sFile = fso.OpenTextFile("D:\MSFus_1.0\Setting\Certif\licence.txt", 2, TristateFalse)
            sFile.Write Text3.Text
            sFile.Close
            Set fso = Nothing
            Set sFile = Nothing
        End If
    End Sub

    C盘序列号

    Private Sub Command2_Click()
        Rem 获取C盘序列号
        Dim DriveID
        Set DriveID = CreateObject("Scripting.FileSystemObject")
        Text1.Text = DriveID.GetDrive("C").SerialNumber
    End Sub

    电脑名

    Private Sub Command3_Click()
        Set a = CreateObject("Wscript.Network")
        Text2.Text = a.ComputerName
    End Sub

    第五步,应用程序引用

    按上面描述的,实现以下几个功能

    1、注册有时限

    2、试用有次数限制

    3、指定使用阶段,本参数在dll里面

    4、限定使用时间

    5、针对你的C盘序列号和电脑名仅此一份

    列:2018/9/6_10_-2070513827_DESKTOP-NS7FOVN_2019/3/9

    1、逆向解析为上面信息串(使用dll的Change2)

    2、获取生成序列号的日期,与当前日期比较10天内可以注册,其余时间不予注册

    3、解析与本机不符的,但格式正确,将试用次数(-1),直至次数小于1程序提示不能使用,请注册

    4、注册成功的,试用次数直接至零,判断使用末期与注册日期是否符合指定阶段,不是不给运行

    5、判断当前日期是否比使用末期小,否则不予运行

    OK了,代码后续跟上……感谢各位支持。

     

     

    参考资源:

    https://blog.csdn.net/ddffr/article/details/77153127

    https://baike.baidu.com/item/DES/210508?fr=aladdin

    展开全文
  • 文本字符串加密 解密软件 VB工程源代码,直接运行工程可以看到软件效果,编译通过。软件功能是对文本字符串进行加密,和解密。代码版权规作者所有,仅供大学学习参考之用,任何单位或个人未经作者同意不得另做他用。...
  • 内容索引:VB源码,加密解密,序列号,注册码 这是VB使用加密方法实现的软件序列号验证实例,相对不加密的序列号,当然可以提高可靠性,程序包中含有两个源程序,一个是注册程序,一个是序列号生成程序,你可以对照学习...
  • 用于加密软件源代码,加密前请先备份以防不测
  • 反汇编VB.NET加密工具,是一款非常好用的电脑端.net应用程序软件封装和加密工具,主要作用是尽可能地防止暴力脱壳破解,由于加密程度方式和加密程式较为复杂,所以对于一般人来说,加密效果还是很好的。 应用简介: ...
  • VB6 AES ECB Rijndael 算法,不调用任何插件,实现和 libeay32.dll 一样AES 算法功能,结果测试也一样。该模块已经用在自己软件上。
  • 一个软件如何才能是它运行的时候一定要插一个加密狗才能运行 求一个简单的方法就行
  • VB字符保密-字符加密例子,来源于VB软件防破解初探中的一个例子,核心代码如下:  Private Function ZiFujiemi(anum As Long, bnum As Long) As String  字符解密函数,用这个函数之前可以用相反的逆算来得到加密...
  • vb登录密码加密

    2012-05-18 09:32:58
    置密码登录,启动软件时要求使用者输入有效de密码.其实密码就匙对明文文本进行一一对应de变换,使这变成不可识别de密码文本,让非法使用者不能识别. 本程序匙通过,输入登录密码,然后把用户密码加密保存到文本里....
  • vb编写的AES加密程序,能实现很好的文件加密和解密,很不错的,供大家学习
  • 不需要重新安装加密软件,也不需要人工操作,只需要在服务器更新策略文件即可。方便快捷,降低维护成本。 办公文件加密:Office文档加密,WPS文档加密,PDF文档加密等; 二维图纸加密:AutoCAD,清华英泰MDS,...
  • 这是一个用vb做的简单的文件加密工具,可以加密ini,txt之类的小型配置文件。
  • 一个简单的字符串加密解密工具,一般主要应用于sql连接字符串,增加系统的安全性,保密性,下载后感觉好用可以赠送源码。
  • 此工具为VBA工程加密解密工具,可以完美对EXCEL VBA工程进行加密或解密,实现代码加密或代码查看,解密时用时较长,请耐心等待。
  • vb 密码单向加密算法rar,vb 密码单向加密算法
  • 加密vb文件工具v1.0.zip

    2020-02-24 10:07:43
    注:为防止杀毒软件误删,打开时的密码为:12345,使用方法:1.使用前,解压缩。2.将要加密vb脚本拖到此“加密vbs.exe”文件中,一定要备份此要加密的文件,加密后无法恢复!
  • VB.NET加密文件

    2012-07-18 14:08:23
    那么怎么用VB.NET[b]加密文件[/b]呢?我们将给大家介绍使用XOR加密算法对数据进行加密。 这是一种很简单的算法,使用了尽量简单的VB编程方法,通俗易懂。我们可以采用更安全的算法如DES算法,IDEA算法等。 在...
    VB.NET是一种常见的编程环境,VB.NET编程环境可以帮助开发人员打造一个性能稳定,安全可靠的编程平台,帮助开发人员大大提高编程效率。那么怎么用VB.NET[b]加密文件[/b]呢?我们将给大家介绍使用XOR加密算法对数据进行加密。
    

    这是一种很简单的算法,使用了尽量简单的VB编程方法,通俗易懂。我们可以采用更安全的算法如DES算法,IDEA算法等。

    在窗体中添加一RichTextBox,设置其Name属性为SourceFile,Multiline属性为True,ScrollBars属性为3-both。添加一MainMenu,设置一菜单项“文件”,其下有“打开”,“保存”,“加密”,“解密”,“算子”等子菜单项。

    以下是大致的VB.NET加密文件的程序界面:

    Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim strNum As String
    Private Sub Form1_Load(ByVal eventSender
    As System.Object, ByVal eventArgs
    As System.EventArgs) Handles MyBase.Load
    strNum = "password"
    End Sub
    Private Sub Form1_Resize(ByVal event
    Sender As System.Object, ByVal eventArgs
    As System.EventArgs) Handles MyBase.Resize
    SourceFile.Width = Form1.DefInstance.Width
    SourceFile.Height = Form1.DefInstance.Height
    End Sub

      
    解密过程,对xor算法而言,解密和VB.NET加密文件的过程是完全一样的

    Private Function XorOut(ByRef
    strNum As String, ByRef strText
    As String) As String
    Dim i As Integer
    Dim XorValue1 As Short
    Dim XorValue2 As Short
    Dim strResult As String
    For i = 1 To Len(strText)
    XorValue1 = Asc(Mid(strText, i, 1))
    XorValue2 = Asc(Mid(strNum,
    (i Mod Len(strNum)) + 1, 1))
    strResultstrResult = strResult &
    Chr(XorValue1 Xor XorValue2)
    Next
    XorOut = strResult
    End Function

    Private Sub MenuDeEncrypt_Click
    (ByVal sender As System.Object,
    ByVal e As System.EventArgs)
    Handles MenuDeEncrypt.Click
    SourceFile.Text = XorOut(strNum,
    (SourceFile.Text))
    End Sub

    Private Sub MenuEncrypt_Click
    (ByVal sender As System.Object,
    ByVal e As System.EventArgs)
    Handles MenuEncrypt.Click
    SourceFile.Text = XorOut(strNum,
    (SourceFile.Text))
    End Sub

    Private Sub MenuOpen_Click(ByVal
    sender As System.Object, ByVal e
    As System.EventArgs) Handles
    MenuOpen.Click
    Dim openFile1 As New OpenFileDialog
    ' Determine whether the user
    selected a file from the OpenFileDialog.
    If (openFile1.ShowDialog() =
    DialogResult.OK) _
    And (openFile1.FileName.Length > 0) Then

    ' Load the contents of the
    file into the RichTextBox.
    SourceFile.LoadFile(openFile1.FileName, _
    RichTextBoxStreamType.PlainText)
    End If
    End Sub

    Private Sub MenuSave_Click(ByVal
    sender As System.Object, ByVal e As
    System.EventArgs) Handles MenuSave.Click
    ' Create a SaveFileDialog to request
    a path and file name to save to.
    Dim saveFile1 As New SaveFileDialog
    ' Initialize the SaveFileDialog to
    specify the RTF extension for the file.
    'saveFile1.DefaultExt = "*.rtf"
    'saveFile1.Filter = "RTF Files|*.rtf"
    ' Determine if the user selected a
    file name from the saveFileDialog.
    If (saveFile1.ShowDialog() = DialogResult.OK) _
    And (saveFile1.FileName.Length) > 0 Then
    ' Save the contents of the
    RichTextBox into the file.
    SourceFile.SaveFile(saveFile1.FileName, _
    RichTextBoxStreamType.PlainText)
    End If
    End Sub
    Private Sub MenuNum_Click(ByVal
    sender As System.Object, ByVal e
    As System.EventArgs) Handles MenuNum.Click
    strNum = InputBox("请输入加密算子",
    "设置加密算子")
    End Sub
    End Class

    以上就是用vb.net编程加密文件夹的整个过程,但是这个方法适用于懂软件编程的人员,如果您不懂编程的话,还是建议您下载使用文件夹加密软件,文件夹加密超级大师是目前最常用的文件和文件夹加密软件,如果您要多文件或文件夹加密的话,可以到文件夹加密超级大师的官方网站下载文件夹加密超级大师来给您的文件和文件夹加密。
    展开全文
  • 实际上是把U盘的文件批量重命名,这样即使U盘中毒了,但由于文件后缀的改变,这样就避免了感染。
  • 急速文件加密软件1.1

    2021-02-21 15:21:32
    两种加密模式: 1.飙车模式输入的数字是即将加密的字节数,默认数值是110; 2.正常模式就是我们正常使用的流程了,输入密码,加密即可;...这个是VB写的,如果提示缺少ocx或者dll,自行百度一下即可。
  • 内容索引:VB源码,加密解密,加密,防破解 VB添加CRC32 校验值到目标程序,属于软件防破解的范畴。www.okbase.net截图如上,它将计算出来的CRC32自校验值储存在目标程序末尾8个字节里,你也可以修改源代码重新设定位置...
  • 程序本身带有身份验证,因为存于电脑程序,导致同一电脑多次下载此程序也会使用同一密码,所以保证单计算机单人使用此程序,程序初始密码为空,本软件绝对绿色,请放心使用
  • VB的md5加密算法(32位支持中文) 所谓MD5,即“Message-Digest Algorithm 5(信息-摘要算法)”,它由MD2、MD3、MD4发展而来的一种单向函数算法(也就是HASH算法),它是国际著名的公钥加密算法标准RSA的第一设 计者R...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 8,354
精华内容 3,341
热门标签
关键字:

vb加密软件