Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Streda, 21. október 2026
[BACK] [TXT][DIR] Vyššie na [Platon] / scripts / ep / secure-atl

Rozdiely pre scripts/ep/secure-atl/decoder.pl medzi verziami 1.2 a 1.3

verzia 1.2, 2002/02/04 15:04:51 verzia 1.3, 2002/03/13 13:51:03
Riadok 36  my $END_ENCODE_1_STR = '321';
Riadok 36  my $END_ENCODE_1_STR = '321';
 my $START_SWITCH_CASE_STR = 'aAbBcC';  my $START_SWITCH_CASE_STR = 'aAbBcC';
 my $END_SWITCH_CASE_STR = 'CcBbAa';  my $END_SWITCH_CASE_STR = 'CcBbAa';
   
   
 while (<STDIN>) {  while (<STDIN>) {
 #       chomp;          #       chomp;
   
   
 # DECODE METHOD no. 1          # DECODE METHOD no. 1
         if ($_ =~ /^(.*)($END_ENCODE_1_STR)(.*)($START_ENCODE_1_STR)(.*)$/) {          if ($_ =~ /^(.*)($END_ENCODE_1_STR)(.*)($START_ENCODE_1_STR)(.*)$/) {
                 my $buf;                  my $buf;
   
Riadok 52  while (<STDIN>) {
Riadok 51  while (<STDIN>) {
                 $_ = $1 . $4 . $buf . $2 . $5 . "\n";                  $_ = $1 . $4 . $buf . $2 . $5 . "\n";
         }          }
   
 # SWITCH_CASE decode          # SWITCH_CASE decode
         if ($_ =~ /^(.*)($END_SWITCH_CASE_STR)(.*)($START_SWITCH_CASE_STR)(.*)$/) {                                                                                             my $buf;          if ($_ =~ /^(.*)($END_SWITCH_CASE_STR)(.*)($START_SWITCH_CASE_STR)(.*)$/) {                                                                                             my $buf;
   
                 $buf = $3;          $buf = $3;
                 $buf =~ y/ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/;          $buf =~ y/ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/;
   
                 $_ = $1 . $4 . $buf . $2 . $5 . "\n";          $_ = $1 . $4 . $buf . $2 . $5 . "\n";
         }  }
   
         print STDOUT;  print STDOUT;
 }  }
   
 print "Exiting decoder.\n";  print "Exiting decoder.\n";
Legend:
Odstranené z verzie1.2  
zmenené riadky
  Pridané vo verzii1.3
Platon Group <platon@platon.sk> http://platon.sk/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox 		Na začiatok