Obfuscated BB Contest :D

Übersicht

Sonstiges

Smalltalk

	Smily Betreff: Obfuscated BB Contest :D	So, Nov 25, 2007 1:03 Antworten mit Zitat
hoi, bin gerade in der wikipedia auf das und das gestossen sowas könnte man ja auch mal in blitzbasic machen was haltet ihr von der Idee? ^^ Also ein bestimmter text muss auf den Bildschirm geschrieben werden.. der Code soll dabei möglichst Verschleiert sein, darf aber eine bestimmte größe nicht überschreiten. cu, Smily0412
Lesestoff: gegen Softwarepatente \| Netzzensur \| brain.exe \| Unabhängigkeitserklärung des Internets "Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!" stummi.org

Smily

Betreff: Obfuscated BB Contest :D

So, Nov 25, 2007 1:03
Antworten mit Zitat

hoi,
bin gerade in der wikipedia auf das und das gestossen

sowas könnte man ja auch mal in blitzbasic machen Laughing

was haltet ihr von der Idee? ^^

Also ein bestimmter text muss auf den Bildschirm geschrieben werden.. der Code soll dabei möglichst Verschleiert sein, darf aber eine bestimmte größe nicht überschreiten.

cu,
Smily0412

Lesestoff:
gegen Softwarepatente | Netzzensur | brain.exe | Unabhängigkeitserklärung des Internets

"Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!"
stummi.org

	FreakForFreedom	So, Nov 25, 2007 1:53 Antworten mit Zitat
Finde ich eine lustige Idee. Mal schauen, wie das so geht...
Mfg F.F.F. "Try and ERROR!"

FreakForFreedom

So, Nov 25, 2007 1:53
Antworten mit Zitat

Finde ich eine lustige Idee. Mal schauen, wie das so geht... Wink

Mfg
F.F.F.
"Try and ERROR!"

	D2006 Administrator	So, Nov 25, 2007 2:06 Antworten mit Zitat
Nich reden, machen... Ich geb mal den Text vor... Zitat: Where the only limit is your imagination! Um es ganz schleimig zu machen, kann man noch ein "BlitzBasic. " voransetzen.
Intel Core i5 2500 \| 16 GB DDR3 RAM dualchannel \| ATI Radeon HD6870 (1024 MB RAM) \| Windows 7 Home Premium Intel Core 2 Duo 2.4 GHz \| 2 GB DDR3 RAM dualchannel \| Nvidia GeForce 9400M (256 MB shared RAM) \| Mac OS X Snow Leopard Intel Pentium Dual-Core 2.4 GHz \| 3 GB DDR2 RAM dualchannel \| ATI Radeon HD3850 (1024 MB RAM) \| Windows 7 Home Premium Chaos Interactive :: GoBang :: BB-Poker :: ChaosBreaker :: Hexagon :: ChaosRacer 2

D2006

Administrator

So, Nov 25, 2007 2:06
Antworten mit Zitat

Nich reden, machen... Ich geb mal den Text vor...

Zitat:

Where the only limit is your imagination!

Um es ganz schleimig zu machen, kann man noch ein "BlitzBasic. " voransetzen. Smile

	mahe	So, Nov 25, 2007 2:31 Antworten mit Zitat
Größenbeschränkung? 2048 Bytes? Auf jeden Fall witzig. Ich hab zuvor noch nie davon gehört.
ʇɹǝıdɯnɹɹoʞ ɹnʇɐuƃıs - ǝpoɥʇǝɯ-ɹoɹɹıɯ ɹǝp uı ,ɹoɹɹǝ,

mahe

So, Nov 25, 2007 2:31
Antworten mit Zitat

Größenbeschränkung?
2048 Bytes?

Auf jeden Fall witzig.
Ich hab zuvor noch nie davon gehört.

ʇɹǝıdɯnɹɹoʞ ɹnʇɐuƃıs - ǝpoɥʇǝɯ-ɹoɹɹıɯ ɹǝp uı ,ɹoɹɹǝ,

	SpionAtom	So, Nov 25, 2007 4:55 Antworten mit Zitat
.:580 byte:. Code: [AUSKLAPPEN] [EINKLAPPEN] SetBuffer BackBuffer():is=GraphicsHeight()+30:While is > 180:Cls:ra 3210262,5,19,100,50;written ra 3872,3,16,100,70:ra 92854,4,14,107,90:ra 495104,5,12,72,110:ra 125,2,11,104,130;by SpionAtom ra 10883,4,11,110,150:ra 839,3,13,64,180,158:ra 3315,3,20,64,180,200:ra 1,2,2,77,180,242;Nov-07 Rect 150,is,2,14:Rect 192,is,2,10:Rect 234,is,2,10:Rect 270,is-4,3,16:Rect 270,is+16,3,3:Flip() is=is-1:Wend:Function ra(x,l,z,o,y,p=-1):If p= -1 Then p=(GraphicsWidth()-StringWidth("_")l)/2 SeedRnd x:For i=0 To l-1: Text p+i10,y,Chr(Rand(z)+o):Next:End Function:WaitKey:End;Blitzbasic (klappt mit der Blitz 2d-demo nicht richtig )
os: Windows 10 Home cpu: Intel Core i7 6700K 4.00Ghz gpu: NVIDIA GeForce GTX 1080

SpionAtom

So, Nov 25, 2007 4:55
Antworten mit Zitat

.:580 byte:.

Code: [AUSKLAPPEN]

SetBuffer BackBuffer():is=GraphicsHeight()+30:While is > 180:Cls:ra 3210262,5,19,100,50;written
ra 3872,3,16,100,70:ra 92854,4,14,107,90:ra 495104,5,12,72,110:ra 125,2,11,104,130;by SpionAtom
ra 10883,4,11,110,150:ra 839,3,13,64,180,158:ra 3315,3,20,64,180,200:ra 1,2,2,77,180,242;Nov-07
Rect 150,is,2,14:Rect 192,is,2,10:Rect 234,is,2,10:Rect 270,is-4,3,16:Rect 270,is+16,3,3:Flip()
is=is-1:Wend:Function ra(x,l,z,o,y,p=-1):If p= -1 Then p=(GraphicsWidth()-StringWidth("_")*l)/2
SeedRnd x:For i=0 To l-1: Text p+i*10,y,Chr(Rand(z)+o):Next:End Function:WaitKey:End;Blitzbasic

(klappt mit der Blitz 2d-demo nicht richtig Sad

)

os: Windows 10 Home cpu: Intel Core i7 6700K 4.00Ghz gpu: NVIDIA GeForce GTX 1080

Zuletzt bearbeitet von SpionAtom am Mo, Nov 26, 2007 12:47, insgesamt einmal bearbeitet

	Marek	So, Nov 25, 2007 11:39 Antworten mit Zitat
Is ja geil
Wer lesen kann ist klar im Vorteil...

Marek

So, Nov 25, 2007 11:39
Antworten mit Zitat

Is ja geil Very Happy

Wer lesen kann ist klar im Vorteil...

	maximilian	So, Nov 25, 2007 11:44 Antworten mit Zitat
Es gibt Gründe wieso man sowas gerade mit Perl macht, und nicht mit anderen Sprachen.
Variety is the spice of life. One day ignore people, next day annoy them.

maximilian

So, Nov 25, 2007 11:44
Antworten mit Zitat

Es gibt Gründe wieso man sowas gerade mit Perl macht, und nicht mit anderen Sprachen.

Variety is the spice of life. One day ignore people, next day annoy them.

	peacemaker	So, Nov 25, 2007 11:59 Antworten mit Zitat
Die wären?
~Tehadon~ www.tehadon.de http://www.blitzforum.de/worklogs/14/

peacemaker

So, Nov 25, 2007 11:59
Antworten mit Zitat

Die wären?

~Tehadon~
www.tehadon.de
http://www.blitzforum.de/worklogs/14/

	ZaP	So, Nov 25, 2007 12:50 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Global t$;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; r("-=-=-===-==-=----==--=-=-===--=--==--=-=--=------===-=---==-=----==--=-=--=------==-====-==-===--==-==---====--=--=------==-==---==-=--=-==-==-=-==-=--=-===-=----=------==-=--=-===--==--=------====--=-==-====-===-=-=-===--=---=------==-=--=-==-==-=-==----=-==--===-==-=--=-==-===--==----=-===-=---==-=--=-==-====-==-===---=----=") Print(t$):WaitKey():end;;;;;;;;;;;;;;;;;;;;;;;;; Function r(cd$):q=Len(cd$)/8:Org$=cd$;;;;;;;;;;; For x=0 To q;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; cd$ = Mid(Org$,x*8+1,8):n=0;;;;;;;;;;;;;;;;;;;;; for i=1 To 8;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; m$=mid(cd$,i,1):If m$="=" Then n=n+2^(Len(cd$)-i) Next;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; t$=t$+Chr(n);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Next;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; end Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Starfare: Worklog, Website (download)

ZaP

So, Nov 25, 2007 12:50
Antworten mit Zitat

Code: [AUSKLAPPEN]

Global t$;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
r("-=-=-===-==-=----==--=-=-===--=--==--=-=--=------===-=---==-=----==--=-=--=------==-====-==-===--==-==---====--=--=------==-==---==-=--=-==-==-=-==-=--=-===-=----=------==-=--=-===--==--=------====--=-==-====-===-=-=-===--=---=------==-=--=-==-==-=-==----=-==--===-==-=--=-==-===--==----=-===-=---==-=--=-==-====-==-===---=----=")
Print(t$):WaitKey():end;;;;;;;;;;;;;;;;;;;;;;;;;

Function r(cd$):q=Len(cd$)/8:Org$=cd$;;;;;;;;;;;
For x=0 To q;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
cd$ = Mid(Org$,x*8+1,8):n=0;;;;;;;;;;;;;;;;;;;;;
for i=1 To 8;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
m$=mid(cd$,i,1):If m$="=" Then n=n+2^(Len(cd$)-i)
Next;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
t$=t$+Chr(n);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Next;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
end Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Starfare: Worklog, Website (download)

	SpionAtom	So, Nov 25, 2007 19:51 Antworten mit Zitat
Macht Spaß! Und geht auch ohne den Text-Befehl. .:719 byte:. (edit: hab den Backbuffer vergessen) Code: [AUSKLAPPEN] [EINKLAPPEN] Data 138,19,16,72,65,148,148,68,82,66,48,166,75,13 Data 163,29,164,206,220,150,138,42,168,232,162,90 Data 148,64,168,224,64,169,74,133,84,160,181,36 Data 82,214,171,58,56,76,226,82,136,68,170,66 Data 48,73,74,5,87,172,173,228,82,182,170,162 Data 32,74,130,82,136,68,170,66,8,73,74,5,84 Data 164,165,36,82,150,82,154,24,106,97,146 Data 104,54,171,99,112,70,50,13,84,157,165 Data 36, 206, 150: SetBuffer BackBuffer() For x = 100 To 1 Step -1: Cls: Restore For j =1 To 5:For i = 0 To 19: Read z b$ = Right$(Bin$(z),8): For k =1 To 8 v=Mid(b$,k,1):Color 50v,150v,255v Rect(i8+k)2,j2(x),2,2x2:Next Next:Next:Color 0,0,255;SpionAtom Oval 303,12+(j2*x),30,30;Nov-07 Flip():Delay 20 Next:WaitKey End
os: Windows 10 Home cpu: Intel Core i7 6700K 4.00Ghz gpu: NVIDIA GeForce GTX 1080

SpionAtom

So, Nov 25, 2007 19:51
Antworten mit Zitat

Macht Spaß!

Und geht auch ohne den Text-Befehl.
.:719 byte:.
(edit: hab den Backbuffer vergessen)

Code: [AUSKLAPPEN]

Data 138,19,16,72,65,148,148,68,82,66,48,166,75,13
Data 163,29,164,206,220,150,138,42,168,232,162,90
Data 148,64,168,224,64,169,74,133,84,160,181,36
Data 82,214,171,58,56,76,226,82,136,68,170,66
Data 48,73,74,5,87,172,173,228,82,182,170,162
Data 32,74,130,82,136,68,170,66,8,73,74,5,84
Data 164,165,36,82,150,82,154,24,106,97,146
Data 104,54,171,99,112,70,50,13,84,157,165
Data 36, 206, 150: SetBuffer BackBuffer()
For x = 100 To 1 Step -1: Cls: Restore
For j =1 To 5:For i = 0 To 19: Read z
b$ = Right$(Bin$(z),8): For k =1 To 8
v=Mid(b$,k,1):Color 50*v,150*v,255*v
Rect(i*8+k)*2,j*2*(x),2,2*x*2:Next
Next:Next:Color 0,0,255;SpionAtom
Oval 303,12+(j*2*x),30,30;Nov-07
Flip():Delay 20
Next:WaitKey
End