Perl script bestanden encrypten/decryptem Rot13

[sandor]

Heey,

Ik heb je advies opgevolgd, en ik heb er een keuze menu in gemaakt waarin de gebruiker de keuze krijgt of die 1 woord wilt encrypten/decrypten of een geheel bestand.

Lees het maar een keer door en ik hoop dat het jullie van pas kan komen.

Ik zal eerst uitleggen wat het script precies doet:
Het is een script om iets te encrypten/decrypten met een ROT13 ecnryptie
Het script komt eerst met de vraag of je 1 woord of een geheel bestanden wilt encrypten/decrypten.
Hierna moet je het antwoord invullen en zal het script beginnen.

bij 1 woord encrypten moet je een woord ingeven en zal deze met behulp van de translate functie van perl geencrypt worden met de ROT13 encryptie, deze uitvoer schrijft hij weg naar het bestand "uitvoer.txt", hierna komt de vraag of je deze uitvoer meteen wilt bekijken of later pas.

Bij een volledig bestanden encrypten moet je het pad naar het gewenste bestand opgeven, hierna wordt dit bestand uitgelezen met behulp van het "type" commando onder windows, dit bestand wordt hierna gesplit op een nieuw regel en wordt per regel alles translated naar de ROT13 encryptie, wanneer deze klaar is wordt de uitvoer naar hetzelfde bestand weggeschreven, hierna krijg je ook de vraag of je het bestand meteen wilt inzien of het later wilt openen.


#! /usr/bin/perl
print("########################################### ##############\n");
print("# Created by: Sandor - 2009 #\n");
print("# CopyRight(R) 2009-2010 #\n");
print("# Particulier Digitaal Onderzoeker #\n");
print("# Rot13 Encrypter #\n");
print("########################################### ##############\n");

print("Wat wilt u gaan doen?\n
Kies:
1. Een zelf getypt woord encrypten/decrypten.
2. Een volledig bestand encrypten/decrypten.
\n");
chop($antwoord = <>);

if ($antwoord =="1") {
print("Geef uw tekst op die u wilt encrypten/decrypten:\n");
chop ($regel = <>);
$regel =~ tr/abcdefghijklmnopqrstuvwxyz/nopqrstuvwxyzabcdefghijklm/;
open($APPENDFILE, ">uitvoer.txt");
print $APPENDFILE ($regel);
print("Wilt u de uitvoer zien?\n (y of n)");
chop($uitvoer = <>);
if ($uitvoer eq "y") {
print(`notepad uitvoer.txt`);
} elsif ($uitvoer eq"n") {
close;
}
}
elsif ($antwoord =="2") {
print("Welk bestand wil je encrypten/decrypten\n");
chop($bestand = <>);
$tekst = `type $bestand`;
@array = split(/\n/, $tekst);
$tekst =~ tr/abcdefghijklmnopqrstuvwxyz/nopqrstuvwxyzabcdefghijklm/;
open($APPENDFILE, ">$bestand");
print $APPENDFILE ($tekst);
print("Wilt u de uitvoer zien?\n (y of n)");
chop($uitvoer = <>);
if ($uitvoer eq "y") {
print(`notepad $bestand`);
} elsif ($uitvoer eq"n") {
close;
}
}



Veel plezier ermee en wanneer er vragen zijn stel ze gerust.

Groeten,

Sander

[themaster]

Waarom heb je voor een "nep" encryptie gekozen als ROT13 terwijl PERL zelf veel betere algoritmes heeft ??.
Als ik een perl encryptie zou maken dan zou ik gaan kijken naar AES of DES of iets in die richting.
symmetrische encryptie die echt niet te kraken zijn mits een lang genoegt wachtwoord word gebruikt.

[sandor]

Ik heb dit script niet gemaakt om werkelijk alles helemaal te encrypten, ik verwacht niet dat thuisgebruikers (Ouders ) niet weten wat een rot13 encryptie is en hierdoor is dit een best redelijke, maar ik zal gaan werken aan een update hiervoor met 1 van de encryptie methodes die je hebt genoemd.

Werk je zelf ook veel met Perl?? Zo ja wat heb jij zoal gemaakt???

groeten,
Sander

[themaster]

momenteel heb ik weinig concreets gemaakt.
heb wat voorbeeld scripts gemaakt om wat dingetjes te laten zien.
en ooit eens een script om inteloggen op een profielensite en een bericht in de berichtenbalk te mikken.

[libris]

Dat van die profielsites klinkt wel intressant als je dit in perl hebt gemaakt, heb je hiervoor een module gebruikt?

[themaster]

Jupz je hebt een webcrawler achtige module ergens.
En die heb ik gebruikt toen