Any File to b64 BB data statements

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|540\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> File Access

Andy_A	Created : 04 February 2013 System : Windows Language : Blitz Any File to b64 BB data statements Simple way to include pics with src
Creates a .bb file which can be posted with your source code. The .bb file can be run to save images or zips to disk. Pros: Encodes files in a more compact format than decimal data and hex data. Decimal data statements use ~3.57 bytes to encode 1 byte from file. Hex data statements use ~2 bytes to encode 1 byte of data from file b64 data statements use ~1.33 bytes to encode 1 byte of data from file Fairly fast, I encoded a 45K jpg in 3 seconds (reading the input file, encoding the data, writing data to output file) Cons: Large loader code adds ~950 bytes to data Too slow for realtime use ;Any file to base64 data statements Andy_A ;2013.01.30 AppTitle "Any file to b64 data statements" ;============================================================================== Const sizeOfLine = 60 ;<-- change number of bytes encoded per line of data here Const loader = 1 ;<-- change to zero for data output ONLY, else add loader code BlitzPlus = 1 ;<-- Change to zero if using Blitz Classic or Blitz3D ;Change 'Restore' label for data statements here dataLabel$ = "imgData" ;<-- DO NOT include leading period/stop ;============================================================================== If BlitzPlus Then file$ = RequestFile("Load file to convert to data...","",False) If file$ = "" Then RuntimeError "File Load aborted..." Else file$ = "blocks.png" ;<-- blocks from Blitzanoid, change to your file here (B3D) End If ;Read the file to convert filein = ReadFile(file$) ;Create and fill bank with file data size = FileSize(file$) ;name the output file If BlitzPlus Then datafile$ = RequestFile("Save data as...","bb",True,"dataFile.bb") If datafile$ = "" Then RuntimeError "File save aborted." Else datafile$ = "blocks_png.bb" ;<-- change to your output name here (B3D) End If fileOut = WriteFile(datafile$) fullLines = Floor(size/sizeOfLine ) rm = size - (fullLines sizeOfLine ) q$ = Chr$(34) char$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" Dim k(63) For i = 0 To 63 k(i) = Asc(Mid(char$,i+1,1)) Next st = MilliSecs() If loader = 1 Then WriteLine(fileOut,"Restore "+dataLabel$+":Read p$,s,t:o=WriteFile(p):n=Floor(s/t):If(nt)<s Then n=n+1") WriteLine(fileOut,"For i=1To n:Read d$:z$=z+d64(d):For j=1To Len(z)") WriteLine(fileOut,"WriteByte(o,Asc(Mid(z,j,1))):Next:z="+q$+q$+":Next:CloseFile o:End") WriteLine(fileOut,"Function d64$(d$): s$="+q$+q$+":rm=0:L=Len(d):If Right(d,1)="+q$+"="+q$+"Then rm=2") WriteLine(fileOut,"r$="+q$+"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"+q$) WriteLine(fileOut,"If Right(d,2)="+q$+"=="+q$+"Then rm=1") WriteLine(fileOut,"If rm>0Then m=L-5Else m=L-1") WriteLine(fileOut,"For i=1To m Step 4:w=Instr(r,Mid(d,i,1))-1:x=Instr(r,Mid(d,i+1,1))-1") WriteLine(fileOut,"y=Instr(r,Mid(d,i+2,1))-1:z=Instr(r,Mid(d,i+3,1))-1") WriteLine(fileOut,"a=(w Shl 2)+((x And 48)Shr 4):b=((x And 15)Shl 4)+((y And 60)Shr 2)") WriteLine(fileOut,"c=((y And 3)Shl 6)+z:s=s+Chr(a)+Chr(b)+Chr(c):Next:If rm=1Then") WriteLine(fileOut,"w=Instr(r,Mid(d,L-3,1))-1:x=Instr(r,Mid(d,L-2,1))-1") WriteLine(fileOut,"a=(w Shl 2)+((x And 48)Shr 4):s=s+Chr(a):EndIf:If rm=2Then") WriteLine(fileOut,"w=Instr(r,Mid(d,L-3,1))-1:x=Instr(r,Mid(d,L-2,1))-1") WriteLine(fileOut,"y=Instr(r,Mid(d,L-1,1))-1:a=(w Shl 2)+((x And 48) Shr 4)") WriteLine(fileOut,"b=((x And 15) Shl 4)+((y And 60)Shr 2):s=s+Chr(a)+Chr(b):EndIf") WriteLine(fileOut,"Return s:End Function") End If WriteLine(fileout,"."+dataLabel$) WriteLine(fileout,"Data "+q$+file$+q$+","+size+","+sizeOfLine) For i = 1 To size-rm-1 Step sizeOfLine a1$ = "" For j = 1 To sizeOfLine a1$ = a1$ + Chr(ReadByte(filein)) Next WriteLine(fileOut, "Data " + q$ + e64(a1$) + q$ ) Next If rm > 0 Then a1$ = "" For i = 1 To rm a1$ = a1$ + Chr(ReadByte(filein)) Next WriteLine(fileOut, "Data " + q$ + e64(a1$) + q$) End If CloseFile(filein) CloseFile(fileout) et = MilliSecs()-st Print "ET: "+et WaitKey() End Function e64$(e$) f$ = "" g = Len(e$) rm = g- Floor(g/3)3 For i = 1 To g-rm-1 Step 3 a = Asc(Mid$(e$,i ,1)) b = Asc(Mid$(e$,i+1,1)) c = Asc(Mid$(e$,i+2,1)) w = (a And 252) Shr 2 x = ((a And 3) Shl 4) + ( (b And 240) Shr 4) y = ((b And 15) Shl 2) + ( (c And 192) Shr 6) z = c And 63 f$ = f$ + Chr$(k(w)) + Chr$(k(x)) +Chr$(k(y)) +Chr$(k(z)) Next If rm = 1 Then a = Asc(Right(e$,1)) w = (a And 252) Shr 2 x = (a And 3) Shl 4 f$ = f$ + Chr(k(w)) + Chr(k(x)) + "==" End If If rm = 2 Then a = Asc(Mid(e$,g-1,1)) b = Asc(Right(e$,1)) w = (a And 252) Shr 2 x = (a And 3) Shl 4 x = x + ( (b And 240) Shr 4) y = (b And 15) Shl 2 f$ = f$ + Chr(k(w))+Chr(k(x))+Chr(k(y)) + "=" End If Return f$ End Function --v base64 encoded png (size = 2216 bytes): ;LOADER code ================================================================ Restore imgData:Read p$,s,t:o=WriteFile(p):n=Floor(s/t):If(n*t)<s Then n=n+1 For i=1To n:Read d$:z$=z+d64(d):For j=1To Len(z) WriteByte(o,Asc(Mid(z,j,1))):Next:z="":Next:CloseFile o;:End <- comment out the 'End' statement Function d64$(d$): s$="":rm=0:L=Len(d):If Right(d,1)="="Then rm=2 r$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" If Right(d,2)="=="Then rm=1 If rm>0Then m=L-5Else m=L-1 For i=1To m Step 4:w=Instr(r,Mid(d,i,1))-1:x=Instr(r,Mid(d,i+1,1))-1 y=Instr(r,Mid(d,i+2,1))-1:z=Instr(r,Mid(d,i+3,1))-1 a=(w Shl 2)+((x And 48)Shr 4):b=((x And 15)Shl 4)+((y And 60)Shr 2) c=((y And 3)Shl 6)+z:s=s+Chr(a)+Chr(b)+Chr(c):Next:If rm=1Then w=Instr(r,Mid(d,L-3,1))-1:x=Instr(r,Mid(d,L-2,1))-1 a=(w Shl 2)+((x And 48)Shr 4):s=s+Chr(a):EndIf:If rm=2Then w=Instr(r,Mid(d,L-3,1))-1:x=Instr(r,Mid(d,L-2,1))-1 y=Instr(r,Mid(d,L-1,1))-1:a=(w Shl 2)+((x And 48) Shr 4) b=((x And 15) Shl 4)+((y And 60)Shr 2):s=s+Chr(a)+Chr(b):EndIf Return s:End Function ;============================================================================ ;add your display code here Graphics 640,480,32,2 SetBuffer BackBuffer() image = LoadImage("blocks.png") DrawImage image,(640-ImageWidth(image))/2, (480-ImageHeight(image))/2 Flip WaitMouse() FreeImage image End ;generated b64 data statements .imgData Data "blocks.png",2216,99 Data "iVBORw0KGgoAAAANSUhEUgAAAOAAAAAgCAIAAACEp+MCAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgA" Data "ABdwnLpRPAAAAAlwSFlzAAALMgAACzIBQPVfaAAACBFJREFUeF7dmT9sHUUQxvdF0CBFAYmQPKM4doFEAQUSFFS0aSheR5UKpARRUkGTwkh5IoWpIqVEKLIQxZPS0aRxYQRK" Data "XgGiQQJZwVYQBVYUSEjw8b039mS9Mzc373Yv/nMane729r7b2/3d3O5MrxoOA7a1tcne2Obnw9xc2NgI6+sNNXfVFjc3cfjJsMJ+3CTfnw+n5sLdjbDpkL89VfthcxH7fx9d" Data "nJxsNz2gNx96c6HaCJXjAVO1xVcn7b/429XJC4VbDd0TXp4LpzbC3fXwe2P/rIXbqLO5OMZ++NOjif7jpu4/FuaOhY3tsL7dKB/WJpJh841J/zz46Ffs/2vqnmO73bPt6J7H" Data "U7XXp/1/ffUr7O/cuWM368SJE8ePH793797W1lbjC5Da0tLSpCYAHYVgGHqx6verwWCy7/VwKg2XkkKULIQAuzas+mFk2JkwfrtffTiosH+lV+FUGi4lhSh5NizAqkfD0dfB" Data "sPF3ofqnXz0cTPZ/93AqDZeSQpQsnA2wYXU1jE5aNj7dr94cVB9g36vOhvFpabiUFE5KFp6BDe9X4cuRZTfH/T+rwVaFfe+PKtwcS8OlpHBScmYB9mBYXQ8jw1bDeKtf3R9U" Data "2P/Vq3AqDZeSQpTMhwXY6urqe+Z24cKFK1eurKysYH/p0iWcyg2XkkKUPD/dAsgrTidghSYBCvKK0wlYobkD6MNBcToBKzQJUJBXnM4JrIB+CijIK07nBFZAPwUU5BWnE7BC" Data "kwAFeQaf7ejEXdBsBrSd7yRX6gG0ne8kV+oBtJ3vJFfqArSV79xxpR5AW/nOHVfqALSd7yRX6gG0NZ0uQHPo9ACaQ6cH0Bw6XYDm0OnxoDl0OjxoDp0eQHPobAbURWfNfNTj" Data "QT101s1HPR7URWfNfNTlQR101s1HXR7UQWfdfNTjQT101s1HPR7UQ2fdfJQmo9YvPp9O24Pm02l70Hw6GzxoPp22B82n0/Sg+XTaHjSfTgvQInSSE1UXSUXoJCeqLpKK0ElO" Data "VF8kFaGTVvrqIqkInbTS1xZJRegkJ6oukorQSU5UWSQVpFNdJBWkU10kFaRTXyQVpFNdJBWkU1skFaRTXSQVpFP5xbvoFPFODn8mIVIJqIdOGe/k8GcyJZWAuugU8U4OfyYh" Data "UgVQB50y3snhz3RKKgF10CnjnRz+TKekAlAPnTLeyeHPZEoqAfXQKeOdHP5MpqQpoJl0ytB9AmgmnTJ0nwCaSacM3aeA5tGpRO8TQPPoVKL3ewHNpFOG7hNAM+mUofs9gEo6" Data "ZcZI5ooklHFJDKikU67QDd+p5pZiQCWdMmMkc0VqSokL9wAq6JQrdMN3qrmlPYF6QadcoRu+U80txYF6SadcoRu+U80txYBKOuUK3fCdam5pD6BJJlPNW9o4yqvL0SIpyWSq" Data "eUuVQqPwxbDMi6Qkk6nmLW0c5dXlz58skpJMpp631DKcOppUc/kFXiQlmUw9b6llOHU0qebSMi+SkkymmrdUKTQKL4dlXiQlmUw1b6lSaBSeO3duZ5FE7pMCQzA+oFO1hC/V" Data "HYBOBpTcJwWGYHzA+U9ZYufucRV0MqDkPikwBOMDzn/KEjt3j6ugkwEFTDtEUkaeIkSxyRI7d4+roHMXUMC0QyRl5ClCFJsssXP3uAo6dwEl90mBIRgfcP5Tlti5e1wFnQwo" Data "uU8KDGHjA85/yhI7d4+roPMJoBQM6s7Iz3VnFAzqzsjPdWjTYFB3Rn6uOyM/193WIZoEfXdoknJ3aJJyh2gS913SCfHu0CTl7tDc+cX/8vM3sO9XP7Ptx1vXUA37xpqo8O3o" Data "POylk8/B/PohhK718YhO219cH4LJNmv7pcIhKwFAn378lmFfXH4HtBF2N1bexak0XEoKY0Cd+ui4p6DPwxM3OGl/PIT+/kkGvpR+HU9O/UOGo/pFFqcTfQdN8qB4Io7pufJB" Data "TP9MdBbRpyZRA3iwuX9atF9FIV/fJqxO/9BzyS8A11gHaDvfSYPNAwx9RjNhNNYnVmzfHNcpog9BSWfr9qtMNOond8VjQf1jo6Z+XUeHTrxJHaA5dCaAxp3OjHLv0xjU0cl+" Data "LqkTA3oQ9Bv9XF375Y30Oh46+V5UPlJQxi+jAuqhs26+KD1Q4qH5x0oOrI7OWF/WqQOUphMJ/Uw5DyQOius3Mhp/hPEUQt44E51HFk16MQloPp2GByXfQI82Vl0JPTMBWqev" Data "YhojqwKk9o/afqkfo5P8ImxADeZI54hDaXjQInRSJ9IiKRngFnTykCRj3EKfXpzpT5DaF/0WqCXtNxRokXq4txiggnSqv2DPvNOYOcR+NEc/5jKG0q9fp0Azh5n0W9PDLa9T" Data "4ChK60cciBsZUA+dMt7J3ZSAJQGK6aTK8sf91PQThviUm2S03/hxc/tV/biw9S/eA008xfLUP9B1CNBMOpOfo5yDSjoloAadHekTjvF3Ugcotz8Zy7hhsv2sL5nOAbTRdx41" Data "QCWd8j87Ez0JoKyPcSLleBZF3b0v+uq/mKiKPWjcfulsjPbXeabWACUfanH9g+hKKYcZZzLVvKX0YXbJ++df40UMvzZxmcSWW9CJW0rpy2kGlaj66vjZ7a+7hfU9TBhfbxF9" Data "Txv2rQ73L8eHk7Alfe4zGXo/HgDq3zp9vPlM4qhcVl82ACUzAWS3Xx3aA6W/b/B5Hkx+rjtDG2zxxgqZt3v0qaPiB/FpkT5URfyr7MbRydT3vOO+1Wl8+cwKTj5aP6Wgvirl" Data "HBhP+51SBm2N32rOIw7mvf8D5zQ8aMiOeWUAAAAASUVORK5CYII=" --v

Comments
Monday, 04 February 2013, 14:23
Jayenkai	Imagine that as a magazine type-in!! Good golly!!! Nice work.
Monday, 04 February 2013, 16:03
Andy_A	Thanks! Yeah, I tried to condense the loader code as much as possible. But hey!, it base64... I already had a hex loader written up when it dawned on me that base64 is the better way to go.
Tuesday, 05 February 2013, 06:47
spinal	I remember QB4.5 progs that did this very nice.
Tuesday, 05 February 2013, 08:50
Andy_A	Looked at the QB src code and ran away. It uses base 86 stuff so I took the easy way out with base64.
Wednesday, 06 February 2013, 15:38
dna	This is probably a stupid wuestion but I cannot see the use for this. Can someone give a specific example for this?
Wednesday, 06 February 2013, 15:42
Jayenkai	Protection. You have a set of sprites that you don't want people stealing, so you create the image from this data, load it, then delete it. That way, YOU can use it, but it won't be on the user's files, for easy access by them.
Wednesday, 06 February 2013, 16:28
dna	OH. That partially explains it.
Thursday, 07 February 2013, 08:57
Andy_A	Another possible use: To post small (less then 15K) images, Dll's, or zip's along with source code. (no more 404's)
Thursday, 07 February 2013, 23:56
Afr0	If this was to be properly "protected", it would have to be encrypted. But I suppose just the sheer fact that it is encoded in the executable makes it somewhat harder to get at the file.

Any File to b64 BB data statements

Comments