- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
function TForm1.genpa(l: integer): string;
const cifr_i_english: string =
'ABCDEFGHIJKLMabcdefghijklm' +
'0123456789' +
'NOPQRSTUVWXYZnopqrstuvwxyz';
const cifr: string =
'1234567890';
const rus:string =
'йцукенгшщзхъфывапролджэячсмитьбю'+
'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
const cifr_i_rus: string =
'1234567890'+
'йцукенгшщзхъфывапролджэячсмитьбю'+
'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
const eng_i_rus: string =
'йцукенгшщзхъфывапролджэячсмитьбю'+
'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ'+
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm';
const english: string =
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm';
const en_ru_cifr :string =
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm'+
'йцукенгшщзхъфывапролджэячсмитьбю'+
'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ'+
'1234567890';
const spec :string =
'!@#$%^&*()"№;:?/,\|=+-_}{][';
const spec_ru :string =
'!@#$%^&*()"№;:?/,\|=+-_}{]['+
'йцукенгшщзхъфывапролджэячсмитьбю'+
'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
const eng_spec :string =
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm'+
'!@#$%^&*()"№;:?/,\|=+-_}{][';
const eng_ru_spec :string =
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm'+
'!@#$%^&*()"№;:?/,\|=+-_}{]['+
'йцукенгшщзхъфывапролджэячсмитьбю'+
'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
const cifr_spec :string =
'1234567890'+
'!@#$%^&*()"№;:?/,\|=+-_}{][';
const cifr_en_spec :string =
'1234567890'+
'!@#$%^&*()"№;:?/,\|=+-_}{]['+
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm';
const cifr_ru_en_spec :string =
'1234567890'+
'!@#$%^&*()"№;:?/,\|=+-_}{]['+
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm'+
'йцукенгшщзхъфывапролджэячсмитьбю'+
'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
var
x,y,engh:integer;
str:string;
d:integer;
begin
if CheckBox1.Checked =true then
begin
if CheckBox2.Checked =true then
begin
for d:=0 to l - 1 do
begin
engh:=Length(cifr_i_english);
x:=RandomRange(1,engh);
str:=str+cifr_i_english[x];
end;
result:=str;
end;
end;
if CheckBox1.Checked =true then
begin
if CheckBox3.Checked =true then
begin
for d:=0 to l - 1 do
begin
engh:=Length(cifr_i_rus);
x:=RandomRange(1,engh);
str:=str+cifr_i_rus[x];
end;
result:=str;
end;
end;
if CheckBox1.Checked =true then
begin
if CheckBox5.Checked =true then
begin
for d:=0 to l - 1 do
begin
engh:=Length(cifr_spec);
x:=RandomRange(1,engh);
str:=str+cifr_spec[x];
end;
МЯдаль мне ! Это говнокод говнокодов ! Супер генератор паролей !
3.14159265 10.06.2010 17:24 # +2
я уже что-то похожее постил и называлось оно тоже генератором паролей ))
http://govnokod.ru/3362
вот думаю не улучшеное ли это говно в новой версии, передранное из одного того же говнотуториала
guest 16.09.2011 09:55 # 0
mistmax 10.06.2010 17:29 # +1
Не... я не с того тутора, я мозгами
>>...улучшеное ли это говно в новой версии
Улучшенное ???! Это точно XD
Kornew 10.06.2010 17:31 # +1
Stalker 10.06.2010 21:44 # +1
Анонимус 11.06.2010 01:43 # +1
:)))))))
ganja_boy 11.06.2010 07:41 # +6
guest 05.05.2011 21:33 # 0
guest 10.05.2011 17:06 # 0
bugmenot 10.05.2011 18:17 # +1
guest 16.08.2011 16:26 # 0
guest 11.01.2013 12:59 # −1
guest 23.02.2013 15:09 # 0
guest 23.02.2013 15:41 # 0
guest 01.03.2013 13:08 # 0
guest 19.10.2013 16:57 # 0
guest 19.10.2013 16:59 # 0
guest 09.01.2015 15:57 # −1
bormand 09.01.2015 16:18 # +3
guest 15.01.2016 21:05 # −1
1024-- 16.01.2016 09:26 # 0
bormand 16.01.2016 09:46 # +1
1024-- 16.01.2016 10:09 # 0
1024-- 16.01.2016 10:12 # 0
Иди на питоооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооо оооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооо оооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооон
kegdan 16.01.2016 12:04 # 0
пито-о-о-он!
https://www.youtube.com/watch?v=SOMDRt4RwAU
kegdan 15.01.2016 22:01 # 0
В моих руках
Обрезан путь
Мне в облака
К 1000 девственниц Оооо
К 1000 девственниц Оооо
Vasiliy 16.01.2016 09:29 # 0
kegdan 16.01.2016 09:58 # 0
Да я просто чумачедший
bormand 16.01.2016 12:14 # +1
Vasiliy 16.01.2016 12:29 # 0
kegdan 16.01.2016 16:39 # 0
guest 09.01.2015 16:51 # +1
MAXIMUM MGIMO
CHayT 16.01.2016 13:07 # 0