Verschlüsselung / Entschlüsselung Perl Modul – SELFHTML-Forum Forum als Ergänzung zum SELFHTML-Wiki und zur Dokumentation SELFHTML https://forum.selfhtml.org/self Verschlüsselung / Entschlüsselung Perl Modul Fri, 29 May 09 13:20:32 Z https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367538#m1367538 https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367538#m1367538 <p>Hallo zusammen,</p> <p>ich suche ein Perlmodul (oder Codeschnipsel) mit dem ich einen String verschlüsseln und auch wieder entschlüsseln kann. Der Key sollte relativ lang sein können (mindestens 10 Stellen) und der Algorithmus nicht ganz trivial.</p> <p>Danke für Tipps.</p> <p>bye,<br> H1N1</p> Verschlüsselung / Entschlüsselung Perl Modul Fri, 29 May 09 13:29:01 Z https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367541#m1367541 https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367541#m1367541 <p>Weil Du's bist und heute Freitag ist ;-)</p> <p>Schlüssel frei wählbar: z.B. qw(1 3 4 5 6 3 2 1 9)</p> <p>Das Base64-Geraffel hab ich nur eingebaut, damit am Ende ASCII rauskommt, kannste auch weglassen.</p> <p>Hotte</p> <pre><code class="block language-perl"> <span class="token comment">########################################################################### </span> <span class="token comment"># Text synchron verschlüsseln </span> <span class="token keyword">sub</span> <span class="token function">kryptn</span><span class="token punctuation">{</span> <span class="token keyword">my</span> <span class="token punctuation">(</span><span class="token variable">$txt</span><span class="token punctuation">,</span> <span class="token variable">$key</span><span class="token punctuation">)</span> <span class="token operator">=</span> <span class="token variable">@_</span><span class="token punctuation">;</span> <span class="token comment"># $key ist eine Referenz auf @key </span> <span class="token keyword">my</span> <span class="token variable">$len</span> <span class="token operator">=</span> scalar <span class="token variable">@$key</span><span class="token punctuation">;</span> <span class="token keyword">my</span> <span class="token variable">$i</span> <span class="token operator">=</span> <span class="token number">0</span><span class="token punctuation">;</span> <span class="token keyword">my</span> <span class="token variable">$crypt</span> <span class="token operator">=</span> join <span class="token string">""</span><span class="token punctuation">,</span> map <span class="token punctuation">{</span> <span class="token variable">$i</span> <span class="token operator">=</span> <span class="token punctuation">(</span><span class="token variable">$i</span> <span class="token operator">+</span> <span class="token number">1</span><span class="token punctuation">)</span> <span class="token operator">%</span> <span class="token variable">$len</span><span class="token punctuation">;</span> chr<span class="token punctuation">(</span><span class="token punctuation">(</span>ord<span class="token punctuation">(</span><span class="token variable">$_</span><span class="token punctuation">)</span> <span class="token operator">+</span> <span class="token variable">$$key</span><span class="token punctuation">[</span><span class="token variable">$i</span><span class="token punctuation">]</span><span class="token punctuation">)</span> <span class="token operator">%</span> <span class="token number">256</span><span class="token punctuation">)</span> <span class="token punctuation">}</span> split <span class="token regex">//</span><span class="token punctuation">,</span> <span class="token variable">$txt</span><span class="token punctuation">;</span> <span class="token keyword">return</span><span class="token punctuation">(</span>encode_base64<span class="token punctuation">(</span><span class="token variable">$crypt</span><span class="token punctuation">,</span> <span class="token string">""</span><span class="token punctuation">)</span><span class="token punctuation">)</span><span class="token punctuation">;</span> <span class="token punctuation">}</span> <span class="token comment">########################################################################### </span> <span class="token comment"># Verschlüsselung aufheben </span> <span class="token keyword">sub</span> <span class="token function">entkryptn</span><span class="token punctuation">{</span> <span class="token keyword">my</span> <span class="token punctuation">(</span><span class="token variable">$crypt</span><span class="token punctuation">,</span> <span class="token variable">$key</span><span class="token punctuation">)</span> <span class="token operator">=</span> <span class="token variable">@_</span><span class="token punctuation">;</span> <span class="token comment"># $key ist eine Referenz auf @key </span> <span class="token keyword">my</span> <span class="token variable">$len</span> <span class="token operator">=</span> scalar <span class="token variable">@$key</span><span class="token punctuation">;</span> <span class="token keyword">my</span> <span class="token variable">$i</span> <span class="token operator">=</span> <span class="token number">0</span><span class="token punctuation">;</span> <span class="token variable">$crypt</span> <span class="token operator">=</span> decode_base64<span class="token punctuation">(</span><span class="token variable">$crypt</span><span class="token punctuation">)</span><span class="token punctuation">;</span> <span class="token keyword">my</span> <span class="token variable">$orig</span> <span class="token operator">=</span> join <span class="token string">""</span><span class="token punctuation">,</span> map <span class="token punctuation">{</span> <span class="token variable">$i</span> <span class="token operator">=</span> <span class="token punctuation">(</span><span class="token variable">$i</span> <span class="token operator">+</span> <span class="token number">1</span><span class="token punctuation">)</span> <span class="token operator">%</span> <span class="token variable">$len</span><span class="token punctuation">;</span> chr<span class="token punctuation">(</span><span class="token punctuation">(</span>ord<span class="token punctuation">(</span><span class="token variable">$_</span><span class="token punctuation">)</span> <span class="token operator">-</span> <span class="token variable">$$key</span><span class="token punctuation">[</span><span class="token variable">$i</span><span class="token punctuation">]</span> <span class="token operator">+</span> <span class="token number">256</span><span class="token punctuation">)</span> <span class="token operator">%</span> <span class="token number">256</span><span class="token punctuation">)</span> <span class="token punctuation">}</span> split <span class="token regex">//</span><span class="token punctuation">,</span> <span class="token variable">$crypt</span><span class="token punctuation">;</span> <span class="token keyword">return</span><span class="token punctuation">(</span><span class="token variable">$orig</span><span class="token punctuation">)</span><span class="token punctuation">;</span> <span class="token punctuation">}</span> <span class="token comment">########################################################################### </span> </code></pre> Verschlüsselung / Entschlüsselung Perl Modul Fri, 29 May 09 14:13:15 Z https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367540#m1367540 https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367540#m1367540 <p>Hallo,</p> <blockquote> <p>ich suche ein Perlmodul (oder Codeschnipsel) mit dem ich einen String verschlüsseln und auch wieder entschlüsseln kann. Der Key sollte relativ lang sein können (mindestens 10 Stellen) und der Algorithmus nicht ganz trivial.</p> </blockquote> <p>Weniger als eine Minute Suchen: <a href="http://search.cpan.org/~bdfoy/Crypt-Rijndael/Rijndael.pm" rel="nofollow noopener noreferrer">http://search.cpan.org/~bdfoy/Crypt-Rijndael/Rijndael.pm</a>, ein AES-Modul für Perl.</p> <p>Freundliche Grüße</p> <p>Vinzenz</p> Verschlüsselung / Entschlüsselung Perl Modul Sat, 30 May 09 21:10:00 Z https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367539#m1367539 https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367539#m1367539 <p>Moin Moin!</p> <p>Ich rieche hier "Passwort speichern und prüfen".</p> <p>Dazu braucht es keine Verschlüsselung, im Gegenteil: Verschlüsselung ist hier GEFÄHRLICH. Denn der Entschlüsselungsalgorithmus und der Schlüssel müssen genau an der Stelle liegen, die beim Einbruch extrem gefährdet ist: Auf dem Server. Kommt jemand so weit, dass er Deine Password-Tabelle auslesen kann, kommt er in aller Regel auch an den Schlüssel und die Entschlüsselungsfunktion. Da kannst Du also genau so gut gleich Klartext speichern.</p> <p>Deshalb benutzt man ein anderes Verfahren: Man berechnet einen Hashfunktion (eine Prüfsumme) über das Passwort und speichert nur diese Prüfsumme. Statt das eingegebene Passwort mit dem Original zu vergleichen, berechnet man aus der Eingabe wieder die selbe Hashfunktion und prüft, ob deren Ergebnis mit dem in der Datenbank übereinstimmt.</p> <p>Problem: Gleiche Passworte erzeugen gleiche Hash-Werte. Daher benutzt man einen "Salt"-Wert, der zusätzlich mit in die Hash-Funktion gegeben wird. Das kann der Login-Name sein, besser ist aber ein zufälliger (String-)Wert, den man natürlich auch in der DB speichern muß.</p> <p>Als Hash-Funktion nahm man crypt (katastrophal schlecht, weil es nur 8 Zeichen verarbeitet und alles andere ignoriert) oder MD5 (besser als nichts, aber quasi geknackt), Stand der Technik dürften die SHA-Funktionen und härtere Geschütze sein.</p> <p>Das <a href="http://search.cpan.org/perldoc?Digest" rel="nofollow noopener noreferrer">Digest-Package</a> bringt einige Funktionen mit, über deren jeweilige Qualität sollte u.a. Wikipedia Auskunft erteilen können.</p> <p>Alexander</p> <div class="signature">-- <br> Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". </div> Verschlüsselung / Entschlüsselung Perl Modul Fri, 29 May 09 13:58:05 Z https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367542#m1367542 https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367542#m1367542 <p>Danke!!</p> <p>Es funktioniert (base64 habe ich rausgenommen, da ich das Modul Mime::base64 derzeit nicht installiert habe).</p> <pre><code class="block language-perl"><span class="token comment">#!/usr/bin/perl </span> <span class="token comment">########################################################################### </span> <span class="token comment"># Text synchron verschlüsseln </span> <span class="token keyword">sub</span> <span class="token function">kryptn</span><span class="token punctuation">{</span> <span class="token keyword">my</span> <span class="token punctuation">(</span><span class="token variable">$txt</span><span class="token punctuation">,</span> <span class="token variable">$key</span><span class="token punctuation">)</span> <span class="token operator">=</span> <span class="token variable">@_</span><span class="token punctuation">;</span> <span class="token comment"># $key ist eine Referenz auf @key </span> <span class="token keyword">my</span> <span class="token variable">$len</span> <span class="token operator">=</span> scalar <span class="token variable">@$key</span><span class="token punctuation">;</span> <span class="token keyword">my</span> <span class="token variable">$i</span> <span class="token operator">=</span> <span class="token number">0</span><span class="token punctuation">;</span> <span class="token keyword">my</span> <span class="token variable">$crypt</span> <span class="token operator">=</span> join <span class="token string">""</span><span class="token punctuation">,</span> map <span class="token punctuation">{</span> <span class="token variable">$i</span> <span class="token operator">=</span> <span class="token punctuation">(</span><span class="token variable">$i</span> <span class="token operator">+</span> <span class="token number">1</span><span class="token punctuation">)</span> <span class="token operator">%</span> <span class="token variable">$len</span><span class="token punctuation">;</span> chr<span class="token punctuation">(</span><span class="token punctuation">(</span>ord<span class="token punctuation">(</span><span class="token variable">$_</span><span class="token punctuation">)</span> <span class="token operator">+</span> <span class="token variable">$$key</span><span class="token punctuation">[</span><span class="token variable">$i</span><span class="token punctuation">]</span><span class="token punctuation">)</span> <span class="token operator">%</span> <span class="token number">256</span><span class="token punctuation">)</span> <span class="token punctuation">}</span> split <span class="token regex">//</span><span class="token punctuation">,</span> <span class="token variable">$txt</span><span class="token punctuation">;</span> <span class="token keyword">return</span><span class="token punctuation">(</span><span class="token variable">$crypt</span><span class="token punctuation">)</span><span class="token punctuation">;</span> <span class="token punctuation">}</span> <span class="token comment">########################################################################### </span> <span class="token comment"># Verschlüsselung aufheben </span> <span class="token keyword">sub</span> <span class="token function">entkryptn</span><span class="token punctuation">{</span> <span class="token keyword">my</span> <span class="token punctuation">(</span><span class="token variable">$crypt</span><span class="token punctuation">,</span> <span class="token variable">$key</span><span class="token punctuation">)</span> <span class="token operator">=</span> <span class="token variable">@_</span><span class="token punctuation">;</span> <span class="token comment"># $key ist eine Referenz auf @key </span> <span class="token keyword">my</span> <span class="token variable">$len</span> <span class="token operator">=</span> scalar <span class="token variable">@$key</span><span class="token punctuation">;</span> <span class="token keyword">my</span> <span class="token variable">$i</span> <span class="token operator">=</span> <span class="token number">0</span><span class="token punctuation">;</span> <span class="token keyword">my</span> <span class="token variable">$orig</span> <span class="token operator">=</span> join <span class="token string">""</span><span class="token punctuation">,</span> map <span class="token punctuation">{</span> <span class="token variable">$i</span> <span class="token operator">=</span> <span class="token punctuation">(</span><span class="token variable">$i</span> <span class="token operator">+</span> <span class="token number">1</span><span class="token punctuation">)</span> <span class="token operator">%</span> <span class="token variable">$len</span><span class="token punctuation">;</span> chr<span class="token punctuation">(</span><span class="token punctuation">(</span>ord<span class="token punctuation">(</span><span class="token variable">$_</span><span class="token punctuation">)</span> <span class="token operator">-</span> <span class="token variable">$$key</span><span class="token punctuation">[</span><span class="token variable">$i</span><span class="token punctuation">]</span> <span class="token operator">+</span> <span class="token number">256</span><span class="token punctuation">)</span> <span class="token operator">%</span> <span class="token number">256</span><span class="token punctuation">)</span> <span class="token punctuation">}</span> split <span class="token regex">//</span><span class="token punctuation">,</span> <span class="token variable">$crypt</span><span class="token punctuation">;</span> <span class="token keyword">return</span><span class="token punctuation">(</span><span class="token variable">$orig</span><span class="token punctuation">)</span><span class="token punctuation">;</span> <span class="token punctuation">}</span> <span class="token comment">########################################################################### </span> <span class="token variable">@key</span> <span class="token operator">=</span> <span class="token string">qw (7 a $ & a a ! P * " g)</span><span class="token punctuation">;</span> <span class="token keyword">my</span> <span class="token variable">$text</span> <span class="token operator">=</span> <span class="token string">"Was ein wunderschoener Tag\n"</span><span class="token punctuation">;</span> <span class="token keyword">print</span> <span class="token string">"TEXT: $text\n"</span><span class="token punctuation">;</span> <span class="token keyword">my</span> <span class="token variable">$cryp_text</span><span class="token operator">=</span>kryptn<span class="token punctuation">(</span><span class="token variable">$text</span><span class="token punctuation">,</span><span class="token operator">\</span><span class="token variable">@key</span><span class="token punctuation">)</span><span class="token punctuation">;</span> <span class="token keyword">print</span> <span class="token string">"TEXT crypt: $crypt_text\n"</span><span class="token punctuation">;</span> <span class="token keyword">my</span> <span class="token variable">$uncrypt_text</span><span class="token operator">=</span>entkryptn<span class="token punctuation">(</span><span class="token variable">$cryp_text</span><span class="token punctuation">,</span><span class="token operator">\</span><span class="token variable">@key</span><span class="token punctuation">)</span><span class="token punctuation">;</span> <span class="token keyword">print</span> <span class="token string">"TEXT uncrypt: $uncrypt_text\n"</span><span class="token punctuation">;</span> </code></pre> <p>Ich bin nicht so fit in Codierungsgeschichten, deshalb noch ne Frage hinterher...<br> Kann ich den Inhalt von $cryp_text problemlos in eine Mysql-DB als string abspeichern, wenn ich das base64 coding nicht mache? Bislang benutze ich für alle meine DB-Einträge UTF-8 bzw. würde das so <code class="language-perl"><span class="token variable">$cryp_text</span> <span class="token operator">=</span> encode<span class="token punctuation">(</span><span class="token string">'UTF-8'</span><span class="token punctuation">,</span> <span class="token variable">$cryp_text</span><span class="token punctuation">)</span><span class="token punctuation">;</span></code> funktionieren?</p> <p>Ciao<br> H1N1</p> Verschlüsselung / Entschlüsselung Perl Modul Fri, 29 May 09 14:05:54 Z https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367546#m1367546 https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367546#m1367546 <p>Hallo,</p> <blockquote> <p>[code lang=perl]#!/usr/bin/perl<br> ###########################################################################</p> <h3>Text synchron verschlüsseln</h3><p>sub kryptn{<br>         my ($txt, $key) = @_; # $key ist eine Referenz auf @key<br>         my $len = scalar @$key;<br>         my $i = 0;<br>         my $crypt = join "",<br>                 map { $i = ($i + 1) % $len;<br>                         chr((ord($_) + $$key[$i]) % 256) } split //, $txt;<br>         return($crypt);<br> }<br> ###########################################################################</p> <h3>Verschlüsselung aufheben</h3><p>sub entkryptn{<br>         my ($crypt, $key) = @_; # $key ist eine Referenz auf @key<br>         my $len = scalar @$key;<br>         my $i = 0;<br>         my $orig = join "",<br>         map { $i = ($i + 1) % $len;<br>                 chr((ord($_) - $$key[$i] + 256) % 256) }<br>                         split //, $crypt;<br>          return($orig);<br> }</p> </blockquote> <blockquote> <p>Ich bin nicht so fit in Codierungsgeschichten,</p> </blockquote> <p>deswegen solltest Du von <a href="/archiv/2009/2/t182722/#m1209664" rel="noopener noreferrer">diesem ausgewiesenen Müll</a> einfach Abstand halten. Perl hat doch sicher eine AES-Implementierung aufzuweisen.</p> <p>Lesetipp: <a href="http://aktuell.de.selfhtml.org/weblog/php-verschluesselung-100-euro-wette" rel="nofollow noopener noreferrer">http://aktuell.de.selfhtml.org/weblog/php-verschluesselung-100-euro-wette</a>. Dieser Algorithmus ist kein bisschen sicherer als der dort geknackte. Finger weg!</p> <p>Freundliche Grüße</p> <p>Vinzenz</p> Verschlüsselung / Entschlüsselung Perl Modul Fri, 29 May 09 14:13:03 Z https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367545#m1367545 https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367545#m1367545 <p>hi,</p> <blockquote> <p>Kann ich den Inhalt von $cryp_text problemlos in eine Mysql-DB als string abspeichern, wenn ich das base64 coding nicht mache?</p> </blockquote> <p>Sischr.</p> <blockquote> <p>Bislang benutze ich für alle meine DB-Einträge UTF-8 bzw. würde das so <code class="language-perl"><span class="token variable">$cryp_text</span> <span class="token operator">=</span> encode<span class="token punctuation">(</span><span class="token string">'UTF-8'</span><span class="token punctuation">,</span> <span class="token variable">$cryp_text</span><span class="token punctuation">)</span><span class="token punctuation">;</span></code> funktionieren?</p> </blockquote> <p>MySQL ists egal, was für Zeichen reinkommen. Du musst nur zwei Dinge wissen:</p> <ul> <li>Collation: Von Interesse bei Stringvergleichen, Suche über die Engine</li> <li>Charset: Ist nur ein Tagging (Aufkleber) legt jedoch den Platz fest, der reserviert wird, nehmen wir char(1)</li> </ul> <p>ISO-8859: Es werden 8 Bit = 1 Byte reserviert<br> UTF-8: Es werden 24 Bit = 3 Byte reserviert</p> <p>Platzverschwendung wäre z.B., wenn die Tabelle mit UTF-8 getagged wird, der Anteil der Zeichen, die mehr als 1 Byte benötigen jedoch nur gering ist.</p> <p>Hotte</p> <div class="signature">-- <br> Wenn der Kommentar nicht zum Code passt, kann auch der Code falsch sein. </div> Verschlüsselung / Entschlüsselung Perl Modul Fri, 29 May 09 14:28:35 Z https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367544#m1367544 https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367544#m1367544 <p>Hallo,</p> <blockquote> <p>Ich bin nicht so fit in Codierungsgeschichten, deshalb noch ne Frage hinterher...<br> Kann ich den Inhalt von $cryp_text problemlos in eine Mysql-DB als string abspeichern, wenn ich das base64 coding nicht mache? Bislang benutze ich für alle meine DB-Einträge UTF-8 bzw.</p> </blockquote> <p>Wenn Du keine base64-Codierung vornimmst - was sinnvoll ist - dann sollten Dir nach der Codierung binäre Daten vorliegen. Die dafür sinnvollen Datentypen sind <a href="http://dev.mysql.com/doc/refman/5.1/en/binary-varbinary.html" rel="nofollow noopener noreferrer">VARBINARY</a> oder einer der <a href="http://dev.mysql.com/doc/refman/5.1/en/blob.html" rel="nofollow noopener noreferrer">BLOB</a>-Typen. Es ist eine denkbar schlechte Idee, für binäre Daten VARCHAR oder einer der TEXT-Typen mit einem Character-Set und einer Kollation zu verwenden. Wegen der von Hotte bereits angesprochenen Speicherproblematik gilt dies in diesem speziellen Fall für UTF-8 ganz besonders - es ist so ziemlich das verkehrteste, was Du nehmen kannst.</p> <p>Freundliche Grüße</p> <p>Vinzenz</p> Verschlüsselung / Entschlüsselung Perl Modul Sat, 30 May 09 08:20:14 Z https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367543#m1367543 https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367543#m1367543 <p>你好 H1N1,</p> <blockquote> <p>Es funktioniert (base64 habe ich rausgenommen, da ich das Modul Mime::base64 derzeit nicht installiert habe).</p> </blockquote> <p>Nicht benutzen. Benutze eine vernünftige AES- oder DES-Implementierung. Selbstgeschriebene Verschlüsselungsverfahren sind idR grottig.</p> <p>再见,<br>  克里斯蒂安</p> <div class="signature">-- <br> <a href="http://ck.kennt-wayne.de/" rel="nofollow noopener noreferrer">http://ck.kennt-wayne.de/</a><br> </div> Verschlüsselung / Entschlüsselung Perl Modul Fri, 29 May 09 14:30:08 Z https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367547#m1367547 https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367547#m1367547 <p>hi,</p> <blockquote> <p>»» Ich bin nicht so fit in Codierungsgeschichten,</p> <p>deswegen solltest Du von <a href="/archiv/2009/2/t182722/#m1209664" rel="noopener noreferrer">diesem ausgewiesenen Müll</a> einfach Abstand halten.</p> </blockquote> <p>Ahja, da wurde viel diskutiert. Aber meinen Schlüssel hat keiner rausbekommen, den suche ich heute noch ;-)</p> <p>Hotte</p> Verschlüsselung / Entschlüsselung Perl Modul Fri, 29 May 09 14:43:07 Z https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367549#m1367549 https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367549#m1367549 <p>Hallo,</p> <blockquote> <p>» »» Ich bin nicht so fit in Codierungsgeschichten,<br> »<br> » deswegen solltest Du von <a href="/archiv/2009/2/t182722/#m1209664" rel="noopener noreferrer">diesem ausgewiesenen Müll</a> einfach Abstand halten.</p> </blockquote> <blockquote> <p>Ahja, da wurde viel diskutiert. Aber meinen Schlüssel hat keiner rausbekommen, den suche ich heute noch ;-)</p> </blockquote> <p>hast Du schon wieder mal nicht alles gelesen? Vertrau <a href="/archiv/2009/2/t182722/#m1211045" rel="noopener noreferrer">Henryk</a>, dem großen <a href="/archiv/2008/4/t169929/#m1112604" rel="noopener noreferrer">Schlüsselfindemeister</a>.<br> Henryk zeigt übrigens in letzterem Beitrag auf, warum base64-Codierung rein gar nichts zur Sicherheit beiträgt :-)</p> <p>Freundliche Grüße</p> <p>Vinzenz</p> Verschlüsselung / Entschlüsselung Perl Modul Sat, 06 Jun 09 17:53:49 Z https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367548#m1367548 https://forum.selfhtml.org/self/2009/may/29/verschluesselung-entschluesselung-perl-modul/1367548#m1367548 <blockquote> <p>Ahja, da wurde viel diskutiert. Aber meinen Schlüssel hat keiner rausbekommen, den suche ich heute noch ;-)</p> </blockquote> <p>Na dann biete hundert Euro! Nicht für den Aufwand sondern für die Herabwürdigung eine <a href="http://de.wikipedia.org/wiki/Polyalphabetische_Substitution#Vigen.C3.A8re-Verschl.C3.BCsselung" rel="nofollow noopener noreferrer">Viginere-Verschlüsselung</a> knacken zu müssen,</p> <p>Seit 150 Jahren unsicher!!!</p> <p>irgendwo hab ich ein GFA-Basic progrämmle das es auf dem Atari-ST erledigt (der freut sich aus dem Keller wieder vorgeholt zu werden)</p> <p>Die einzige Chance die du hast ist das der Schlüssel<br> 1. immer neu,<br> 2. zufällig und<br> 3. immer länger als die Nachricht ist...</p>