var

  text,chars: string;

  

  UseUppercase: Boolean;

  UseLowercase: Boolean;

  UseNumbers: Boolean;

  UseSymbols: Boolean;

  AllSymbols: Boolean;

  passLength: Integer;

  MainForm:TclForm;

  MainPPanel, AyarlarPanel, SwitchPPanel, SwitchLabelPPanel, ButtonsPanel, BottomPanel : TclProPanel;

  InputPEdit : TclProEdit;

  CreatePButton, GetFilePButton, CopyPButton : TClProButton;

  BaslikPLabel, OutputPLabel, UppercaseLabel, LowercaseLabel, NumbersLabel, SymbolsLabel, AllSymbolsLabel : TClProLabel;

  UppercaseSwitch, LowercaseSwitch, NumbersSwitch, SymbolsSwitch, AllSymbolsSwitch : TclSwitch;

  LengthCombo : TCLComboBox;

  

  encryptedValue: string;

  decryptedValue: string;

  

function CreateCharSet:String

var

  availableChars,UppercaseChars,LowercaseChars: String;

  NumberChars,SymbolChars,ExtendedSymbols,AllSymbolChars :String;

{

  UppercaseChars= 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

  LowercaseChars= 'abcdefghijklmnopqrstuvwxyz';

  NumberChars= '0123456789';

  SymbolChars = '!@#$%^&*()_+-={}[]|:;,.?';

  AllSymbolChars = '!"#$%&()*+,-./:;<=>?@[\\]^_`{|}~';

  

  availableChars = '';

  

  if (UseUppercase == True) {

   availableChars = availableChars + UppercaseChars;

  }

  if (UseLowercase == True) {

    availableChars = availableChars + LowercaseChars;

  }

  if (UseNumbers == True) {

    availableChars = availableChars + NumberChars;

  }

  if (UseSymbols == True) {

    availableChars = availableChars + SymbolChars;

  }

  if (AllSymbols == True) {

    availableChars = availableChars + AllSymbolChars;

  }

  

  Result = availableChars;

}  

function CreatePass(availableChars: String; passLength: Integer):String

var

  tempPass : String;

  tempChar: Char;

  i, randint: Integer;

{

  tempPass = '';

  i = 1;

  while(i <= passLength){

    randint = clMath.GenerateRandom(1, Length(availableChars));

    tempChar = Copy(availableChars, randint, 1);

    tempPass = tempPass + tempChar;

    i = i + 1;

  }

  Result = tempPass;

} 

void CChecker{

  UseUppercase = False;

  UseLowercase = False;

  UseNumbers = False;

  UseSymbols = False;

  AllSymbols = False;

  

  if(UppercaseSwitch.IsChecked == True){

    UseUppercase = True;

  }

  if(LowercaseSwitch.IsChecked == True){

    UseLowercase = True;

  }

  if(NumbersSwitch.IsChecked == True){

    UseNumbers = True;

  }

  if(SymbolsSwitch.IsChecked == True){

    UseSymbols = True;

  }

  if(AllSymbolsSwitch.IsChecked == True){

    AllSymbols = True;

  }

  

  passLength = LengthCombo.ItemIndex + 1;

}

void WritePass{

  CChecker;

  chars = CreateCharSet;

  if (Length(chars) > 0) {

    OutputPLabel.Text = CreatePass(chars, passLength);

  } else {

    OutputPLabel.Text = 'Lütfen en az bir seçenek işaretleyin';

  }

}

void MainPPanelV {

  MainPPanel=MainForm.AddNewProPanel(MainForm,'MainPPanel');

  MainPPanel.Align = alCenter;

  MainPPanel.Width = 370;

  MainPPanel.Height = 330;

  MainPPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#424242');

  MainPPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');

  MainPPanel.clProSettings.BorderWidth = 2;

  MainPPanel.clProSettings.IsFill = True; 

  MainPPanel.clProSettings.IsRound = True;

  MainPPanel.SetclProSettings(MainPPanel.clProSettings);

}

 

void AyarlarPanelV {

  AyarlarPanel=MainForm.AddNewProPanel(MainPPanel,'AyarlarPanel');

  AyarlarPanel.Align = alMostTop;

  AyarlarPanel.Width = 330;

  AyarlarPanel.Height = 230;

  AyarlarPanel.Margins.Top = 10;

  AyarlarPanel.Margins.Left = 10;

  AyarlarPanel.Margins.Right = 10;

  AyarlarPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#424242');

  AyarlarPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');

  AyarlarPanel.clProSettings.BorderWidth = 2;

  AyarlarPanel.clProSettings.IsFill = True; 

  AyarlarPanel.clProSettings.IsRound = True;

  AyarlarPanel.SetclProSettings(AyarlarPanel.clProSettings);

}

void SwitchPPanelV {

  SwitchPPanel=MainForm.AddNewProPanel(AyarlarPanel,'SwitchPPanel');

  SwitchPPanel.Align = alMostLeft;

  SwitchPPanel.Width = 60;

  SwitchPPanel.Height = 200;

  SwitchPPanel.Margins.Top = 10;

  SwitchPPanel.Margins.Bottom = 10;

  SwitchPPanel.Margins.Left = 10;

  SwitchPPanel.Margins.Right = 10;

  SwitchPPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#424242');

  SwitchPPanel.clProSettings.IsFill = True; 

  SwitchPPanel.clProSettings.IsRound = True;

  SwitchPPanel.SetclProSettings(SwitchPPanel.clProSettings);

  

  UppercaseSwitch = MainForm.AddNewSwitch(SwitchPPanel,'UppercaseSwitch');

  UppercaseSwitch.Align = alTop;

  UppercaseSwitch.Height = 30;

  UppercaseSwitch.Width = 40;

  UppercaseSwitch.Margins.Right = 10;

  UppercaseSwitch.Margins.Bottom = 10;

  

  LowercaseSwitch = MainForm.AddNewSwitch(SwitchPPanel,'LowercaseSwitch');

  LowercaseSwitch.Align = alTop;

  LowercaseSwitch.Height = 30;

  LowercaseSwitch.Width = 40;

  LowercaseSwitch.Margins.Right = 10;

  LowercaseSwitch.Margins.Bottom = 10;

  

  NumbersSwitch = MainForm.AddNewSwitch(SwitchPPanel,'NumbersSwitch');

  NumbersSwitch.Align = alTop;

  NumbersSwitch.Height = 30;

  NumbersSwitch.Width = 40;

  NumbersSwitch.Margins.Right = 10;

  NumbersSwitch.Margins.Bottom = 10;

  

  SymbolsSwitch = MainForm.AddNewSwitch(SwitchPPanel,'SymbolsSwitch');

  SymbolsSwitch.Align = alTop;

  SymbolsSwitch.Height = 30;

  SymbolsSwitch.Width = 40;

  SymbolsSwitch.Margins.Right = 10;

  SymbolsSwitch.Margins.Bottom = 10;

  

  AllSymbolsSwitch = MainForm.AddNewSwitch(SwitchPPanel,'AllSymbolsSwitch');

  AllSymbolsSwitch.Align = alTop;

  AllSymbolsSwitch.Height = 30;

  AllSymbolsSwitch.Width = 40;

  AllSymbolsSwitch.Margins.Right = 10;

  AllSymbolsSwitch.Margins.Bottom = 10;

}

void SwitchLabelPPanelV {

  SwitchLabelPPanel=MainForm.AddNewProPanel(AyarlarPanel,'SwitchLabelPPanel');

  SwitchLabelPPanel.Align = alLeft;

  SwitchLabelPPanel.Width = 115;

  SwitchLabelPPanel.Height = 200;

  SwitchLabelPPanel.Margins.Top = 10;

  SwitchLabelPPanel.Margins.Bottom = 10;

  SwitchLabelPPanel.Margins.Left = 0;

  SwitchLabelPPanel.Margins.Right = 10;

  SwitchLabelPPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#424242');

  SwitchLabelPPanel.clProSettings.IsFill = True; 

  SwitchLabelPPanel.clProSettings.IsRound = True;

  SwitchLabelPPanel.SetclProSettings(SwitchLabelPPanel.clProSettings);

  

  UppercaseLabel = MainForm.AddNewProLabel(SwitchLabelPPanel,'UppercaseLabel','Uppercase');

  UppercaseLabel.Align = alTop;

  UppercaseLabel.Width = 100;

  UppercaseLabel.Height = 30;

  UppercaseLabel.Margins.Top = 0;

  UppercaseLabel.Margins.Bottom = 6;

  UppercaseLabel.Margins.Left = 0;

  UppercaseLabel.Margins.Right = 0;

  UppercaseLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ebebeb');

  UppercaseLabel.clProSettings.FontSize = 15;

  UppercaseLabel.clProSettings.FontVertAlign = palcenter;

  UppercaseLabel.clProSettings.FontHorzAlign = palLeading;

  UppercaseLabel.clProSettings.TextSettings.Font.Style = [fsBold];

  UppercaseLabel.SetclProSettings(UppercaseLabel.clProSettings);

  

  LowercaseLabel = MainForm.AddNewProLabel(SwitchLabelPPanel,'LowercaseLabel','Lowercase');

  LowercaseLabel.Align = alTop;

  LowercaseLabel.Width = 100;

  LowercaseLabel.Height = 30;

  LowercaseLabel.Margins.Top = 0;

  LowercaseLabel.Margins.Bottom = 6;

  LowercaseLabel.Margins.Left = 0;

  LowercaseLabel.Margins.Right = 0;

  LowercaseLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ebebeb');

  LowercaseLabel.clProSettings.FontSize = 15;

  LowercaseLabel.clProSettings.FontVertAlign = palcenter;

  LowercaseLabel.clProSettings.FontHorzAlign = palLeading;

  LowercaseLabel.clProSettings.TextSettings.Font.Style = [fsBold];

  LowercaseLabel.SetclProSettings(LowercaseLabel.clProSettings);

  

  NumbersLabel = MainForm.AddNewProLabel(SwitchLabelPPanel,'NumbersLabel','Sayılar');

  NumbersLabel.Align = alTop;

  NumbersLabel.Width = 100;

  NumbersLabel.Height = 30;

  NumbersLabel.Margins.Top = 0;

  NumbersLabel.Margins.Bottom = 7;

  NumbersLabel.Margins.Left = 0;

  NumbersLabel.Margins.Right = 0;

  NumbersLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ebebeb');

  NumbersLabel.clProSettings.FontSize = 15;

  NumbersLabel.clProSettings.FontVertAlign = palcenter;

  NumbersLabel.clProSettings.FontHorzAlign = palLeading;

  NumbersLabel.clProSettings.TextSettings.Font.Style = [fsBold];

  NumbersLabel.SetclProSettings(NumbersLabel.clProSettings);

  

  SymbolsLabel = MainForm.AddNewProLabel(SwitchLabelPPanel,'SymbolsLabel','Semboller');

  SymbolsLabel.Align = alTop;

  SymbolsLabel.Width = 100;

  SymbolsLabel.Height = 30;

  SymbolsLabel.Margins.Top = 0;

  SymbolsLabel.Margins.Bottom = 0;

  SymbolsLabel.Margins.Left = 0;

  SymbolsLabel.Margins.Right = 0;

  SymbolsLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ebebeb');

  SymbolsLabel.clProSettings.FontSize = 15;

  SymbolsLabel.clProSettings.FontVertAlign = palcenter;

  SymbolsLabel.clProSettings.FontHorzAlign = palLeading;

  SymbolsLabel.clProSettings.TextSettings.Font.Style = [fsBold];

  SymbolsLabel.SetclProSettings(SymbolsLabel.clProSettings);

  

  AllSymbolsLabel = MainForm.AddNewProLabel(SwitchLabelPPanel,'AllSymbolsLabel','Bütün Semboller');

  AllSymbolsLabel.Align = alBottom;

  AllSymbolsLabel.Width = 105;

  AllSymbolsLabel.Height = 30;

  AllSymbolsLabel.Margins.Top = 0;

  AllSymbolsLabel.Margins.Bottom = 0;

  AllSymbolsLabel.Margins.Left = 0;

  AllSymbolsLabel.Margins.Right = 0;

  AllSymbolsLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ebebeb');

  AllSymbolsLabel.clProSettings.FontSize = 15;

  AllSymbolsLabel.clProSettings.FontVertAlign = palcenter;

  AllSymbolsLabel.clProSettings.FontHorzAlign = palLeading;

  AllSymbolsLabel.clProSettings.TextSettings.Font.Style = [fsBold];

  AllSymbolsLabel.SetclProSettings(AllSymbolsLabel.clProSettings);

}

void ButtonsPanelV 

var i : Integer;

{

  ButtonsPanel=MainForm.AddNewProPanel(AyarlarPanel,'ButtonsPanel');

  ButtonsPanel.Align = alMostRight;

  ButtonsPanel.Width = 140;

  ButtonsPanel.Height = 200;

  ButtonsPanel.Margins.Top = 10;

  ButtonsPanel.Margins.Bottom = 10;

  ButtonsPanel.Margins.Left = 0;

  ButtonsPanel.Margins.Right = 10;

  ButtonsPanel.clProSettings.BorderWidth = 2;

  ButtonsPanel.clProSettings.IsFill = True; 

  ButtonsPanel.clProSettings.IsRound = True;

  ButtonsPanel.SetclProSettings(ButtonsPanel.clProSettings);

  

  LengthCombo = MainForm.AddNewComboBox(ButtonsPanel,'LengthCombo');

  LengthCombo.Align = alMostTop;

  LengthCombo.Width = 120;

  LengthCombo.Margins.Top = 0;

  LengthCombo.Margins.Left = 10;

  LengthCombo.Margins.Right = 10;

  for(i=1 to 24){

    LengthCombo.AddItem(IntToStr(i),IntToStr(i));

  }

  

  CreatePButton = MainForm.AddNewProButton(ButtonsPanel,'CreatePButton','OLUŞTUR');

  CreatePButton.Align = alTop;

  CreatePButton.Width = 120;

  CreatePButton.Height = 40;

  CreatePButton.Margins.Top = 35;

  CreatePButton.Margins.Bottom = 10;

  CreatePButton.Margins.Left = 10;

  CreatePButton.Margins.Right = 10;

  CreatePButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#424242');

  CreatePButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ebebeb');

  CreatePButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');

  CreatePButton.clProSettings.BorderWidth = 2;

  CreatePButton.clProSettings.FontSize = 15;

  CreatePButton.clProSettings.FontVertAlign = palcenter;

  CreatePButton.clProSettings.FontHorzAlign = palCenter;

  CreatePButton.clProSettings.TextSettings.Font.Style = [fsBold];

  CreatePButton.clProSettings.IsFill = True;

  CreatePButton.clProSettings.IsRound = True;

  CreatePButton.clProSettings.RoundHeight = 5;

  CreatePButton.clProSettings.RoundWidth = 5;

  CreatePButton.SetclProSettings(CreatePButton.clProSettings);

  

  GetFilePButton = MainForm.AddNewProButton(ButtonsPanel,'GetFilePButton','DOSYA ÇIKART');

  GetFilePButton.Align = alTop;

  GetFilePButton.Width = 120;

  GetFilePButton.Height = 40;

  GetFilePButton.Margins.Top = 0;

  GetFilePButton.Margins.Bottom = 0;

  GetFilePButton.Margins.Left = 10;

  GetFilePButton.Margins.Right = 10;

  GetFilePButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#424242');

  GetFilePButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ebebeb');

  GetFilePButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');

  GetFilePButton.clProSettings.BorderWidth = 2;

  GetFilePButton.clProSettings.FontSize = 15;

  GetFilePButton.clProSettings.FontVertAlign = palcenter;

  GetFilePButton.clProSettings.FontHorzAlign = palCenter;

  GetFilePButton.clProSettings.TextSettings.Font.Style = [fsBold];

  GetFilePButton.clProSettings.IsFill = True;

  GetFilePButton.clProSettings.IsRound = True;

  GetFilePButton.clProSettings.RoundHeight = 5;

  GetFilePButton.clProSettings.RoundWidth = 5;

  GetFilePButton.clProSettings.WordWrap = True;

  GetFilePButton.SetclProSettings(GetFilePButton.clProSettings);

}

 

void BaslikPLabelV {

  BaslikPLabel = MainForm.AddNewProLabel(MainPPanel,'BaslikPLabel','Şifre Oluşturucu');

  BaslikPLabel.Align = alMostTop;

  BaslikPLabel.Width = 200;

  BaslikPLabel.Height = 30;

  BaslikPLabel.Margins.Top = 10;

  BaslikPLabel.Margins.Bottom = 0;

  BaslikPLabel.Margins.Left = 85;

  BaslikPLabel.Margins.Right = 0;

  BaslikPLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ebebeb');

  BaslikPLabel.clProSettings.FontSize = 20;

  BaslikPLabel.clProSettings.FontVertAlign = palcenter;

  BaslikPLabel.clProSettings.FontHorzAlign = palCenter;

  BaslikPLabel.clProSettings.TextSettings.Font.Style = [fsBold];

  BaslikPLabel.SetclProSettings(BaslikPLabel.clProSettings);

}

 

void InputPEditV {

  InputPEdit = MainForm.AddNewProEdit(AyarlarPanel,'InputPEdit','Şifre Uzunluğu Seçin');

  InputPEdit.Align = alMostTop;

  InputPEdit.Width = 330;

  InputPEdit.Height = 30;

  InputPEdit.Margins.Top = 10;

  InputPEdit.Margins.Left = 10;

  InputPEdit.Margins.Right = 10;

  InputPEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#808080');

  InputPEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ebebeb');

  InputPEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');

  InputPEdit.clProSettings.BorderWidth = 2;

  InputPEdit.clProSettings.FontSize = 12;

  InputPEdit.clProSettings.FontVertAlign = palcenter;

  InputPEdit.clProSettings.FontHorzAlign = palcenter;

  InputPEdit.clProSettings.TextSettings.Font.Style = [fsBold];

  InputPEdit.clProSettings.IsFill = True; 

  InputPEdit.clProSettings.IsRound = True;

  InputPEdit.clProSettings.RoundHeight = 10;

  InputPEdit.clProSettings.RoundWidth = 10;

  InputPEdit.SetclProSettings(InputPEdit.clProSettings);

}

 

void BottomPanelV {

  BottomPanel=MainForm.AddNewProPanel(MainPPanel,'BottomPanel');

  BottomPanel.Align = alMostBottom;

  BottomPanel.Width = 330;

  BottomPanel.Height = 30;

  BottomPanel.Margins.Top = 10;

  BottomPanel.Margins.Bottom = 10;

  BottomPanel.Margins.Left = 10;

  BottomPanel.Margins.Right = 10;

  BottomPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#424242');

  BottomPanel.clProSettings.IsFill = True; 

  BottomPanel.clProSettings.IsRound = True;

  BottomPanel.SetclProSettings(BottomPanel.clProSettings);

  OutputPLabel = MainForm.AddNewProLabel(BottomPanel,'OutputPLabel','Şifre burada görünecek');

  OutputPLabel.Align = alMostLeft;

  OutputPLabel.Width = 230;

  OutputPLabel.Height = 30;

  OutputPLabel.Margins.Top = 0;

  OutputPLabel.Margins.Bottom = 0;

  OutputPLabel.Margins.Left = 10;

  OutputPLabel.Margins.Right = 0;

  OutputPLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#808080');

  OutputPLabel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ebebeb');

  OutputPLabel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');

  OutputPLabel.clProSettings.BorderWidth = 2;

  OutputPLabel.clProSettings.FontSize = 12;

  OutputPLabel.clProSettings.FontVertAlign = palcenter;

  OutputPLabel.clProSettings.FontHorzAlign = palcenter;

  OutputPLabel.clProSettings.TextSettings.Font.Style = [fsBold];

  OutputPLabel.clProSettings.IsFill = True; 

  OutputPLabel.clProSettings.IsRound = True;

  OutputPLabel.clProSettings.RoundHeight = 10;

  OutputPLabel.clProSettings.RoundWidth = 10;

  OutputPLabel.SetclProSettings(OutputPLabel.clProSettings);

  

  CopyPButton = MainForm.AddNewProButton(BottomPanel,'CopyPButton','KOPYALA');

  CopyPButton.Align = alMostRight;

  CopyPButton.Width = 80;

  CopyPButton.Height = 30;

  CopyPButton.Margins.Top = 0;

  CopyPButton.Margins.Bottom = 0;

  CopyPButton.Margins.Left = 10;

  CopyPButton.Margins.Right = 10;

  CopyPButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#424242');

  CopyPButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ebebeb');

  CopyPButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');

  CopyPButton.clProSettings.BorderWidth = 2;

  CopyPButton.clProSettings.FontSize = 12;

  CopyPButton.clProSettings.FontVertAlign = palcenter;

  CopyPButton.clProSettings.FontHorzAlign = palCenter;

  CopyPButton.clProSettings.TextSettings.Font.Style = [fsBold];

  CopyPButton.clProSettings.IsFill = True;

  CopyPButton.clProSettings.IsRound = True;

  CopyPButton.clProSettings.RoundHeight = 5;

  CopyPButton.clProSettings.RoundWidth = 5;

  CopyPButton.SetclProSettings(CopyPButton.clProSettings);

}

  

{

  MainForm=TclForm.Create(self);

  MainForm.SetFormColor('#000000', '#000000', clGNone);

  MainForm.FormWaiting.Visible = False;

  MainForm.BtnFormMenu.Visible = False;

  MainForm.BtnGoBack.Visible = False;

  ClRTSetProperty(MainForm,'ClientWidth',700);

  ClRTSetProperty(MainForm,'ClientHeight',500);

  

  MainPPanelV;

  BaslikPLabelV;

  AyarlarPanelV;

  SwitchPPanelV;

  SwitchLabelPPanelV;

  ButtonsPanelV;

  InputPEditV;

  BottomPanelV;

  

  MainForm.AddNewEvent(UppercaseSwitch,tbeOnClick,'CChecker');

  MainForm.AddNewEvent(LowercaseSwitch,tbeOnClick,'CChecker');

  MainForm.AddNewEvent(NumbersSwitch,tbeOnClick,'CChecker');

  MainForm.AddNewEvent(SymbolsSwitch,tbeOnClick,'CChecker');

  MainForm.AddNewEvent(AllSymbolsSwitch,tbeOnClick,'CChecker');

  

  MainForm.AddNewEvent(LengthCombo,tbeOnChange,'CChecker');

  

  MainForm.AddNewEvent(CreatePButton,tbeOnClick,'WritePass');

  MainForm.AddNewEvent(GetFilePButton,tbeOnClick,'');

  MainForm.AddNewEvent(CopyPButton,tbeOnClick,'');

  

  MainForm.Run;

}

OutputPLabel.Text= CreatePass(chars,passLength);
Bu satırda Pro Labelın Textini Değiştiremiyorum.

*/