Android Question Any easy way to encode base64 sring ?

[gameone]

Hi i see alot about encoding/decoding image in base64, but does they are a easy way to encode just a base64 string and show up ?

I try playing with StringUtils, but got failed with using "EncodeBase64"
Thanks.

 

[KMatle]

but got failed with using "EncodeBase64

What error do you get? su.EncodeBase64 needs a byte array. You get a Base64 string and back (Base64 string -> Byte Array). So there is no magic behind it...

 

[gameone]

Yea problem is i can't got Base64String into byte array.
I don't knon why.

 

[KMatle]

When you have a Base64 string (and you need to convert it) use

Dim su As StringUtils
Dim MyBase64StringAsBytes() As Byte = su.DecodeBase64(MyBase64String)

Change "MyBase64String" to the variable name you use

 

[gameone]

Thanks bro i don't know why i suck so much on it
But u solve me alot of time

 

[KMatle]

No magic here. It would be nice to "like" the helpful post's

 

[gameone]

Oh my bad i have read too much quickly, i know for decode it's for "encode"

You know from a world like "example" got a base64 string UTF-8

 

[gameone]

No body can help me ? For encode a string "example" into base64.

Basicly what i want is from "example" got "ZXhhbXBsZQ=="

 

[DonManfred]

Basicly what i want is from "example" got "ZXhhbXBsZQ=="

Where is the problem? StringUtils and ByteConverter is all you need

Dim text As String = "example"
Log(su.EncodeBase64(bc.StringToBytes(text,"utf-8")))

LogCat connected to: 05157df57d72d204
--------- beginning of main
** Activity (main) Create, isFirst = true **
ZXhhbXBsZQ==
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = false **
** Activity (main) Resume **

 

[gameone]

StringToBytes !
Thanks DonManFred, and still thanks KMalte for trying help me.
Got it.

 

[Recep Cinet]

Log (encodeBase64("123456"))
Log (decodeBase64("MTIzNDU2"))

'StringUtil Library needed
'ByteConverter Library needed
public Sub encodeBase64(str As String) As String
    Dim su As StringUtils
    Dim bc As ByteConverter
    Dim byt() As Byte = bc.StringToBytes(str,"UTF-8")
    Dim out As String=su.EncodeBase64(byt)
    Return out
End Sub
public Sub decodeBase64(str As String) As String
    Dim su As StringUtils
    Dim bico As ByteConverter
    Dim byt() As Byte=su.DecodeBase64(str)
    Dim out As String=bico.StringFromBytes(byt,"UTF-8")
    Return out
End Sub