Сomparison-line Голосов: 1 Адрес блога: http://comparison-line.ru Добавлен: 2010-11-26 13:42:23 блограйдером kottx

Расшифровка пароля

2013-05-07 21:44:20 (читать в оригинале)

RETURN cEncryptedPassword Function UnKod && Расшифровка пароля PARAMETERS cEncryptedPassword PRIVAT cLetter,cPassword cEncryptedPassword=RTRIM(cEncryptedPassword) cPassword=[] Почитать об отношениях можно тут: психология отношений. FOR I=1 TO LEN(cEncryptedPassword) cLetter=SUBSTR(cEncryptedPassword,i,1) cPassword=cPassword+CHR(ASC(cLetter)+I) NEXT I RETURN cPassword PROCEDURE DisplayMemory && Состояние памяти PRIVATE FileName * Имя временного файла — Display.txt FileName=’C:\WINNT\TEMP\Display.txt’ * Разместить состояние памяти в файле DISPLAY MEMORY TO FILE &FileName [...]