December 1, 2005 - WinTask - EncryptFile

'

' 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)