reg.bas

来自「(1)你可以不用懂任何加密算法」· BAS 代码 · 共 40 行

Attribute VB_Name = "Reg"

'+--------------------------------------------------------------------------
'
'          reg.bas ---- 共享软件加密函数库
'          Copyright (c) 2002-2003 liangs Studio, All rights reserved
'          Created 2003/03/22 by liangs
'          Version: 2.0
'          Homepage: http://liangs99.yeah.net
'          Email: [e-mail]
'
'----------------------------------------------------------------------------

Public Declare Function GetHardDiskId Lib "Reg.DLL" (ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function BlowFishEncry Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpKey As String, ByVal lpOutBuffer As String, ByVal length As Long, ByVal lpRegisterCode As String) As Long

Public Declare Function MD5Encry Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpOutBuffer As String, ByVal length As Long, ByVal lpRegisterCode As String) As Long

Public Declare Function SHA512Encry Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpOutBuffer As String, ByVal length As Long, ByVal lpRegisterCode As String) As Long

Public Declare Function RIPEMD160Encry Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpOutBuffer As String, ByVal length As Long, ByVal lpRegisterCode As String) As Long

Public Declare Function Secret16Encry Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpKey As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function MD5FileCheck Lib "Reg.DLL" (ByVal FileNameStr As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function CRCFileCheck Lib "Reg.DLL" (ByVal FileNameStr As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function EncryptStringFun1  Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpKey As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function DecryptStringFun1  Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpKey As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function FileEncrypt  Lib "Reg.DLL" (ByVal lpInputFileName As String, ByVal lpOutputFileName As String, ByVal lpKey As String, ByVal lpRegisterCode As String) As Long

Public Declare Function FileDecrypt  Lib "Reg.DLL" (ByVal lpInputFileName As String, ByVal lpOutputFileName As String, ByVal lpKey As String, ByVal lpRegisterCode As String) As Long

Public Declare Function GetDllVersion Lib "Reg.DLL" (ByVal lpOutBuffer As String) As Long