- 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;
МЯдаль мне ! Это говнокод говнокодов ! Супер генератор паролей !
Follow us!
я уже что-то похожее постил и называлось оно тоже генератором паролей ))
http://govnokod.ru/3362
вот думаю не улучшеное ли это говно в новой версии, передранное из одного того же говнотуториала
Не... я не с того тутора, я мозгами
>>...улучшеное ли это говно в новой версии
Улучшенное ???! Это точно XD
:)))))))
Иди на питоооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооо оооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооо оооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооон
пито-о-о-он!
https://www.youtube.com/watch?v=SOMDRt4RwAU
В моих руках
Обрезан путь
Мне в облака
К 1000 девственниц Оооо
К 1000 девственниц Оооо
Да я просто чумачедший
MAXIMUM MGIMO