|
#1
|
|||
|
|||
Ген код
Подскажите плиз как написать функцию , чтобы код генерировался по порядку.
Например : 0001 , 0002 и далее. Если есть такой исходник киньте линк. Зарание благодарю |
#2
|
||||
|
||||
Какой еще код???
Если просто переменная, то... Код:
var i : integer; n : integer; begin for i := 0 to 1000 do n := i; end; В начале был Бит, потом Байт и только потом появилось Слово... |
#3
|
|||
|
|||
Ну мне надо чтобы он и с буквами генил (1a,1b,1c). И выводил этот текст в TextEdit при нажатии кнопки.
|
#4
|
||||
|
||||
Если я правельно понял, то нужно написать генератор кодов?
Вечером поищу у себя в загашнике исходник и ещё какой длинны жолжен быть код? Вот исходник моей программы для генерации всевозможных паролей из заданых символов, длинна генерируемого пароля задаеться от 5 до 20 символов. Последний раз редактировалось Anchorte, 15.12.2009 в 13:48. |
#5
|
|||
|
|||
Да мне нужен генер.
Длина кода 8 символов. |
#6
|
||||
|
||||
Код прошу сильно не судить, писал еще когда только начинал программировать...
|
#7
|
|||
|
|||
Спасибо за исходник.
А кодировку я сам если что исправлю. |
#8
|
||||
|
||||
Да незачто...
|
#9
|
|||
|
|||
5 - 20 символов вообще реал
|
#10
|
||||
|
||||
в свое время писал в зломщик аськи, но не довел до канца...
получилось GenPas 1.0 и GenPas 2.3 + клиент аськи в одном))) |
#11
|
||||
|
||||
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i, j, n : integer; Number : array [1..24] of Char;//массив букв begin Memo1.Clear;//Очистка Memo //Заполняем массив буквами for i := 1 to 24 do begin n := 64+i; Number[i] := Chr(n); end; n := 1; //Заполняем список for j := 0 to 10 do begin for i := 1 to 24 do Memo1.Lines.Add(IntToStr(n)+Number[i]); inc(n); end; end; end. В начале был Бит, потом Байт и только потом появилось Слово... |
#12
|
|||
|
|||
Еще один вариант:
Код:
function GeneratePass(const aLength:byte):String; const CSimbols = 'qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM1234567890'; var i: byte; begin Result:=''; if aLength > 0 then begin Randomize; SetLength(result, aLength); for i:=1 to aLength do Result[i]:=CSimbols[Random(Length(CSimbols)-1)+1]; end; end; aLength - длина строки на выходе |
#13
|
|||
|
|||
Asinkrit , реальный код )))
|