Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Запись в txt/bin генератор пароля - Программирование iOS

Войти
Регистрация
Восстановить пароль
Другие темы раздела
Программирование iOS Мой способ взаимодействия с серверными разработчиками http://www.cyberforum.ru/ios-dev/thread991937.html
Всем привет! После участившихся проблем во взаимодействии между мной, как mobile-разработчиком и серверной "командой", я, вместо того, чтобы монотонно повторять "у меня все работает верно",...
Программирование iOS UISearchBar & UITableView Доброго времени суток вопрос. Переделываю приложение под iOS 7 добавил поиск по таблице но он открывает файлы по индексу ячейки, а не по имени файла. Вот метод didSelectRowAtIndexPath ; ... http://www.cyberforum.ru/ios-dev/thread991376.html
Платежные системы Программирование iOS
Всем привет! Подскажите пожалуйста, как в приложении для iOS сделать возможность покупки игровой валюты с помощью мобильных платежей, или иных способов отличных от кредитной карточки? Спасибо!
Программирование iOS Приложение под iOS
Нужен программист для написания под iPhone (iPad) приложения со следующим функционалом: - пользователь из приложения фотографирует объект, расположенный на контрастном фоне (на белом, например); -...
Программирование iOS Ссылка на объект с одного класса в другой http://www.cyberforum.ru/ios-dev/thread989882.html
Доброго времени суток. Начну с того, что в objective-c я довольно недавно стал пробовать. перешел с С++ на него. Помогите пожалуйста разобраться и пример кода написать.. Задача: Есть две...
Программирование iOS Английский для ios разработчика Важно ли знание английского для ios разработчика? Насколько знаю русскоязычной литературы в данном направлении почти нет, а в той что есть частенько хромает перевод, буду рад услышать ваше мнение. подробнее

Показать сообщение отдельно
Inline_zn
Сообщений: n/a

Запись в txt/bin генератор пароля - Программирование iOS

30.10.2013, 21:33. Просмотров 444. Ответов 0
Метки (Все метки)

uses dos, crt;
var
f3:text;
d0,d1,d2:string;
a,b,i,j,p:byte;
m,z:integer;
L:array[1..4] of char;


begin
for i:=1 to 4 do
a:=240;
b:=240;
writeln;
for j:=1 to 4 do
begin
i:=1;
while (i<6) do
begin
while (a=b) do
begin
a:=random(240);
randomize;
end;
b:=a;
if ((a>=65)and(a<=90))or(a>=48)and(a<=57) then

begin
L[i]:=chr(a);
L[z]:=chr(a);
i:=i+1;
end;
end;
for i:=1 to 4 do
write (L[i]);
write (L[z]);
end;


Проблема с записью в файл, в файл (txt или bin) пишется только 2 символа, Пробовал присвоить d1:=L[i] и d2:=L[z] (string) потом d0:=d1+d2; и записать в файл d0; ,при этом на экран выводится полный сгенерированный пароль но в файл пишет 2 символа, можете иправить ошибку, не стал указывать код на запись в файл.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru