Hab' noch ein paar "Bits" herausgepresst...
Code: Alles auswählen
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