Данный раздел предназначен для выкладывания Ваших программ \ скриптов.
Чужие только:
- автор не должен быть против
- желательно с исходным текстом
- пишите кто автор

Правила:
КАК ОБЫЧНО: все на свой страх, риск и т.п...
- только freeware
- файло ничем не паковать \ криптовать и т.д.
для танкистов- экономия 30 кб трафа не повод, а желание сунуть бяку -очень даже

- старайтесь называть темы так, чтобы сразу было понятно что внутри
- Исходники:
Обязательны в случае, если на Вашу программу ругается вирустотал.
В остальных случаях - на усмотрение автора.


Правила оформления темы

- Картинки прикрепляются в виде вложений
- Как минимум 3 зеркала

Есть идеи по теме - предлагайте тут
Если нашли тему, которую надо перекинуть сюда - кидайте линк в ПМ ну или тут

renamed: 10 files 71% of all file(s) ==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==- before: ==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==- Madagaskar.torrent [torrents.ru].11641143 - Укуренные.torrent [torrents.ru].11697517.torrent [torrents.ru].12933424.torrent [torrents.ru].13433188.torrent [torrents.ru].13504075.torrent [torrents.ru].13669520 - Пламя и Цитрон.torrent [torrents.ru].13743508 - После прочтения cжечь.torrent [torrents.ru].1776583 - Отступники.torrent [torrents.ru].4841400 - Аристотель. Все обо всем..torrent ==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==- after: ==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==- Madagaskar.2.2008.avi.torrent ђЈђє‘ѓ‘ЂђµђЅђЅ‘‹ђµ.torrent Hackers_1995_HDRip_Rus_PowerTracker.org.avi.torren t Vavilon.2008.P.DVDRip.KINODOME.avi.torrent ANNIHILATION2.avi.torrent sway_gaming.avi.torrent Plamja.i.Citron.2008.P.DVDRip_INTERFILM.avi.torren t posle_proctenia_AVC.mkv.torrent Otstupniki.avi.torrent Aristotel.avi.torrent ==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==- not renamed: ==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==- Antix-M7.2.zip.torrent menuetos-x86-0.84.qcow.img.zip.torrent mona-0.3.0a8.qcow.img.zip.torrent my.torrent

renamed: 14 files 100% of all file(s) ==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==- before: ==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==- Antix-M7.2.zip.torrent Madagaskar.torrent menuetos-x86-0.84.qcow.img.zip.torrent mona-0.3.0a8.qcow.img.zip.torrent my.torrent [torrents.ru].11641143 - Укуренные.torrent [torrents.ru].11697517.torrent [torrents.ru].12933424.torrent [torrents.ru].13433188.torrent [torrents.ru].13504075.torrent [torrents.ru].13669520 - Пламя и Цитрон.torrent [torrents.ru].13743508 - После прочтения cжечь.torrent [torrents.ru].1776583 - Отступники.torrent [torrents.ru].4841400 - Аристотель. Все обо всем..torrent ==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==- after: ==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==- [torrent]Antix-M7.2.zip.torrent [torrent]Madagaskar.2.2008.avi.torrent [torrent]menuetos-x86-0.84.qcow.img.zip.torrent [torrent]mona-0.3.0a8.qcow.img.zip.torrent [torrent]my.torrent [torrent]ђЈђє‘ѓ‘ЂђµђЅђЅ‘‹ђµ.torrent [torrent]Hackers_1995_HDRip_Rus_PowerTracker.org.avi.torren t [torrent]Vavilon.2008.P.DVDRip.KINODOME.avi.torrent [torrent]ANNIHILATION2.avi.torrent [torrent]sway_gaming.avi.torrent [torrent]Plamja.i.Citron.2008.P.DVDRip_INTERFILM.avi.torren t [torrent]posle_proctenia_AVC.mkv.torrent [torrent]Otstupniki.avi.torrent [torrent]Aristotel.avi.torrent ==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==- not renamed: ==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-

system('cls');

##########################################################################
##########################################################################
##########################################################################

 $dir	        = '.';			#without /
 $pr	 	= '[torrent]';

##########################################################################
##########################################################################
##########################################################################

sub saveFile
{
	open(myFILE,">$_[0]") || die "error: $!";
	print myFILE $_[1];
	close(myFILE);
} 

sub cyr
{
	$phrase = shift;
	$phrase =~ y/А-яЁё/\x80-\xaf\xe0-\xf1/;
	return $phrase;
}


sub read_str
{
	if ($_[0] =~ /:$_[1](\d{0,4}):/)
	{return substr($_[0], index($_[0],$_[1])+length($_[1])+length($1)+1, $1)}
	else {return '';}
}

sub read_num
{
	if ($_[0] =~ /$_[1]i(\d{0,64})e/)
	{return $1} else {return ''}
}

sub rename_torrent
{
	local $new_name,$old_name;

	$old_name=$_[0];	
	$new_name=cyr(read_str($_[0],'name'));
	$new_name=~s/\[torrents.ru\]//ge;
	return $new_name.'.torrent';
	#rename old new
}

##########################################################################
##########################################################################
##########################################################################

system('cls');

print "--====--=--=- eLWAux -=-==-====--\n";
print "--===-== torrent renamer -=-===--\n";
print "--====-==-=-=-=-=-=-=-=--==-===--\n\n";

opendir(TEMPDIR,$dir) or die("[-] Error ($!)..");
@FILES=grep(/\.torrent$/i, readdir TEMPDIR);
closedir(TEMPDIR);

print '[i] '.@FILES." *.torrent's found\n";
print '[i] '.localtime(time())."\n";

print "--====-==-=-=-=-=-=-=-=--==-===--\n\n";

$g=0;$bef='';$aft='';$nren='';
for ($i=0;$i<@FILES;) {
	$res='';
        open(DESC, @FILES[$i]);
        while (<DESC>) {$res.= $_;}
        close(DESC);

	print '    '.cyr(@FILES[$i])."\n";
	$n = $pr.rename_torrent($res);
	if ($n eq @FILES[$i])
		{ print '[-] '.$n."\n";
		  $nren.=$n."\n";
		} else
		{ $g++;
		  rename @FILES[$i],$n;
		  $bef.=@FILES[$i]."\n";
		  $aft.=$n."\n";
		  print '[+] '.$n."\n";
		}	
	$i++;
	}
print '[i] renamed: '.$g."\n";
print '[%] '.int(($g/@FILES)*100).'% renamed!';

saveFile('result_rename.txt',
	"renamed: $g files\n".
	"         ".int(($g/@FILES)*100)."% of all file(s)\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	"before:\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	$bef."\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	"after:\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	$aft."\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	"\nnot renamed:\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	$nren."\n");
<STDIN>;

login@rambler.ru;password

login@rambler.ru;newpassword;newanswer

Программа bvsUINSelector

inp=raw_input ('ENTER INPUT FILE :')
out=raw_input ('ENTER OUTPUT FILE :')
with open (inp) as base:
 with open (out,"w") as output:
  info=set (base.xreadlines())
  for x in info:
   if len(x)<120:
    write=output.write(x)

#! /usr/bin/env python

Программа bvsDupDelet

Программа bvsMakeSource