Subscribe to our YouTube channel.Tutorials and more athttps://www.youtube.com/c/QB64Team.
0 Members and 1 Guest are viewing this topic.
The encoded bytes range from ASC 48 "0" to ASC 111 "o". 111 - 48 = 63 (64 characters). In that range, the comma and quotes are avoided.
One problem I did have to fix in my last few encoders here was using the @ symbol. That was interfering with posted code because of the forums way of using @ to note members, so I had to swap it out with an unused character.
I am wondering if all this data packing slows program loads?
FOR x% = 1 TO LEN(string1) STEP 7 b7 = ASC(MID$(string1, x%, 1)) b6 = ASC(MID$(string1, x% + 1, 1)) b5 = ASC(MID$(string1, x% + 2, 1)) b4 = ASC(MID$(string1, x% + 3, 1)) b3 = ASC(MID$(string1, x% + 4, 1)) b2 = ASC(MID$(string1, x% + 5, 1)) b1 = ASC(MID$(string1, x% + 6, 1))
@Dav: Here is it: https://www.qb64.org/forum/index.php?topic=2041.0