Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

writting unix password cracker in perl lithuanian language

by mr2 (Friar)
on Apr 15, 2002 at 23:54 UTC ( #159373=perltutorial: print w/ replies, xml ) Need Help??

<html> <head> <title>writting unix password cracker in perl</title> </head>
<body bgcolor="#FFFFFF" text="#000000"> ... as ...

data : 2002
autorius : mr2
Url : http://mr2lt.cjb.net
@mail : mr2@xxx.lt ( Sub : mr2-cgi )

... niekas nenorejo mirti ...

si informacija yra pazintinio tipo ... uz sios informacijos panaudojima
as ... kaip autorius neatsakingas ir tikrai nepritariu sios informacijos
panaudojimui nelegaliems reikaliukams ... taigi pries kazka
darydami ... pirma gerai pagalvokite ir tik po to darykite ...
tikiuosi pasirinksite teisinga kelia ;) ...

... apie ...

inete pilna unix password'u cracking irankiu ... vieni dirba po unix ... kiti
po win operacinem sistemom ... kodelgi mum patiem nepasidarius perl'inio
unix password cracking tool'zo ... ir jei turi shell'a (su cgi/perl) kaskur inete ...
kodelgi juo nepasinaudojus (zinoma tada kai jo prireikia ;) ) ... juk shell'o
privalumas yra tas kad tau nereikes istisa para palikinet ijunkto savo kompo
su paleistu unix password cracker'iu ... ir ziuret kad kasnors nesusidometu
paleistaja programa ...

... irankiai ...

si skiltis cia nereikalinga ... bet pamaniau pareklamuosiu nebloga
"Visual Perl Editor v2.5" programa leidziancia redaguoti skriptus parasytus
perl ... window$'uose ... nezinau kaip jum bet asmeniskai man taip patogiau
... ja galima tikrinti klaidas ... zodziu daryti su PERL skriptais viska ...
ka paprastai darau po linux ...

jei susidomejote ... jos adresas tinkle : http://kakoulidis.homepage.com/perl.html
(crack'o (tiksliau loader'io) paieskokit astalavistoj ... jis butinas ;) )

vos nepamirsau ... jum prireiks passwd bei wordlist'o ;)

... varom ...

------------------------------- cut there -------------------------------

# (tradiciskai) jusu perl'o vieta diske
#!/usr/bin/perl

# pradedam darba
print ("\npradedu ...\n");

# $slapt_sar=slaptazodziu failas (passwd)
$slapt_sar = "passwd.txt";

# $zod_sar=wordlistas su daugybe slaptazodziu (eiluteje po viena)
$zod_sar = "wordlist.txt";

# atidarom slaptazodziu faila ir isrenkame login'us bei koduotus slaptazodzius
open (PASWORDS,$slapt_sar) || die "neatidarau slaptazodziu failo !!!";
while (<PASWORDS>) {
($vardas,$koduotas,$uid,$gid,$cos,$home,$shell)=split( /:/);

# issaukiam funkcija kuri bando surasti tinkanti slaptazodi
&ieskot_passwd; }

# po viso darbo uzdarom slaptazodziu faila
close (PASWORDS);

# baigiam darba
print ("\nbaigta ...\n");
exit;

# na stai ir pati slaptazodziu ieskojimo funkcija
sub ieskot_passwd {

# atidarom wordlist'a
open (WORDLIST,$zod_sar) || die "neatidarau wordlist\'o !!!";

# imam visus jame esancias eilutes
@eilutes=<WORDLIST>;

# uzdarom wordlist'a
close (WORDLIST);

# imam po atskira eilute (is wordlist'o) ir nukertam 'LF' (eilutes pabaigos zenkla)
foreach $eilute (@eilutes) {
chomp($eilute);

# koduojam slaptazodi
$bandomasis=crypt($eilute,$koduotas);

# jei sugeneruotas kodas==tikrasis ... reiskias radom slaptazodi
if ("$bandomasis" eq "$koduotas") { print "\nradau: user $vardas password $eilute"; } }
}

------------------------------- cut there -------------------------------

... papildymai ...

aisku jus galit pakoreguot si skripta pvz : kad neradus ne vieno slaptazodzio ... skriptas
apie tai pranestu darbo pabaigoje ... uzrasytu gautus rezultatus i faila ... dar galima pakeisti
zodziu skaityma is wordlist'o ... nes siuo metodu visas zodinelis eina i atminti ... aisku gerai
jei zodinelis nedidelis ... bet paprastai taip nebuna ;) ... betkokiu atveju pradzia jau yra ... o
skripto tobulinimu uzsiimkite patys ... good luck ...

</body> </html>

Comment on writting unix password cracker in perl lithuanian language
why?
by mr2 (Friar) on Apr 16, 2002 at 19:39 UTC
    i'd like to hear your opinion. why do you rate this tutorial "-" ? because it's not in english? because it's illeagal? (it's jus my own research i wanted to share ... & you look at me as some kind of scriptkiddie)
      Personally, I love seeing stuff in other languages like if ($bandomasis eq $koduotas). However, the last thing that I would want is for our beloved PM to be seen as a resource for crackers.
      ()-()
       \"/
        `                                                   ` 
      
        it was'nt written for crackers. it's just a technology that crackers use to bruteforse unix passwords ... don't you think it's interesting? (it was written by me not as a resource ... bus as the simple explaniation for people how it works ...)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://159373]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (10)
As of 2014-12-26 09:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (171 votes), past polls