Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать


здравствуйте, нашел скрипт ввода пароля, как можно сделать что бы пароль не шифровался, оставить только форму ввода.
Код: Выделить весь код
[Setup]
AppName=Password
AppVerName=Encryption Password
CreateAppDir=false
Encryption=true
Password=202cb962ac59075b964b07152d234b70
;на странице пароля ввести: 123

#define EncryptPass
#define i Len(SetupSetting("Password"))
#for {i; i > 0; i--} EncryptPass = EncryptPass + Copy(SetupSetting("Password"), i, 1)
;(можно запутать ещё и так: '0123456789' > '4321098765') #define EncryptPass Copy(EncryptPass, Len(EncryptPass)/2+1, Len(EncryptPass) -Len(EncryptPass)/2) + Copy(EncryptPass, 1, Len(EncryptPass)/2)

[_Code]
var PasswordText: TPanel;

Function DecryptPass(Password: String): String;
	var n: Integer;
Begin
	for n:= Length(Password) Downto 1 do Result:= Result + Copy(Password, n, 1)
End;

Function CheckPassword(Password: String): Boolean;
Begin
	Result:= (GetMD5OfString(Password) = DecryptPass('{#EncryptPass}'))
	if not Result then exit;
		PasswordText.Caption:= WizardForm.PasswordEdit.Text
		WizardForm.PasswordEdit.Text:= DecryptPass('{#EncryptPass}')
		PasswordText.Show
End;

Procedure PasswordEditOnKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
Begin
	WizardForm.Nextbutton.Enabled:= CheckPassword(WizardForm.PasswordEdit.Text)
End;

Procedure CurPageChanged(CurPageID: Integer);
Begin
	if CurPageID = wpPassword then if PasswordText.Caption = '' then WizardForm.Nextbutton.Enabled:= CheckPassword(WizardForm.PasswordEdit.Text)
End;

Procedure InitializeWizard;
Begin
	WizardForm.PasswordEdit.OnKeyUp:= @PasswordEditOnKeyUp
PasswordText:=TPanel.Create(WizardForm)
	PasswordText.SetBounds(WizardForm.PasswordEdit.Left, WizardForm.PasswordEdit.Top, WizardForm.PasswordEdit.Width, WizardForm.PasswordEdit.Height)
	PasswordText.Font.Style:= [fsBold]
	PasswordText.Alignment:=taLeftJustify
	PasswordText.BevelOuter:= bvNone
	PasswordText.BorderStyle:= bsSingle
	PasswordText.Parent:= WizardForm.PasswordPage
    PasswordText.Hide
End;

Отправлено: 23:34, 23-04-2010 | #1750