by Digital Mage Designs (1 Submission)
Category: Encryption
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 23rd May 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Meltice, the most popular softice detection system by David Eriksson is now available in VB. If you are concerned about piracy, this is must
API Declarations
Private Const FILE_SHARE_READ = &H1
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const OPEN_EXISTING = 3
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, _
ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Sub Form_Load()
If Meltice() = True Then MsgBox "softice is loaded"
End Sub
Private Function Meltice() As Boolean
Const sice = "\\.\SICE"
Dim temp As Variant
temp = CreateFile(sice, GENERIC_WRITE, FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0&)
MsgBox temp
If temp = -1 Then
Meltice = False
Else
Meltice = True
End If
End Function
No comments have been posted about Meltice, the most popular softice detection system by David Eriksson is now available in VB. If you. Why not be the first to post a comment about Meltice, the most popular softice detection system by David Eriksson is now available in VB. If you.