04-05-2010, 06:49 PM
Have you got a crypter, and want to add EOF?
Well, I'm gonna tell you how.
Add this code to your BUILDER:
Add a new Textbox, and make it so it's not visible.
Add a Checkbox.
Now, add this after the FileClose(1).
You should change the TextBox4.Text to the TextBox ID you just added.
You should change the CheckBox1 to the CheckBox ID you just added.
NOTE: This code MUST go after the FileClose(1)
Credits: xKillerxPanther (For the EOF code)
Well, I'm gonna tell you how.
Add this code to your BUILDER:
Code:
Public Function ReadEOFData(ByRef FilePath As String) As String
On Error GoTo Err_Renamed
Dim sEOFBuf, sFileBuf, sChar As String
Dim lPos2, lFF, lPos, lCount As Integer
If Dir(FilePath) = "" Then GoTo Err_Renamed
lFF = FreeFile()
FileOpen(lFF, FilePath, OpenMode.Binary)
sFileBuf = Space(LOF(lFF))
FileGet(lFF, sFileBuf)
FileClose(lFF)
lPos = InStr(1, StrReverse(sFileBuf), GetNullBytes(30))
sEOFBuf = (Mid(StrReverse(sFileBuf), 1, lPos - 1))
ReadEOFData = StrReverse(sEOFBuf)
If ReadEOFData = "" Then
End If
Exit Function
Err_Renamed:
ReadEOFData = vbNullString
End Function
Sub WriteEOFData(ByRef FilePath As String, ByRef EOFData As String)
Dim sFileBuf As String
Dim lFF As Integer
On Error Resume Next
If Dir(FilePath) = "" Then Exit Sub
lFF = FreeFile()
FileOpen(lFF, FilePath, OpenMode.Binary)
sFileBuf = Space(LOF(lFF))
FileGet(lFF, sFileBuf)
FileClose(lFF)
Kill(FilePath)
lFF = FreeFile()
FileOpen(lFF, FilePath, OpenMode.Binary)
FilePut(lFF, sFileBuf & EOFData)
FileClose(lFF)
End Sub
Public Function GetNullBytes(ByRef lNum As Object) As String
Dim sBuf As String
Dim i As Short
For i = 1 To lNum
sBuf = sBuf & Chr(0)
Next
GetNullBytes = sBuf
End FunctionAdd a new Textbox, and make it so it's not visible.
Add a Checkbox.
Now, add this after the FileClose(1).
You should change the TextBox4.Text to the TextBox ID you just added.
You should change the CheckBox1 to the CheckBox ID you just added.
NOTE: This code MUST go after the FileClose(1)
Code:
TextBox4.Text = ReadEOFData(TextFile.Text)
If CheckBox1.Checked = True Then
ReadEOFData(TextFile.Text)
WriteEOFData(output, TextBox4.Text)
End IfCredits: xKillerxPanther (For the EOF code)
