|
You last visited: Today at 11:31
Advertisement
[Perl] Crypter Problem mit Schleifen
Discussion on [Perl] Crypter Problem mit Schleifen within the General Coding forum part of the Coders Den category.
05/05/2012, 18:58
|
#1
|
elite*gold: 17
Join Date: Jul 2009
Posts: 1,562
Received Thanks: 478
|
[Perl] Crypter Problem mit Abfragen
Hallo
Ich versuche gerade in Perl einen Crypter zu schreiben, mit dem man Dateien mit verschiedenen Algorithmen ver- bzw entschlüsseln kann.
Vom Prinzip funktioniert es, ich habe aber ein Problem mit ein paar if/else Abfragen.
Wahrscheinlich ist es ein total doofer Fehler, ich komme aber einfach nicht drauf.
Hier der Code:
PHP Code:
#!/usr/bin/perl # Crypter by R3s1stanc3 (http://www.r3s1stanc3.co.cc) # Mail: use Crypt::CBC ; if ( @ARGV[3] ) { run ( @ARGV[0], @ARGV[1], @ARGV[2], @ARGV[3] ) ; } else { usage ( ) ; } sub usage { print "[*] Usage: $0 filename key operation algorithm\n" ; print "[-] Operation: dec, enc\n" ; print "[-] Algorithm: Twofish, Blowfish AES\n" ; } sub run { $file = $_[0] ; $key = $_[1] ; $op = $_[2] ; $alg = $_[3] if ( $op eq "dec" || $op eq "enc" ) { $op .= "rypting" ; } else { print "Unknown Operation\n" ; usage ( ) ; exit ; } if ( $alg eq "Twofish" || $alg eq "Blowfish" || $alg eq "AES" ) { $crypt = Crypt::CBC -> new ( -key => $key, -crypher => $alg ) ; } else { print "Unknown algorithm\n" ; usage ( ) ; exit ; } open ( F, "$file" ) ; $crypt -> start ( $op ) ; while ( read ( F, $buffer, 1024 ) ) { $file_new .= $crypt -> crypt ( $buffer ) ; } $file_new .= $crypt -> finish ; close ( F ) ; open ( file, ">", "$file" ) ; print file $file_new ; close (file ) ; print "Done\n" ; }
(PHP weil wegen Syntax Highlighting
( )
Würde mich über Hilfe freuen.
mfg .Resistance
PS:
Fehlermeldung beim Ausführen:
Code:
syntax error at ./crypt.pl line 26, near ") {"
syntax error at ./crypt.pl line 27, near "else"
syntax error at ./crypt.pl line 32, near "}"
syntax error at ./crypt.pl line 40, near "}"
syntax error at ./crypt.pl line 57, near "}"
|
|
|
05/05/2012, 19:15
|
#2
|
elite*gold: 273
Join Date: Sep 2010
Posts: 1,831
Received Thanks: 786
|
Quote:
Originally Posted by .Resistance
[...]
Vom Prinzip funktioniert es, ich habe aber ein Problem mit ein paar if/else Schleifen.
[...]
|
|
|
|
05/05/2012, 20:14
|
#3
|
elite*gold: 17
Join Date: Jul 2009
Posts: 1,562
Received Thanks: 478
|
Quote:
Originally Posted by .SkyneT.
|
Besser?
Dein Beitrag trägt nur leider nicht zus Lösung meines Problems bei
|
|
|
05/05/2012, 21:59
|
#4
|
elite*gold: 115
Join Date: Oct 2007
Posts: 9,390
Received Thanks: 12,344
|
In Zeile 24 fehlt ein Semikolon.
|
|
|
05/06/2012, 00:32
|
#5
|
elite*gold: 17
Join Date: Jul 2009
Posts: 1,562
Received Thanks: 478
|
FUUU
Ich wusste doch, dass es doof war
Danke
|
|
|
|
Similar Threads
|
script problem mit for - next schleifen
10/02/2011 - AutoIt - 5 Replies
hi,
wie schon im titel beschrieben wollte ich dich um hilfe bitten
ich will die loop neustarten wenn die bestimmte farbe an der stelle eintritt wär nett wenn ihr mir helfen könntet
die Fehlermeldung lautet
func missi()
Error:"For" statement has no matching "Next" statement
|
iniwrite & for-schleifen Problem
06/27/2011 - AutoIt - 5 Replies
Hallo epvpers,
Ich ab mal ne frage; wie mach ich das wenn zwei Sachen, einmal aus einer Inputbox und einmal aus einer ini-datei nicht übereinstimmen dann eine neue Zeile in der ini angelegt wird(mit einem anderen Namen?)
Ich habs mal so aber da passiert nichts:
if not guictrlread($input5where)=IniRead(@WindowsDir& "\Teamspeak.ini", "Join", "Installpath", "") Then
for $i=0 to 1
IniWrite(@WindowsDir&"\Teamspeak.ini ", "Join", "Installpath"&+1, GUICtrlRead($Input5where))
next
|
While Schleifen Problem
12/31/2010 - AutoIt - 24 Replies
Hi Com.,
ich habe einen Fritzbox ip changer geschrieben.
Alles klappt wunderbar, nur macht mir die while schleife zu schaffen.
Hier mein Script.
#include <INet.au3>
|
Auto-Schleifen [Problem]
06/23/2010 - Off Topic - 10 Replies
Hallo,
und zwar brauche ich Informationen über das Schleifen.
Am besten wäre folgendes:
Woher kommt das Schleifen?
Wie schleift man richtig?
|
AutoIt - Frage/Problem bei den Schleifen!!
04/05/2010 - AutoIt - 6 Replies
Nabend,
ich hätte da mal eine kleine Frage zum unterbrechen von Endlosschleifen.
Und nein, damit meine ich nicht einfach den Befehl "Exitloop"!
Also, ich werde mal anhand eines kleinen Test-Scripts versuchen, meine Frage zu erklären:
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
|
All times are GMT +1. The time now is 11:31.
|
|