Codeverschlüsselungstechnik (Seite 8) (Allgemeines zu Perl)

[E|B]

2004-02-10 20:50

User since
2003-08-08
2561 Artikel
HausmeisterIn

*lol*
Ich habe vergessen es nochmal ein zweites Mal auszuführen!
Einfach genial!
Ich liebe Acme::Bleach!!! :D

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

ahnungsloser

2004-02-10 20:53

User since
2003-09-03
80 Artikel
BenutzerIn
[default_avatar]

hi,

so ein scheiss, jetz gibt der auch noch seinen senf dazu. Also ich als Ahnungsloser Anfänger, bin auf Opensource, bzw. Dokumentationen angewiesen, aber wer ernsthaft daran interessiert ist, etwas zu entwickeln und es für seine Arbeit auszugeben, der wird nichts stehlen, bzw. benutzen, wofür er sich rechtfertigen müsste. Alles in allem, werden, die Codeklauer früher oder später entdeckt, als dummies hingestellt, wenn sie den code nicht eindeutig wieder geben können. Um Code zu schützen, würde mir persöhnlich nichts aber auch gar nix einfallen, denn wo ein wille ist ist auch ein weg, warum werden MegaSoftwarebundles Kopiert, gefälscht, Crax, Serialz in Umlauf gebracht? Weil auch die Softwareriesen, nicht gegen jeden "Dieb" vorgehen können. Ich denke, dass es nur dann sinn macht, wenn man den hochoffiziellen Weg eingeht, selber nur Original Software einsetzt, sich bei den Behörden registriert, und alles patentiert und rechtlich schützt, nur dann, kann man mit Anwälten vorgehen. Die Frage, wer hat die Zeit, die Muse und auch noch den geist sich mit Nobudys, abzugeben.
Ansonsten bleiben nur: Kompilierung, nicht in Umlauf bringen und den Code auf Papier, in ein Safe zu schliessen und nie jemandem vorführen. Selbst ich als Anfänger, wurde shcon beraubt, Arbeitskollegen gaben meine mini-progs, die nur aus wenig Code und wenig geist bestanden, für ihre Arbeit aus, früher oder später, werden diese Leute sich für evtl. Programmfehler entschuldigen müssen.

BrownWolf

2004-02-10 21:04

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

Hi, man könnte es auch so machen:

Quote
1. #!/usr/bin/perl -w
2.
3. sub PrintMP {
4. $= =(caller())[1+1];
5. $===(5+13)?print q lÁíòûðëåêö¢°²²¶¢àû¢ÚÚÚl^qq P\x82Px(7*3):die;
6. }
7.
8. print<<"EOT";
9. <html>
10. <head>
11. </head>
12. <body bgcolor="#355523">
13. Dies ist eine Testpage :)<br><br>
14. </body>
15. </html>
16. EOT
17.
18. &PrintMP();

BrownWolf

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;

[E|B]

2004-02-10 22:17

User since
2003-08-08
2561 Artikel
HausmeisterIn

Jou, stimmt. Auf die $= wäre ich jetzt nicht gekommen. Cooler Tipp für die Zukunft, danke! ;)

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

BrownWolf

2004-02-11 00:16

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

lol ... ich hab gar nicht dran gedacht das wenn man unten die Subroutine einfach wegnimmt das Programm doch ausgeführt wird. Muss man sich was anderes einfallen lassen. Nur mit dem caller() ist praktisch.

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;

pq

2004-02-13 00:35

User since
2003-08-04
12209 Artikel
Admin1

[quote=sri,10.02.2004, 10:20]Bei mir macht es aus einem 81Byte hello world 308Byte whitespaces.[/quote]
was, du brauchst für ein hello world 81 byte?
SCNR =)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Crian

2004-02-13 12:33

User since
2003-08-04
5873 Artikel
ModeratorIn

Naja, das use Acme::bleach; muss ja beim Hello World dabei sein. Hab jetzt die Byte nicht gezählt ;)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Strat

2004-02-13 12:56

User since
2003-08-04
5246 Artikel
ModeratorIn

[quote=sri,09.02.2004, 21:31]Mir ging es schon die ganze Zeit darum das ihr es nicht zulassen wollt das andere auf eure Software aufbauen.[/quote]
Das Einschraenken von Aenderungen behalte ich mir nur bei fertigen und sehr komplexen Programmen vor, die wohl 90% der Perl-Programmierer ueberfordern wuerden und somit ziemliche Stabilitaetsprobleme geben koennte (siehe das Beispiel mit dem Chatkern). Und selbst da gibt es ueber die Kommunikation mit mir Moeglichkeiten, Aenderungen vorzunehmen. Und wenn da jemand trotzdem Aenderungen vornimmt und das Teil stabil laeuft, werde ich da keine Schritte dagegen unternehmen.

Ein Perl-Modul ist fuer mich kein Programm, sondern nur ein Modul, und das wuerde ich auf CPAN auch unter der Standard-Doppellizenz veroeffentlichen (auch wenn es komplexer ist). Da stuende aber auch nicht drinnen, dass mein Name auf der Webseite oder im Programm genannt werden muss, sondern nur im Quelltext.

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

x-man

2004-02-16 15:00

User since
2003-09-11
67 Artikel
BenutzerIn
[default_avatar]

Ich habe noch nicht alle Posts gelesen (ist mir zu lang), möchte jedoch eine Möglichkeit vorstellen: Die Sobig-Methode - 2 Scripts, die sich gegenseitig kontrollieren. Allerdings, nur gegen Perl-Anfänger.

Im Hauptscript, baue ich eine Sub ein, die automatisch ein zweites Script erstellt. Und bei jedem Aufruf des Hauptscripts, überprüfe ich, ob das 2. Script existiert (wenn nicht, erstellen). Wenn ja, übergebe ich alle Parameter an dieses. Das 2. Scripts mach ne Überprüfung beim Hauptscript, ob Copyright noch da ist. Ist das der Fall, wird weitergeleitet, ansonsten alles löschen.

eisbeer

2004-02-16 15:44

User since
2003-08-29
347 Artikel
BenutzerIn

intressante methode ...

Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...