hlibcrc.bas

来自「awd bios文件的修改工具」· BAS 代码 · 共 30 行

Attribute VB_Name = "hlibcrc"
'AwardMod BIOS Manipulation Tool
'Copyright (C) 2001 Josef Hill
'
'This program is free software; you can redistribute it and/or
'modify it under the terms of the GNU General Public License
'as published by the Free Software Foundation; either version 2
'of the License, or any later version.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'GNU General Public License for more details.
'
'You should have received a copy of the GNU General Public License
'along with this program; if not, write to the Free Software
'Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.


Private Declare Sub pmake_crctable Lib "AwardModSupport.dll" Alias "crc16_make_crctable" ()
Private Declare Function pgencrc Lib "AwardModSupport.dll" Alias "crc16_gencrc" (ByVal iStr As String, ByRef iLen As Long) As Long

Public Function cmake_crctable()
    pmake_crctable
End Function

Public Function cgencrc(ByVal iStr As String, ByRef iLen As Long) As Long
    cgencrc = pgencrc(iStr, iLen)
End Function