VBNet - Форум - Русский ---> Russkii convertor and Password ...

Вопрос: Русский ---> Russkii convertor and Password ... Добавлено: 18.04.03 17:33

Автор вопроса: Geo | ICQ: 81917030

У меня есть ФИО какого либо чела. Мне надо сделать из него username & password. Думаю надо переконвертить его в латиницу и сгенерить пасворд. me pls
Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

Миха

ICQ: 394243

Вопросов: 20
Ответов: 151

Web-сайт: www.visualbasic.boom.ru
Профиль | | #1

Добавлено: 18.04.03 17:38

Option Explicit
Public FileLine$ 'переменная дл чтения файлов
Public LastNumUser As Long 'текущий номер юзера

Private Sub Command1_Click()
Dim i%, Sn$, b As Long

If MsgBox("Are you sure ?", vbInformation + vbYesNo + vbDefaultButton2, "New user :") = vbNo Then Exit Sub

'------начало примитивного примера генерации серийного номера-------------
b = 908578456
For i = 1 To Len(txtName)
b = b + Asc(Mid(txtName.Text, i, 1))
Next

Sn = CStr(b)
'------конец генерации серийного номера-------------

' показать результат генерации
txtSn.Text = Sn
'записать в файл
'LastNumUser = 0 'начинаем отсчет юзеров

Dim Fa As Boolean   'флажок True - если нету файла с юзерами
If Dir(App.Path + "\reg_users.txt") = "" Then
    Fa = True   'нету файла
    GoTo FileErr
Else
    Fa = False 'есть !
End If

Open App.Path + "\reg_users.txt" For Input Lock Write As #1
FileErr:
Open App.Path + "\temp.tmp" For Output Lock Write As #2

If Fa = True Then GoTo FirstUser

Do Until EOF(1) 'старые строки переносим в новый файл
Line Input #1, FileLine
If FileLine = "" Then GoTo rrr 'если строка без цифры в начале
Print #2, FileLine
rrr:
Loop

FirstUser:
Print #2, "'"; txtName.Text; "'"; Spc(28 - Len(txtName.Text)); "'"; txtSn.Text; "'" 'последняя строrа
Close

If Fa = False Then Kill App.Path + "\reg_users.txt"
Name App.Path + "\temp.tmp" As App.Path + "\reg_users.txt"

'считать в текстбокс
Form_Load

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then Unload Form1
End Sub

Private Sub Form_Load()
'считать в текстбокс
On Error GoTo eee

LastNumUser = 1
Open App.Path + "\reg_users.txt" For Input Lock Write As #1
Label3.Caption = "Register users " + "..\reg_users.txt :"

lstStat.Clear 'очистить

Do Until EOF(1) 'считать файл в тексбокс
Line Input #1, FileLine
lstStat.AddItem CStr(LastNumUser) + Space(6 - Len(CStr(LastNumUser))) + FileLine
LastNumUser = LastNumUser + 1
Loop
Close
eee:
End Sub

Private Sub lstStat_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then lstStat.Clear: Form_Load: Exit Sub
'копирование в буфер
Dim a$
Clipboard.Clear
a = lstStat.List(lstStat.ListIndex)
Mid(a, 1, 6) = vbNull
Clipboard.SetText a, 1
End Sub

Private Sub txtName_Change()
txtSn.Text = ""
If txtName.Text = "" Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
txtName.ToolTipText = txtName.Text
End Sub

Только элементы присобачь

Ответить

Номер ответа: 2 Автор ответа: Миха ICQ: 394243 Вопросов: 20 Ответов: 151	Web-сайт: www.visualbasic.boom.ru Профиль \| \| #2	Добавлено: 18.04.03 17:40
	Если не получится пиши - пришлю. Только тему укажи. Ответить

Номер ответа: 3
Автор ответа:

Geo

ICQ: 81917030

Вопросов: 15
Ответов: 17

Профиль | | #3

Добавлено: 18.04.03 17:58

??? Напомни что дает % and & в конце имен переменных???

Ответить

Номер ответа: 4 Автор ответа: *CyRax* Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229	Web-сайт: basicproduction.nm.ru Профиль \| \| #4	Добавлено: 18.04.03 19:12
	% Целое (Integer) & Длинное целое (Long) ! Обычная точность (Single) # Двойная точность (Double) $ Строка (String) Ответить

Номер ответа: 5
Автор ответа:

Gravity

Вопросов: 6
Ответов: 120

Профиль | | #5

Добавлено: 20.04.03 00:45

Миха где-то, в каком-то примере я видел этот код !!!!!!!!!

А для Geo:

'------начало примитивного примера генерации серийного номера-------------
b = 908578456

b - любое 9-тизначное число, а не только 908578456, например 123456789

Ответить

Страница: 1 |