Aktuelle Zeit: 16.10.2018 01:37

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 50 Beiträge ]  Gehe zu Seite Vorherige  1, 2, 3, 4, 5
Autor Nachricht
 Betreff des Beitrags: Re: Bin2Post / Binäre Daten gleich im Forumspost mitliefern
BeitragVerfasst: 03.01.2017 16:11 
Offline

Registriert: 16.03.2006 11:20
Nette Idee, kann vielleicht einmal praktisch sein :wink:
Hab' noch ein paar "Bits" herausgepresst...

Code:
Macro D:Data.s:EndMacro:Macro V:MemoryStringLength:EndMacro:R=?S:T=R:Repeat:L=V(R):PokeS(T,PeekS(R)):T+L:R+L+1:Until R>=?E:M=V(?S):R=AllocateMemory(M)
If R>0:B=Base64Decoder(?S,M,R,M):F.s=SaveFileRequester("Datei speichern","Bin2Post.pb","Alle Dateien (*.*)|*.*",0):If F And CreateFile(0,F):WriteData(0,R,B):EndIf:EndIf
DataSection
S:
D"DQojUm93bGVuPQkJMjU2CQk7IE1heGltYWxlIFplaWNoZW4gcHJvIERhdGF6ZWlsZQ0KI01heEVudHJpZXM9CTEwMAkJOyBNYXhpbWFsZSBBbnphaGwgZGVyIGFuZ2V6ZWlndGVuIFplaWxlbg0KI01heEZpbGVsZW49CQk1MDAwMDAJOyBNYXhpbWFsZSBHcvbfZSBkZXIgRGF0ZWkgaW4gQnl0ZXMNCiNSZWZyZXNoUmF0ZT0JNTMyCQk7IEFr"
D"dHVhbGlzaWVydW5nc3JhdGUgZGVyIFN0YXR1c3plaWxlIChpbiBCeXRlcykNCg0KRW5hYmxlRXhwbGljaXQNCg0KU3RydWN0dXJlIFNldA0KCU5hbWVJbi5zDQoJU2l6ZUluLmkNCglTaXplNjQuaQ0KCSpCdWZJbg0KCSpCdWY2NA0KCVR4dC5zDQpFbmRTdHJ1Y3R1cmUNCg0KR2xvYmFsIGV2ZyxldnQNCkdsb2JhbCB2di5TZXQNCg0KUHJv"
D"Y2VkdXJlIENvbnZlcnQoTmFtZUluLnMpDQoNCglQcm90ZWN0ZWQgaixsZW4NCg0KCWxlbj0jUm93bGVuDQoJdnZcVHh0PSIiDQoNCgl2dlxTaXplSW49RmlsZVNpemUoTmFtZUluKQ0KCUlmIHZ2XFNpemVJbj4wIEFuZCB2dlxTaXplSW48PSNNYXhGaWxlbGVuDQoJCXZ2XEJ1ZkluPUFsbG9jYXRlTWVtb3J5KHZ2XFNpemVJbikNCgkJdnZc"
D"QnVmNjQ9QWxsb2NhdGVNZW1vcnkodnZcU2l6ZUluKjEuNSkNCg0KCQlJZiB2dlxCdWZJbj4wIEFuZCB2dlxCdWY2ND4wDQoJCQlJZiBPcGVuRmlsZSgwLE5hbWVJbikNCgkJCQlJZiBSZWFkRGF0YSgwLHZ2XEJ1ZkluLHZ2XFNpemVJbik+MA0KDQoJCQkJCVNldEdhZGdldFRleHQoMSwiQ29udmVydGluZyB0byBCYXNlNjQgRm9ybWF0IikN"
D"CgkJCQkJdnZcU2l6ZTY0PUJhc2U2NEVuY29kZXIodnZcQnVmSW4sdnZcU2l6ZUluLHZ2XEJ1ZjY0LHZ2XFNpemVJbioxLjUpDQoNCgkJCQkJI1E9I0RPVUJMRVFVT1RFJA0KDQoJCQkJCXZ2XFR4dCsiTWFjcm8gRDpEYXRhLnM6RW5kTWFjcm86TWFjcm8gVjpNZW1vcnlTdHJpbmdMZW5ndGg6RW5kTWFjcm86Uj0/UzpUPVI6UmVwZWF0Okw9"
D"VihSKTpQb2tlUyhULFBlZWtTKFIpKTpUK0w6UitMKzE6VW50aWwgUj49P0U6TT1WKD9TKTpSPUFsbG9jYXRlTWVtb3J5KE0pIisjTEYkDQoJCQkJCXZ2XFR4dCsiSWYgUj4wOkI9QmFzZTY0RGVjb2Rlcig/UyxNLFIsTSk6Ri5zPVNhdmVGaWxlUmVxdWVzdGVyKCIrI1ErIkRhdGVpIHNwZWljaGVybiIrI1ErIiwiKyNRK0dldEZpbGVQYXJ0"
D"KE5hbWVJbikrI1ErIiwiKyNRKyJBbGxlIERhdGVpZW4gKCouKil8Ki4qIisjUSsiLDApOiINCgkJCQkJOyB2dlxUeHQrIklmIEY8PiIrI1ErI1ErIjpJZiBDcmVhdGVGaWxlKDAsRik6V3JpdGVEYXRhKDAsUixCKTpDbG9zZUZpbGUoMCk6RW5kSWY6RW5kSWY6RnJlZU1lbW9yeShSKTpFbmRJZiIrI0xGJA0KCQkJCQk7IGRhIENsb3NlRmls"
D"ZSAmIEZyZWVNZW1vcnkgYXV0b21hdGlzY2ggcGFzc2llcmVuIHVuZCAnSWYgMCBhbmQgc29tZXRoaW5nJyBvcHRpbWllcnQgd2lyZCAodW5kICdzb21ldGhpbmcnIG5pY2h0IGF1c2dlZvxocnQgd2lyZCkgZ2VodCdzIGv8cnplci4uLg0KCQkJCQl2dlxUeHQrIklmIEYgQW5kIENyZWF0ZUZpbGUoMCxGKTpXcml0ZURhdGEoMCxSLEIpOkVu"
D"ZElmOkVuZElmIisjTEYkDQoJCQkJCXZ2XFR4dCsiRGF0YVNlY3Rpb24iKyNMRiQrIlM6IisjTEYkDQoNCgkJCQkJRm9yIGo9MCBUbyB2dlxTaXplNjQgU3RlcCAjUm93bGVuDQoJCQkJCQlJZiBqICUgI1JlZnJlc2hSYXRlPTANCgkJCQkJCQlTZXRHYWRnZXRUZXh0KDEsIkdlbmVyYXRpbmcgZGF0YSBibG9ja3MgWyIrU3RyKGopKyIgLyAi"
D"K1N0cih2dlxTaXplNjQpKyAiXSIpDQoJCQkJCQkJV2hpbGUgV2luZG93RXZlbnQoKTpXZW5kDQoJCQkJCQlFbmRJZg0KCQkJCQkJSWYgaisjUm93bGVuPj12dlxTaXplNjQ6bGVuPXZ2XFNpemU2NC1qOkVuZElmDQoJCQkJCQlJZiBsZW4+MA0KCQkJCQkJCXZ2XFR4dCsiRCIrQ2hyKDM0KStQZWVrUyh2dlxCdWY2NCtqLGxlbikrQ2hyKDM0"
D"KSsjTEYkDQoJCQkJCQlFbmRJZg0KCQkJCQlOZXh0IGoNCg0KCQkJCQl2dlxUeHQrIkU6IisjTEYkKyJFbmREYXRhU2VjdGlvbiIrI0xGJA0KDQoJCQkJCUlmIHZ2XFNpemU2ND4jTWF4RW50cmllcw0KCQkJCQkJU2V0R2FkZ2V0VGV4dCgwLExlZnQodnZcVHh0LDQwOTYpKyNMRiQrIi4uLiBhbmQgc28gb24iKyNMRiQrIlBsZWFzZSB1c2Ug"
D"dGhlIGJ1dHRvbiAnQ29weSB0byBjbGlwYm9hcmQnIHRvIGdldCB0aGUgY29tcGxldGUgdGV4dC4iKQ0KCQkJCQkJU2V0R2FkZ2V0VGV4dCgxLCJDb252ZXJ0aW5nIGZpbmlzaGVkIFtwYXJ0aWFsbHkgcHJldmlld10gKCIrU3RyKHZ2XFNpemU2NCkrIiBCeXRlcyB0b3RhbCkiKQ0KCQkJCQlFbHNlDQoJCQkJCQlTZXRHYWRnZXRUZXh0KDAs"
D"dnZcVHh0KQ0KCQkJCQkJU2V0R2FkZ2V0VGV4dCgxLCJDb252ZXJ0aW5nIGZpbmlzaGVkIFtmdWxsIHByZXZpZXddICgiK1N0cih2dlxTaXplNjQpKyIgQnl0ZXMgdG90YWwpIikNCgkJCQkJRW5kSWYNCg0KCQkJCUVuZElmDQoJCQkJQ2xvc2VGaWxlKDApDQoJCQlFbmRJZg0KCQkJRnJlZU1lbW9yeSh2dlxCdWY2NCkNCgkJCUZyZWVNZW1v"
D"cnkodnZcQnVmSW4pDQoJCUVuZElmDQoJRWxzZUlmIHZ2XFNpemVJbj4jTWF4RmlsZWxlbg0KCQlTZXRHYWRnZXRUZXh0KDEsIkZpbGVzaXplIGV4Y2VlZCB0aGUgbGltaXQgb2YgIitTdHIoI01heEZpbGVsZW4pKyIgQnl0ZXMhIikNCglFbmRJZg0KDQpFbmRQcm9jZWR1cmUNCg0KT3BlbldpbmRvdygwLCNQQl9JZ25vcmUsI1BCX0lnbm9y"
D"ZSw0NDAsMjQwLCJL/HJ6ZXIgYWxzIEt1cnplcnMgQmluMlBvc3QiLCNQQl9XaW5kb3dfU2NyZWVuQ2VudGVyZWR8I1BCX1dpbmRvd19TaXplR2FkZ2V0fCNQQl9XaW5kb3dfU3lzdGVtTWVudXwjUEJfV2luZG93X01pbmltaXplR2FkZ2V0fCNQQl9XaW5kb3dfTWF4aW1pemVHYWRnZXQpDQpTbWFydFdpbmRvd1JlZnJlc2goMCwxKQ0KDQpF"
D"ZGl0b3JHYWRnZXQoMCwxMCwxMCxXaW5kb3dXaWR0aCgwKS0yMCxXaW5kb3dIZWlnaHQoMCktNDAsI1BCX0VkaXRvcl9SZWFkT25seSkNCkVuYWJsZUdhZGdldERyb3AoMCwjUEJfRHJvcF9GaWxlcywjUEJfRHJhZ19Db3B5KQ0KVGV4dEdhZGdldCgxLDEwLFdpbmRvd0hlaWdodCgwKS0yMixXaW5kb3dXaWR0aCgwKS0xMjAsMTgsIkRyb3Ag"
D"YSBmaWxlIGludG8gdGhlIHdoaXRlIGFyZWEgdG8gY29udmVydC4iLCNTU19DRU5URVJJTUFHRSkNCkJ1dHRvbkdhZGdldCgyLFdpbmRvd1dpZHRoKDApLTExMCxXaW5kb3dIZWlnaHQoMCktMjQsMTAwLDIyLCJDb3B5IHRvIGNsaXBib2FyZCIpDQoNClJlcGVhdA0KDQoJU2VsZWN0IFdhaXRXaW5kb3dFdmVudCgpDQoJQ2FzZSAjUEJfRXZl"
D"bnRfU2l6ZVdpbmRvdw0KCQlSZXNpemVHYWRnZXQoMCwxMCwxMCxXaW5kb3dXaWR0aCgwKS0yMCxXaW5kb3dIZWlnaHQoMCktMzUpDQoJCVJlc2l6ZUdhZGdldCgxLDEwLFdpbmRvd0hlaWdodCgwKS0xNyxXaW5kb3dXaWR0aCgwKS0xMjAsMTUpDQoJCVJlc2l6ZUdhZGdldCgyLFdpbmRvd1dpZHRoKDApLTExMCxXaW5kb3dIZWlnaHQoMCkt"
D"MjAsMTAwLDE4KQ0KCUNhc2UgI1BCX0V2ZW50X0dhZGdldERyb3ANCgkJSWYgRXZlbnRHYWRnZXQoKT0wIEFuZCBFdmVudERyb3BUeXBlKCk9I1BCX0Ryb3BfRmlsZXMgQW5kIEV2ZW50RHJvcEFjdGlvbigpPSNQQl9EcmFnX0NvcHkNCgkJCXZ2XE5hbWVJbj1TdHJpbmdGaWVsZChFdmVudERyb3BGaWxlcygpKyNMRiQsMSwjTEYkKQ0KCQkJ"
D"Q29udmVydCh2dlxOYW1lSW4pDQoJCUVuZElmDQoJQ2FzZSAjUEJfRXZlbnRfR2FkZ2V0DQoJCUlmIEV2ZW50R2FkZ2V0KCk9Mg0KCQkJU2V0Q2xpcGJvYXJkVGV4dCh2dlxUeHQpDQoJCQlTZXRHYWRnZXRUZXh0KDEsIlRoZSBjb21wbGV0ZSB0ZXh0IHdhcyBjb3BpZWQgdG8gY2xpcGJvYXJkICgiK1N0cih2dlxTaXplNjQpKyIgQnl0ZXMg"
D"dG90YWwpIikNCgkJRW5kSWYNCglDYXNlICNQQl9FdmVudF9DbG9zZVdpbmRvdw0KCQlFbmQNCglFbmRTZWxlY3QNCkZvckV2ZXINCg0KOyBJREUgT3B0aW9ucyA9IFB1cmVCYXNpYyA1LjQ0IExUUyAoV2luZG93cyAtIHg4NikNCjsgQ3Vyc29yUG9zaXRpb24gPSA4MQ0KOyBGaXJzdExpbmUgPSA3Mw0KOyBGb2xkaW5nID0gLQ0KOyBFbmFi"
D"bGVYUA0KOyBIaWRlRXJyb3JMb2c="
E:
EndDataSection


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Bin2Post / Binäre Daten gleich im Forumspost mitliefern
BeitragVerfasst: 03.01.2017 17:02 
Offline
Ein Admin
Benutzeravatar

Registriert: 29.08.2004 20:20
Wohnort: Saarbrücken
Der Code geht nicht. Aber jetzt habe ich versucht den zu reparieren, und krieg es selbst nicht hin. :lol:
Ich hab zuerst den String in Ascii gewandelt, dann durch den Decoder gejagt und dann versucht es als Ascii, Unicode oder UTF-8 zu interpretieren. Überall kommt nur Mist raus.
Code:
;Original
Debug PeekS(?S)

;Stringlänge bestimmen und ausgeben
M=MemoryStringLength(?S)
Debug M

R = AllocateMemory(2 * M + 2)

If R
   ;Unicode zu Ascii konvertieren
   PokeS(R + M, PeekS(?S), M, #PB_Ascii)
   
   B = Base64Decoder(R + M, M, R, M)
   Debug B
   Debug PeekS(R, #PB_Ascii)
   Debug PeekS(R, #PB_UTF8)
   Debug PeekS(R, #PB_Unicode)
;   F.s=SaveFileRequester("Datei speichern","Bin2Post.pb","Alle Dateien (*.*)|*.*",0):If F And CreateFile(0,F):WriteData(0,R,B):EndIf:
EndIf
DataSection
S:
Data.s"SGFsbG8gV2VsdA==" ;Hallo Welt
E:
EndDataSection

_________________
Freakscorner.de - Der Bastelkeller | Neustes Video: Neje DK - 1 Watt Laser Engraver
Ubuntu Gnome 16.04.3 LTS x64, PureBasic 5.60 x64 (außerdem 4.41, 4.50, 4.61, 5.00, 5.10, 5.11, 5.21, 5.22, 5.30, 5.31, 5.40, 5.50)
"Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen – Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen."


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Bin2Post / Binäre Daten gleich im Forumspost mitliefern
BeitragVerfasst: 03.01.2017 17:08 
Offline

Registriert: 16.03.2006 11:20
NicTheQuick hat geschrieben:
Der Code geht nicht. Aber jetzt habe ich versucht den zu reparieren, und krieg es selbst nicht hin. :lol:
Ich hab zuerst den String in Ascii gewandelt, dann durch den Decoder gejagt und dann versucht es als Ascii, Unicode oder UTF-8 zu interpretieren. Überall kommt nur Mist raus.


Dein Code funktioniert, glaub' ich, schon - schau dir 'mal den Speicher an...
Allerdings zeigt er bei Unicode-Compilierung das Ergebnis "falsch" an, weil es ja im ASCII-Format vorliegt... :cry:

Code:
Procedure ShowMem(*memory,bytes=16)
   DataSection
      HexVal:
      Data.a '0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'
   EndDataSection
   Protected s.s,t.s
   Protected i,char
   For i=0 To bytes-1
      char=PeekA(*memory+i)
      s=s+Chr(PeekA(?HexVal+char>>4))+Chr(PeekA(?HexVal+char&15))
      If char<' ' : char='.' : EndIf
      t=t+Chr(char)
      If i And i&7=0 : s+" " : t+" " : EndIf
   Next i
   Debug "; "+s+"  "+t
EndProcedure

Debug PeekS(?S)
M=MemoryStringLength(?S)

R = AllocateMemory(2 * M + 2)

If R
   PokeS(R+m, PeekS(?S,#PB_Ascii), M,#PB_Ascii)
   ShowMem(R+m)
   B = Base64Decoder(R + M, M, R, M)
   ShowMem(R)
   
   Debug PeekS(R, #PB_Ascii)
EndIf
DataSection
   S:
   Data.s "SGFsbG8gTmljIQ=="
   E:
EndDataSection



Somit müsste man das Folgende wohl auch noch überarbeiten, damit es in Unicode funktioniert (ich hab' zumindest einmal eine zusätzliche Komprimierung eingebaut):
Code:
Macro D:Data.s:EndMacro:R=?S:T=R:Repeat:L=MemoryStringLength(R):PokeS(T,PeekS(R)):T+L:R+L+1:Until R>=?E:M=MemoryStringLength(?S):R=AllocateMemory(M):If R:B=Base64Decoder(?S,M,R,M):Z=5009
If B:X=AllocateMemory(Z):F.s=SaveFileRequester("Datei speichern","Binary to Source.pb","Alle Dateien (*.*)",0):If F And UseLZMAPacker() And UncompressMemory(R,B,X,Z,2)=Z:CreateFile(0,F):WriteData(0,X,Z):EndIf:EndIf:EndIf
DataSection
S:
D"XQAAAAEABoLDdGqXokOeZOsks38InxAn1McyNE59hkQktTB/FHoexklhMd21mY2lyEVcDigL0DArhzWHD7Vvs3hIXNRN9CUVBf5iLtBevV9/ZIaew/J5VwOEU0KpyBNV5dugCAr6icGmN43a9w8UjEVauXLAbPEftjZA+pEXBQz6fcSW6OsPIQGy+QGimog3//O74KvV0TsprSeYoB6jZdV6oT7afImpjK9hNn4ZZTBe6cBvsx5plVw6SP44V/3g"
D"4yK3iGjHXTJ93iLsqjOdqcQ9Y3PUqeWMjH9rcsi9Aq/uaaLAOIzf/9SL5BjdRtuTM7Ppjy+tyiY3UgdcLHrru9kIC8HSwPq3ASNH9YtRb83KFqN/V6+OLqCE9ZAHlPPADAap3qsBAWenQ+NouVpWq6XdriMITWBbgZkgTJJAivYR5Kj2r7qrtph4oMeQB0skyE7Qu7DKbA6ISx5wInw2QHVWTCqi3c36K2cJaQUfuN4wGsoKvXh0WZDs75bi+Y2X"
D"zhyXIjy9wrQQ9WQqDwguviNsGAaaf9Wyw+QRmmK2Kr/noVgUfF+nnBJVRPijt+OhhHiUvip28ab7ZKeTb6jDEaCnHPGRLfz5x2BgpbT/NW6ZD5UAd6jLcU8NEIz+z/kv50GDmbOr+JZIUGZ7JeyeHfL4I/oR0R02vT/O/FqdhixQ3Yo87760iEau8I6gpRGV//J0WJyPiauW6QllbYIqzm0KkNSvplSivhQcd2SlPn77clqv3B27ZYzyFskC3MF2"
D"FGIYuyACybudTmnNZSb0oK+pb+XgXq1d7aQNvU8C2a1MsLBx+gmbAc21OycItIi7ALdolY3hrB3Bm7Ao5Q1ACxlH3vXgvgQ2It3CPRkmNVs2ytG6aJnzLOjqNLr9Yh9JqwTKWp+nHnOqJxHFi7QftETkEybC442uMwQFR2hIBTT3fuf6gRUlGVN47+lS344Md4CPJTsQTsvq4Y+1F3ctQVXUGaQ5IU2cAP6o9K7mDemsQYe/yIB1TiJoSfL/cV88"
D"6eB54oB7PDhghZCXt/lrKqpvfefzCK8y2YfaMN4I73XigFbQYDCvf5+uTJWaG36flHzoKq8qzeBN8Cb3wHNgJtYaVgrI2XucFO3LWt8tDUy0SOElZJe1Muky7G8j99Qc7UsZl7wi2ywSNTr7pYfUwkptktsjIR7GbhH2Lo7UnUIf4vRFGu98CeqtTRd0i4YLZEF/9RItM/fSn3P99HENdugsewfRyX/O/LQT4QL1MkGeHemHLLGsoAGIZ+A4R3rR"
D"JHNx6O4YO7mj//KRO2CfT071bw1CXiSWeOr0bx5wka/lFhVpGz5GL7ICO2V0AGuZqJNWLBHbvtectf/LLfLY5rCsRmYVM3cu/7nAahMzsYZbo2uvZalPTN+zn6ioIqjdtqBrPHiq/FVQnO/Z/uCapSYeCAwzc9S8Aqf3P5LZQpRwUozFinRThKa6s7Cogxj+BusvK6cbxzPiFDfvV0Wuq9KYkdn4NxZhQu5BngxgROQmJ/5ZlCKCbS7ywc8OuMgD"
D"s+UXNTDn2z3Azfda7j+X1X9eGiVDiZD8AELCnYLl3mPerBIQHXgKIWptI2opwk/9n2QnUqi/1+MyLoR7UzGmJmEvCI6sEuuNbBE/4Al7kwdK+2Mi9L1vR55De0UmY/785kN5OY464tN21vErSyqLV/ibd9CwyiBIJcF6ZSlkPXcsNxsVGOuUQ7kGj1wyYxBlfwTm3DCyYgde+CGU+EWUv64lgcZSvRJm2z3kAMAZsaOyRmoNGiYWnNOxKMxPIoLM"
D"mwm++N/lC38AYpwf+4JB30lBlfOpvSI9mxvhL9mLqFVzU5W6ee1eYQCzmpnbJ7p0rNDgyxS8hQtQ43b+sugB+3sjBYvR3+FilMS7IWe+7C5cNJVhfrIKzH7hxReJB24qPtKOQIrqqhpuH2Z8JlJMPb5Aie0rzRypOwC+/G2IEtIfcXwzD/EtvEapCFqx2wBrR79A/jRWnk+PAf2aVeCmsSyEFXJ06+tt2iveFgzBUtLaM3SXjIY13n9+rpebmdc6"
D"XMxrbnLi44FX3wpoHvJ8msk6sNprf5j/PTxT/VoulvFfCugweMpcs1krgg8xphSNvSlhuv3dZsuInN4xbvv7tlS05L0RVcUWJ4xb1wO0mx+gseSUyPImB2WXoQ/g35uefAX2lV9MnKM4YInFNKcrpeVD57BuyumSX208CL7ZiKT4CpIWWYZukfjbqIQHm8cNQr+h8+L9drk20StQLWNiP3rLvNes+C+s+E3e35BT9l6wjLSugcg1mfRtWSA+DKTm"
D"Y2g2me0/hO552Lfvt/Noz1JkLHNUH2pDgbtavQ7vBVDLNaKEgsvpu230l5ouAMyTo3UzHpoU9qVmXJ0ZIQ5qSXSsylPTwGnL+r31VQ880IEpG5MslSNs+2VB9OhsY3YKOrKVw9Lo9v/lNY77prjF986udhTbhap4RKyJwyXcT8/aRp5LFIFewrqtmFHBuji5iqk8PYc0y0X144jEkWT9gab83IPOjXjofSDpltTu9LF/fij/+b70mQ=="
E:
EndDataSection


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Bin2Post / Binäre Daten gleich im Forumspost mitliefern
BeitragVerfasst: 04.01.2017 18:50 
Offline
Benutzeravatar

Registriert: 25.04.2006 17:29
Wohnort: Nähe Hamburg
Hallo Michael,

unter PB 5.51 (Unicode) habe ich Deinen code auch nicht erfolgreich ausführen können (eine 0 byte Datei wurde erstellt).

Komischerweise wird mein Code aus dem ersten Post (das Bin2Post Icon) auch unter PB 5.51 (Unicode) korrekt gespeichert, obwohl er seinerzeit mit einer Nicht-Unicode-PB-Version erstellt wurde.

Kann es sein, dass du auch am Encoder was verändert hast, was sich nun als Fehler in Deinem Base64 kodierten String auswirkt und gar nicht durch "Reparaturen" an der Decoderroutine behebbar ist?

Edit: Unter PB 4.51 im ASCII Modus kann ich Deinen code entpacken.
Edit 2: Eine Komprimierung wollte ich seinerzeit auch einbauen, aber leider wurde im Laufe der PureBasic-Evolution die Packerlib verändert, so dass der generierte Entpacker-Code nicht mit allen PB Versionen kompatibel wäre. Ich habe es dann doch dabei belassen, dass der Versender seine Dateien vorher selbst zippen sollte.

_________________
"Never run a changing system!"
PB 5.62, OS: Windows 7 Pro x64, CPU: I7 6500, RAM: 16 GB, GPU: Intel Graphics HD 520
Ich bin Baujahr 1968, also aktuell 50.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Bin2Post / Binäre Daten gleich im Forumspost mitliefern
BeitragVerfasst: 04.01.2017 22:28 
Offline
Ein Admin
Benutzeravatar

Registriert: 29.08.2004 20:20
Wohnort: Saarbrücken
Bei mir funktioniert auch dein erster Code nicht. Vielleicht mache ich auch erst mal noch ein PB-Update. Gab ja vor kurzem eins.

_________________
Freakscorner.de - Der Bastelkeller | Neustes Video: Neje DK - 1 Watt Laser Engraver
Ubuntu Gnome 16.04.3 LTS x64, PureBasic 5.60 x64 (außerdem 4.41, 4.50, 4.61, 5.00, 5.10, 5.11, 5.21, 5.22, 5.30, 5.31, 5.40, 5.50)
"Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen – Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen."


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Bin2Post / Binäre Daten gleich im Forumspost mitliefern
BeitragVerfasst: 05.01.2017 00:11 
Offline
Benutzeravatar

Registriert: 25.04.2006 17:29
Wohnort: Nähe Hamburg
Du hast Recht Nic,

ich habe mich von meinem Bildanzeiger in die Irre leiten lassen.
Die Icondatei ist nach dem entpacken 88 Bytes groß, was vermutlich zu wenig ist. Der Bildanzeiger (Totalcommander intern) hat mir das Icon angezeigt, allerdings als irgend ein Windows Standardsymbol. Normalerweise hätte da Kermit angezeigt werden müssen.

Sorry, mein Fehler. Evtl. behebe ich das Problem die Tage mal.

_________________
"Never run a changing system!"
PB 5.62, OS: Windows 7 Pro x64, CPU: I7 6500, RAM: 16 GB, GPU: Intel Graphics HD 520
Ich bin Baujahr 1968, also aktuell 50.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Bin2Post / Binäre Daten gleich im Forumspost mitliefern
BeitragVerfasst: 05.01.2017 23:35 
Offline
Benutzeravatar

Registriert: 25.04.2006 17:29
Wohnort: Nähe Hamburg
Bin2Post ist nun Unicode-fähig. Der Quellcode im ersten Post wurde angepasst und enthält nun die Version 1.01.
Daten, die mit dieser Version kodiert worden sind, werden sowohl unter PB mit ASCII Support, als auch unter PB 5.50+ korrekt dekodiert.

Gruß Kurzer

_________________
"Never run a changing system!"
PB 5.62, OS: Windows 7 Pro x64, CPU: I7 6500, RAM: 16 GB, GPU: Intel Graphics HD 520
Ich bin Baujahr 1968, also aktuell 50.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Bin2Post / Binäre Daten gleich im Forumspost mitliefern
BeitragVerfasst: 06.01.2017 12:11 
Offline
Ein Admin
Benutzeravatar

Registriert: 29.08.2004 20:20
Wohnort: Saarbrücken
Wunderbar. Ich hab es jetzt auch hinbekommen noch zu kürzen. Die Repeat-Schleife und die Macros brauchst du nämlich nicht:
Code:
PokeS(?S,PeekS(?S),-1,#PB_Ascii):L.i=MemoryStringLength(?S,#PB_Ascii):*D=AllocateMemory(L):If *D:OS.i=Base64Decoder(?S,L,*D,L)
F.s=SaveFileRequester("Datei speichern","Bin2Post.ico","Alle Dateien (*.*)|*.*",0):If F And CreateFile(0,F):WriteData(0,*D,OS)
CloseFile(0):EndIf:FreeMemory(*D):EndIf:End:DataSection:S:
Data.s "AAABAAEAMDAAAAEACACoDgAAFgAAACgAAAAwAAAAYAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAEAwQAB4N0AJSEdwAOzbYAfIKEAA"+
"ekigBFxa8AEkQyAGRqbAAEg/wAFHK0AASt/ABM6qQABGdKACyEcAAspJEADuXMACRmNAAskmwAM7KLACzClACExsQAZOPMACZlXAAswuwAZMK8"+
"AEnj2QBEwvwAJoTlACrVvgAsXjwALKrUABRWXAAplZQADFY8ACmFgAA1pIkAR9S+ACu0nwAkdGIAnKKZADrEqgAqtfoAzNLUALWFiwBR9t8AKH"+
"NPADe1ogA3xLQALJ68ACyLcQA1lH8ADCgQADV+agAElfcAFGbkAFL0wgAhVDgAVtTEAJaUigArpfAANKSsANfu9wAHk3kANryjACJ07wAsq/AA"+
"JHKEAB5VRgA2rZcAJ2VPAAe1lwBW4soAK31pADjTsADv8ewAKGtRAEymnAAcRTAABHJUADSFbwA84rwATNbkACyM6QArrJYAWOvYADSdjQBJ28"+
"QAUf7sADjMuQBIrugAK5uDADnMpgAkLiwAmJ2TABqaiAA3va0AI33oAETKnABk+twAPNTgABeY9wAhXEgAPNq/APz+3AArjHwAKpP0ADScgwAQ"+
"LkQANKzzAAweBACMbGAAGoXnAEjkyAA1ppYAN7PxAFT85AApnPoAHKKUAAS0/ACc4tQAJmxeACx1YQA0eEwANItzAAQ0IAA0o/kACJyCADnUwg"+
"C0wsQABN7MAGTcvAC0vrwAhP7wAOzm5AA08twAlN7UAJR+oAAEwvwAFGKEAGzO/AAEefUABQM1AAR8YABMTkQARLuqAByEaABsdnQAnMbcAMjm"+
"7AActpwAE+/bALzW5AAcbmAAWMr4ACReXACUe20AfNLMABp1YgB8/uAAlIKkABii8AA3wvEAfM7EABy2/AA0PjwAHHJUAARKLABJ2fEAROL8AD"+
"ri0gBY5vgARrz0ACR+nAA3u4cAZO7EAARu/ABY/sAA/PX0AEzO4AArnY0ACLysADnczAAMDkwAKsa0AESypAAUTkwAFH7kAASNcQAJnu8AWNvD"+
"AB5NNAAcHiQADFqEAASM9wDEhIQAFDUgANTe4ACVi30ABquOAEvr1wAsvKcAIVw8ACx+dgBU68QAROzEADy89wA8zvkANO7cACx98QAUcuQA5P"+
"L4ACz+5ABk/PAAdO7cACTO7AA0rqQAnNLsAJuOpABUxqwAK5SAACyWrAA0hX4AXPPYAJySpAA0ZlQACLaoAFz9+ABFzLYA/P78ADSW7ABU1vwA"+
"R835ACx6TADs9vQASLb0ABx6dAAEu/wAlP78AHzO7AAczrwANGxUADSMfAAEAiQAVK6kAAR+/AAcvrQAHHo8AAReRwCsopwAtIqMABQuHABO3t"+
"oACDokAHR+hAAU9twAw8YCnJycXl5eXl4CxsbGxl5eXl5eApxeOzvGb2+cnAKcnAICxsY7XigoKF7a4NosxseP+Pinl/+Xl5dHj38/x/8QEIKX"+
"P/gQAwMDAP34Dad9x3+8fwVHENR37Qt3d+3gxscuZkZMDqqAgICqYCdJ2IAdMDBZybkwQGBVAH00ACfVWCcyW2sPXPxlPDw8Qu3axsdmvzlJOd"+
"C2WYBZtoBEYB1ZuDAwMLgmYEAtAAD9cWNjYHp8a2sUzax1PDxCPHfgxkdMTEZQNVsagFm4WYCAgFkwuGDJYNhUL5HIAEnfVRbV7ElrayQpsTw8"+
"PG08Qnfaxn9QUEl8M0zQWYC4WR1ZWbgwMMkwMFQPLzBXkVVXvoPnpnxrW1tcVWo8Qm08PHfgAn8yEg4OEkkvgLgwgDBZuFlgyWDY2FRgVDDkWS"+
"XkFhZ16TIkVA/Ns3VCbTw8PHfaAg3hNQ58azNJtjC4MFlkMC/dy3lmeXl5aTAlBjo6r84jDjNbJFQ4rDxtPDw8PHfaOwNbkspGUHwHWSlgWdjL"+
"Rma/OXpJDkk1etwlOjq+vm1MEmskVEpjPDxCPDw8PAvaO7VgWVlZD9y/cskvtERERmZ5UFBJfA5JNWkvGr4WD0Lpa2skVFFVZTxtfh88PAvaO+"+
"JU2NgvyWBg2NgPZnouTDUODlAODiMODg7cVxaDH917a2skVFGzPEJCbTw8PAvgxgNgVCbYL9gPD1Z5RHxJUEkO8mkOfA4OfCMOIVXWKkkOayQP"+
"QAx+PDxtQjw8PAvaAk8wYNgm2A+0MyNODnwO6S5QMg7yDvIOSQ5pSYCiKi58W2skSsh1bUI8bTw8PHfaAo8XWSbYtDNpNXlOUHxMHklWUA4zDl"+
"BJI1AOUCFCzhFQJEUTXJp1QkJtbW08QgvaOwV68S8vVmnLy2bKfC7KRgYySQ5pSctQDlDySTJzohEyExNUSn5CQkJCbR9+bQvgnLzxLmYzISN6"+
"RgdG8hE5uVQ1DlAOUA4ODg5JDkncz0wzRVuuqDxCQkIfbTxCPHfaO38jeidG8np5FwcuScp5QFAOSQ5QIw5p8g7yDg56Ma0yW2trcipCbUJCQk"+
"I8bXfaO+IPW94jenkXyr81ejlADlBJNUlJaVDyaQ4zaTMySZsRRdwyDiHrQkI8Qm1CQnfgXrVWI8tJF0ZGB04zRiTcUA5JSUlQ8g4O8mlpaTLc"+
"fEm/UBNFtHwSom08Qm08QnfaO9C0DssnF0ZGB0ZFM1ZJUEkOSVAjMg7yI/Lc8iMzM1ZQB3pFRdxrVGCiPDxCQnfg4AHyPVB6eRcXxDMPaw5JfF"+
"BJDlAO8mlpDvIOM2ncIdy0M0ZJJBO0Wy9cZG08PHfg+S2efSOZF5tG+y8lDnx8DklQyw4OUA7yy1Bp3PLcM1a0MzOePRIv3ElZJVd1Qu3aiWXu"+
"hb7cujlE+wbcSQ4OSQ4Oyw4ONUkODmkz3N5WclRgyS8yeSNWKWsyUd9tdXfgoLA3Wp/fRZ5OeTAOUFB8Dg4OUA4ODvK0D0VyD3JUQGApWSkhMy"+
"dDW1xJZ8zOPHfaiY1h0tLrVb4wWWB8DmlpNWlQafIzDyRFQEBFMMnJQMlZWVkkazMXIXJnQHFSZe3aoPUcHBxBQVOoRQ568kW0UA7yM2tra95p"+
"M1ZAV83ILchxWXFFDlvyB94a5K5XdXfgifVhHBwc0dFkSUzxMiYwVHJQRl3z846Ot46O8/NsIJ4GyFiRMjMkv0RAZ+QUc3faoPUcHBxTHEIT6U"+
"Yi5CUlckQHustWBlwpMEpcJVxZL3JbDid5ZlAzRk5FcSVMzwvgoPUcHBxT0c9JRr9QLVchZt4ztFYz3CRFRS9ALzBZXDAwSoCARaZGRvtbLd/3"+
"qQvaiQkcU9EccFcRRr9NYHp6VmkO8hJrDw8kQC9AQFzkMFxZWUiAyCmbZjTcdORbzwvgoI0cYVNhda7hvwdFaQ7LMzJFM1YzW2skD0BcWQZZKS"+
"VXV1dIVVUOScQzWMuuKnfaifVhHBxhc65mbrm2MHJFJmBAW2szEiRrRUVA5CUw5CXkV0hIvqpFa3oO44sMPHfgoI1hcBxB6BPKxONjVRpXBpFr"+
"a1tra2skRUUpXCklXDAlJUiAV1dxRUmS48E4QnfaifVhYRxh62I5J+MvL0UpMC8PJNxraVvcE1TkWUDkMClcV1dISEjf5EUudAqxPHfgifVhHB"+
"xwQTjKM1dpaXLkkSVgkTNba2trJC9A5EAlWeQlJVdXvswauKu0LXUqPHfaoPW7HBwcQauSLxrcWw4PkeSRRWvcJFZrJEBAJUAGSiVXV1Fxzahq"+
"PDw8QjxCQu3giQlhHBwcHFOfV0hgRUW0MGAlKdhrM9xrD0BA5FlXVyUduJ1412U8Qn5CfkJtQnfgifVhHBwcHEFqhThXMDC4JtxpMzNWa2szJC"+
"8vKSUp5JZFS7Llc2VCQm1tQkJCQnfgoPVhHBwcU1NhHOhjHdsV9A0B3A5bM1bcJEBAKUBUvE3l5YHllTZCbUJCQm1CQu3goI0cHBxTHFMcHGFq"+
"14ZL5eWjfwUP3NwzVkVFMyR/TeXl5QDlaMJCQkJCQkJtQu3aiY0cHBwcU1NTU1PRu0vlPuXl5YgFX1YP3FZWtF+05eXlBADl5cJtQkJCbUJCQu"+
"3aoPVhHBwcHFNTU1NTHGjlAOXl5eXlyX8PViRyX1/l5eX+AADlaMJCQm1CbUJtQnfgiY0cHBwcU1NTU+ZTjWjlkwDA5eXl5RkFIQ8PAZXl5eoA"+
"AADl771tHzxCbW1CQu3goI1wHBxTHFNTU1NTsD7lhAAApSvl5eV2WzMj7LJL5QAI5eXlNjxCQkJtH0JCQu3aifVhHBwcU1NTU+ZTu3Dl5ZAAXQ"+
"DF5eX2gCVKHcWy5eXl5dO9oR9CQkJCKm1tQnfgifXRHBxTHBxTU1NTanBT0+Xl5eXlPnC9zxoapDZalJjZ672hbTxCQkIfbUJCQu3giY31CQnC"+
"wsI2wjY2NjbCCb2sjJoLwr0LCwsLd3cLCwsLC3ft7e3t7e2K7Xft7YrawywsLCwsLCwsLCwsLCws+iwsLCwsLPosLCws+vr6+iz6+vr6LPr6+v"+
"r6+vr6+vrDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
E:
EndDataSection

_________________
Freakscorner.de - Der Bastelkeller | Neustes Video: Neje DK - 1 Watt Laser Engraver
Ubuntu Gnome 16.04.3 LTS x64, PureBasic 5.60 x64 (außerdem 4.41, 4.50, 4.61, 5.00, 5.10, 5.11, 5.21, 5.22, 5.30, 5.31, 5.40, 5.50)
"Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen – Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen."


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Bin2Post / Binäre Daten gleich im Forumspost mitliefern
BeitragVerfasst: 06.01.2017 18:26 
Offline
Benutzeravatar

Registriert: 25.04.2006 17:29
Wohnort: Nähe Hamburg
Doch, die Macros sind nötig, wenn der Code (wie ursprünglich vorgesehen) maximal abwärtskompatibel sein soll.
Mit PB 4.31 bekommst Du Deine Version leider nicht ausgeführt, weil es da noch keine Zeilenumbrüche am "+" gab.

_________________
"Never run a changing system!"
PB 5.62, OS: Windows 7 Pro x64, CPU: I7 6500, RAM: 16 GB, GPU: Intel Graphics HD 520
Ich bin Baujahr 1968, also aktuell 50.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Bin2Post / Binäre Daten gleich im Forumspost mitliefern
BeitragVerfasst: 06.01.2017 21:07 
Offline
Benutzeravatar

Registriert: 25.04.2006 17:29
Wohnort: Nähe Hamburg
Ich habe die Dekodier-Routine etwas kürzen können. Die Schleife ist nun weg, auch gibt es keine DataSection mehr.
Das ganze sieht nun so aus:

Code:
;*******************************************************************************************************
;* This PureBasic source was generated by Bin2Post, a file converter for sharing binary files in text
;* based forums. See here for more information http://www.purebasic.fr/german/viewtopic.php?f=11&t=26298
;* Copy & paste this code into your PureBasic IDE and run it via F5 (PB Version 4.31+ is needed).
;* You will be asked for a directory where the original binary file will be created.
;* Filename: Wikipedia.png - Binary filesize: 2679 - Base64 encoded size: 3572
;*******************************************************************************************************
Macro D:T$+:EndMacro:L=3572:F$=SaveFileRequester("Save file","Wikipedia.png","All (*.*)|*.*",0):If F$<>""
D"iVBORw0KGgoAAAANSUhEUgAAAIQAAAAsCAIAAAAraYdzAAAACXBIWXMAAA7EAAAOxAGVKw4bAAAKKUlEQVR42u1ZPWgiXReet02TsU1gJ5ZuQJ"
D"l0YiJoZWCmiI2B1UYLIauNgkJkUqwYSECbTMJaaDMGkmYsFJJKwRjsHCZLNuXsLJh2bpqt3+LA5TI//iR5Yb8v3mq8M/fcc85zznPOvf7z588f"
D"ajn+jvHPEowlGMuxBON/FIxIJEL+3NnZKZVKqqoWi0U8+eXLl0QiIUnS5eUlOWNdfnt7+zH9q+u63+9/fn5+ExgIoWKxKEkSRVGnp6eZTAbmB4"
D"PB/v4+QiiRSNTrdYzcYDAgP0MIpdPpTqeTSCROTk5omv6YYKTTaUmS6vU6xOjraQoh9PnzZ4TQ9fU1z/N4vlKpVCoVn883Go1gxuPxxOPxUqlE"
D"Lq9UKq1W6+np6cPSDkJobW2Noiie56+vr99aMwqFgiiKZBKQIN3e3gaDQciVnz9/msLf4/EcHh7OExH/r0MUxR8/fnQ6HYTQ8/PzTHqYAYaqqn"
D"6/n6Kop6cnhmFM2QeARyIRqCjkQieEPtTweDxXV1cXFxdzMtXsbsrv96uqWiqVSHfruu7xeCiKqtfrxWLR6vRYLMYwzOnpKTy/vLzgV6urq5Cz"
D"lUrl7u4Oz3u93tPTU9sewfQl7MswjHUe5HAcFwwGsSbk7uQ4OTnx+XwURXU6nfPzc+sHOzs7Xq+XpOgp5pjGYDBIp9NPT0+dTicWi5Gs/nowJE"
D"lKp9MMw5jYPxaLdTodiqJMOGGoyGQCIaZeADSGviuTyQBymBtLpVI8HscSVFXd3d2FxoHsCHDughq6ru/v76uqSm4E7qAoCnMFfMZxHNYcIbS7"
D"u6uqKuZ3Xddbrdb5+bnX6wXsTT6xmmMq3Z8+fQL5a2trCCETu7wGDKcyjv0IlcNUaXRdN8XLysoKRVHW7aATI4X4/f6DgwNrUlu/tJ3HWUvStH"
D"X3Tqdzd3eHIwA3JqbYArAZhhmNRmT2O5lDlm7sfWD1KcgtcOgjK4S1VbAt71dXVyaXzQlGoVB4eXkhBS4KBt7LOmPaXZIkEnJbMLD5ZO7OBEMU"
D"xcvLS8xLczLVXGDYlnFRFM/Pz3VdN81LknRxcWHddR4wYO3NzY1t2V8UDFIr0+7pdNqKtxMYwAE0TZNnt+lgWDtJYKrRaARV6k3XIVDGyeiA/S"
D"4vLweDAWmAU0c7E4yHh4dCoTCFWOcEA0InGAySx36cKxRFvby8pNNp66nYCQy8nHTlFDAAPJ/Pt7q6iicfHh4QQqb0eiUYULJwdEiSdHx8jFsF"
D"mqahoYKO1vb0Px0Mn8+nqqptBZoTDOgdoQ7run5zc0PGIOwOXv79+7ckSVZNZoIxk/dw2iGEvn79ampqbPug14CByzjYTNZYj8ej6zpUp1gs5v"
D"V6rcbMkxmrq6t+v5+m6dFoZJsc08HgeR46To7j4vG4iehMu0ciEet12buAAaXU1OxgztB1fQpTLXBrC3UsGAweHh5CB42LR6FQYBjm9vbW1NEu"
D"WjNAlFOhm79mzNxdVVWfz4cQIjFzAgO3KqTyTuaIonh8fGzLDbbXGa8EA5dxn89n6tAhaRiGCQaDTjvN2U3BT1uN3xEMHF4HBwc4Tp3AACo2NZ"
D"NO5ng8Hp7nbQsDONDUCLz+/wwo47hCmJJmOuPPCYaJD/87MGAj0i9OYIB8E73YmgOle4omwFS2JLYwGEAjTkfuKX002AnXGKSLbU/guCk4OTnB"
D"H+MvTUnjNG+7Owl5sVjUdR1XDl3XI5GIrus8z9frdQi1TqfTarXu7u7q9br13tpkzmAwKBaLqqo6XUPh2wGfz/f9+3dr5VgMDISQ3+83nUXx7U"
D"g8HrcF3HSZwzAMeM32bsr015bT3dTV1RVN007zU3YnB8dxcCR2uptiGGZ7e5vneVKmrTmFQuHh4WHK/2nWD6y3q8u/Xf+isQRjCcZyLMH46GCM"
D"x2OKora2tv5O+w3DcLlcf4l8RzCq1Sr5MxQKkQ6VZXljY2Omi6vVqtvtlmWZZdl8Pj/ly5kCDcNoNpvkDE3TqVTq1W6SZTmbzUqSFA6HcdwcHR"
D"2FQqHpqs45er1eNptNJpP5fB6Unyl2WmYEAoF8Ph+NRjVNq1arLperXC6TXo5Go9OlBwKB+/t7wzAoipoeIPMINAxjfX0dFDYMI5vNtlqtt/iL"
D"47hcLofBwCG4EBjr6+udTqdWq1kDDkvTNE0QhJnaTgPDpGs8Hp8Z4KbQqNVq3W73HbN+ZWUFKzwej9/Ifu8CBqihaRpN06aAW1TaAmBAXk8mk1"
D"6v1+/39/b2wBewJUIol8thbSCZ+v1+MplMJpPNZhNu5RRFabVaJOfk8/l5BJrAaDQawFGNRqPf7+dyuVqtRlHU2dmZy+WSZVnTNLyKZVlFUXCQ"
D"yrIMz2AgTdP9fh9mSPeBEIQQy7LRaLTX68myHI1GFUUBuyCP4TNN08rlMmg7Ho/b7TZN0/C9Sex4PO73+1jsK8EAX3S73XA4HAgEyuVyOBzG9C"
D"LLcq/XE0XRNjMAyOFwqChKNBrlOE6SJJfLJQjCxsZGKpWaRyAoAFTZbDYfHx8xd52dnaVSqUwm43a78/m8IAgAJBYbj8fdbjesxW9JMMBT2Gvg"
D"etid4zhwfSAQCIfDuVxO0zSe54fDoWEYR0dH3W630WgoiiKKomEYiUQCrBYEgabpfD4vy3Kz2ex2u+TbQCDQarXcbvdbwcCvNjc3k8kkBDJFUb"
D"iomMAgnzVNA/PgmWXZVCo1j0DbzCAnTbRQrVYRQiBhPB7zPD+ZTDRN6/V6sJbjOJZlyV2whEwmE41GwXZZlmVZbrVapEOwo4Ggms1mv98HVBBC"
D"VmjB/Eaj0W63Q6EQRVGKouRyOZJpFwBD07Tt7e3JZEK+WllZmUwmtsXZCYxerycIwv39ve1eUwSaagao5Ha7bcEYj8fZbJbcheO4vb09hFAymQ"
D"T5HMeFQiFBEB4fHyFCsQTSdqw8OYm/hAeaptvtdrfbJXWwgkHGx7sVcPwqEAgALVp7aicwgFiGwyEEBayaR6AJDE3TgPSsYBiGwXHc2dnZ1tYW"
D"WV1qtRr0mqSBUANANyxBEAScMVAVTAjF43FY++vXr3K5jA3EjERmD/lWEIThcAh2mQycds6o1WqhUAgSGSEE5A5WQT9eLpcVRYFumqZpsjeF1r"
D"Pf73/79i0cDguCAM8gQRAEWZaBjkKhkKIo8wis1WrVahWHFVBHs9msVqtnZ2dQGKCGt9vtXq8Ha6FlgCWbm5vdbheSAMrY3t6eKIqbm5ssy4ZC"
D"IWgryuUyy7LApXBOguLMcdzGxgbUcE3TRFEE2snlcv1+X5ZlUANKC5QiTdPgLTY/EAi4XC5gKpyj73YCNwxDURS3203WopkDOhCWZa2M9DqB8w"
D"xBEJwowqk7pygKcwMQndvtpmkac/14PEYIhcPh8XjsdrvBnF6vB0Fsy7d4yce9mzJ59l3OJcuLwlf6kWXZhdLCGs6JRAJ63HdP2eWt7cJgQLf9"
D"X/DnEozl/xnLsQRjCcZyLDb+BZrMT4zJkJKkAAAAAElFTkSuQmCC"
I$=T$:PokeS(@I$,PeekS(@T$),-1,#PB_Ascii):OL=Base64Decoder(@I$,L,@T$,L):If CreateFile(0,F$):WriteData(0,@T$,OL)
CloseFile(0):EndIf:EndIf

_________________
"Never run a changing system!"
PB 5.62, OS: Windows 7 Pro x64, CPU: I7 6500, RAM: 16 GB, GPU: Intel Graphics HD 520
Ich bin Baujahr 1968, also aktuell 50.


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 50 Beiträge ]  Gehe zu Seite Vorherige  1, 2, 3, 4, 5

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 6 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye