Шифрование

[_Мика_]

Какие есть методы шифровки (тоько не(Ascii(-1))
есть айпишка CryptDecrypt как она работает (Только не API-guid-там тупой пример )

[mark+]

У меня есть не метод, а концепция, но вот не знаю говорить или нет...

[SSecurity]

У меня есть не метод, а концепция, но вот не знаю говорить или нет...

конечно не говори!!! .... вообще по кульному надо свою разработать и мастерить дальше
Какое же ето шифрование если все твою концепцию знать будут ) .... хотя можно свой алгоритм малость переделать ...

Расскажи в общих словах
типа "берем слово, получаем ключ, шифруем текст по ключу"

[SSecurity]

помнится был тут человек на форуме один, так он утверждал что разработал уникальный алгоритм шифрования:)) ...помотреть бы на него )

[_Мика_]

А ладно я уже нашел на VBnet

[mark+]

Да, да и еще раз да! Но у меня ОЧЕНЬ много проектов, включая ClearGL 3D. Шифрование, стоит НЕ на первом месте. Ну некогда. Ну, если SSecurity не будет подгонять то может чрез 1-2 недельки статью забабахаю. Концепцию выложу, а алгоритм сами будете придумывать.

[SSecurity]

ладно ждемс:)

[mark+]

Короче, вот концепция:
Буду объяснять быстрым текстом.

Скока у на символов? 255!
Давайте каждому символу присвоим рандомизный номер. Не забываем проверять, что номера не совпадают. Потом переведем весь исходный текст, в эти номера. Потом добавим в начало файла пароль (также закодированный нашим кодом, и который имеет фиксированную длину). Сразу после пароля ставим наш словарь, с помощью которого, можно будет раскодировать текст. Записываем в файл.
На самом деле все гораздо сложнее, я описал все САМОЕ БАЗОВОЕ.
Если кто-то думает, что сможет раскодировать такой текст, пусть опишет алгоритм, и я придумаю противоядие.
Статью не будем. Не хочу. НЕ ХАЧУ!

Если BitArts стащит технологию, я буду очень зол. И сделаю бесплатной и доступной "каждому чайнику" программу, с помощью которой взламывается эта концепция.

[SSecurity]

Все конечно кульно .... но допустем я такой нехороший человек и получил доступ к твоему файлу .... стоит мне испортить ... хоть один символ пароля или словаря .... фенитоля комедия ... ты теряешь все что у тебя было ))
а алгоритм нужен такой ... чтобы оставалося:)

[mark+]

Слухай, а если я запаролированый ЗИП изменю, он весь останется цел???
ВЫХОД: делать файлы реад онли.

[zHackLeX]

Простейший вариант шифрования - Шифрование на
примере записи в файл пароля сисадмина

Sub encodeAdminPassword() 'ЗАшифровать
code = 38
Close #1
Open App.Path + "\" + "data1.bin" For Output As #1
charsInString% = Len(pwdAdmin)
For i% = 1 To charsInString%
letter$ = Mid$(pwdAdmin, i%, 1)
Print #1, Asc(letter$) Xor code
Next i%
Close #1
End Sub

Sub decodeAdminPassword() 'РАСшифровать
code = 38
Close #1
Open App.Path + "\" + "data1.bin" For Input As #1
decrypt$ = ""
Do Until EOF(1)
Input #1, Number
e$ = Chr$(Number Xor code)
decrypt$ = decrypt$ & e$
Loop
Close #1
pwdAdmin = decrypt$
End Sub

[alibek]

Не обижайтесь, ребяты, но это примитив
Даже "Энигма" гораздо лучше

[SSecurity]

Самый примитив это
Символ=chr(255-asc(Символ))

а нужен алгоритм ..., с контрольной суммой и дополнительными феничками ... я вот могу выложить Вам свои логины и пароли для инета ... все они хранятся тут.

Не знаю как зашифровал (исходник умер а ЕХЕ остался) ... ну расшифровывайте

Кодирование помню ну немного посложнее примитива.

Код: Выделить всё

8885 88451577 27478805 47717557 27483176 76762128 75277871 8787
4685 26267727 47880547 71874175 48857515 27263115 58261827 5738
4785 77274788 05477131 01312508 18280181 38111835 07165107 8675


[SSecurity]

ну вот, уважаемые коллеги висит давно, а мои пароли никто ещё не развернул .... ну чего так плохо? .... а ведь там все "примитивно", я так надеялся Инет бесплатный предоставить в подарок тому кто разгадает.