PureBasic Forums - English

thx cas but this wont work for me because ur sample wont support big files...

there was a example by kenmo...


Procedure.i ReadBlock(File.i, Size.i)
Protected BytesRead.i, *Block.i = #Null

If (IsFile(File))
*Block = AllocateMemory(Size)
If (*Block)
BytesRead = ReadData(File, *Block, Size ...

I dont need ftp filetransfer...
im looking for how to transfer files over the network...
using NetworkSendData ... without the need of encoding it in base64...

who knows it is passible made some check in memory? some viruses can inject in process in memory - it means CRC or MD5 or how it names of this process in memory will be change - it means i can catch this difference and made some alert for user.
and one more - this "CRC" in memory the same in XP and ...

EDIT - just realized a possible error. If the final block doesn't fill the entire 1024 bytes, it will have the previous block's data leftover (using the method in this post). This will give you the wrong base64 string..... so your way is fine. But if speed becomes an issue, consider my tips and ...

elfo116 wrote:Hello datachild,
Some like this ? yup...
if exe3 is malicious code, when run crypted.exe would not be detected by antivirus ?
This function would be Runtime or Scantime ?
Thanks !

It would be scantime otherwise u have to inject the crypted exe ....

So u want a crypter for malicious purpose ? -.-

Check first if the file is there/exists before try to run anything ...

As far i know...
Unicode encoding is not Country related that means that every Char got its own Code...
Ascii limited and also the encoding it different in each Country ...

anyway...

datachild

Basic Crypter with EOF

Crypters are used by malware to avoid detection ...
also they are used legally to Protect Software and data ...

The most simplest Crypter is a Crypter wich stores the crypted file at the EOF (EndOfFile) and decrypts the file to the hard drive to use it ...
These Crypters are ...

thx kenmo i got it working by implementing a simple base64 encoding like DarkPlayer and u said :)
however this should be away from professional code but iam still learning... :>

Heres is my solution for those who interrested !
... maybe somone can improve it :P

If ReadFile(0,sfile.s);sfile.s ...

thx DarkPlayer and kenmo

How could i encode the data with base64 before using Peeks() ?

*Block = AllocateMemory(Size)
BytesRead = ReadData(File, *Block, Size);< -BASE64 ?


I dont really know how to implement the ur solution kenmo :)
Does it work like this :

Procedure.i ReadBlock(File.i, Size ...

Hey im new on the board and purebasic :P

I hope u can help me :)
I want to open a BINARY file and read the data into blocks as STRING (size 1022) ... *later it should be used in a TCP Filetransfer)
The problem is PeekS seem to ignore special characters it only returns "MZ" with a textfile *.TXT all ...