[SOLVED]base64 string encoding bug?

[sib_konst]

Hello, i'm trying to encode random, user defined string with base64 and write it to a file. When string includes digital sequence of two digits like:

Code: [Select]

first_digit=Inc(second_digit) //(for example: '98' or '54')I'm getting 'External: SIGSEGV' error. Is that kind of bug, or i'm doing something wrong? If it's a bug, what else sequences i need to filter?
Attaching program source.

[ludob]

Free encoder before freeing encoded. Encoder is created with encoded as param and when freeing encoder it apparently refers to encoded which is already freed in your case.

[sib_konst]

Works fine now, thanks.
And to 'expand horizonts': why that error appeared only in case of the above digital sequence?

[KpjComp]

why that error appeared only in case of the above digital sequence

Welcome the wonderful world of lost pointers.

[ludob]

I also have a crash with "abcde". From a quick look at the code, Destroy calls Flush which is writing out the last bytes. base64 encoding is always a multiple of 4 bytes (3 bytes are transformed to 4 bytes). I don't know exactly what the purpose of your code is but you are not base64 encoding the password. You are only storing the first length(password) characters of the base64 encoding. If you want the "real" base64 encoding of the password you could simply use

Code: [Select]

output:=EncodeStringBase64(edtPasswd.Text);instead of using the streams. If you want to use streams, take a look at the implementation of EncodeStringBase64 for the correct way of ding this.

[sib_konst]

you could simply use

Code: [Select]

output:=EncodeStringBase64(edtPasswd.Text);instead of using the streams. If you want to use streams, take a look at the implementation of EncodeStringBase64 for the correct way of ding this.

So it's something like i've tried to ride from Vienna to Frankfurt, but through Rome. And arrived to Krakow, as a result...
Thanks for showing me the right way