'
' EncryptFile
'
' Author: Joe Strazzere
'
Dim memptr as unsigned
Function EncryptFile(file$)
EncryptFile = External("ADVAPI32.dll","EncryptFileA", file$)
EndFunction
Function DecryptFile(file$)
DecryptFile = External("ADVAPI32.dll","DecryptFileA", file$, 0)
EndFunction
'memptr=Allocate(64)
'ret=PokeString(memptr,"c:SuppressionTest.txt",0)
ret=EncryptFile("c:JoeShareA.txt")
msgbox(ret)
'ret=DecryptFile("SuppressionTest.txt")
'msgbox(ret)
