(...20/04/96, Sander Smeenk le decia a All...)
  Gu-gu Sander...
 SS> Wich isn't easy to crack.. But how?
 SS> I need to crypt a name and decrypt a crypted name.. HELP WANTED!!!
  Use the same Seed and Skip for crypt&decrypt in this one (-:
  It's not fast enought for using this routine to encrypt files, but it does 
a great job encrypting the strings from any program, no-cracker will change 
your copyright/author messages, I hope. (-:{
  At least not without knowing the exact algorithm you choose to use, do some 
modifications (as I do for every different program in which I use this 
system), but you should get the idea, it is based on the random number 
generator, and the fact that it gives you the same number secuence, given the 
same initial value.
~[\power\lib\strings.inc]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
function strCode ( byval Str2Code as STR, byval Seed as WORD, _
                   byval Skip as WORD ) public as STR
   ' (c) 1995 Rafa Gawenda
   ' Use it freely
   dim Count as WORD
   dim Tmp as INTEGER
   dim Coded as STR
   if Seed then randomize Seed
   for Count=1 to bits?(Skip)
       Tmp=rnd
   next
   Count=0
   do until Count=len(Str2Code)
     incr Count
     Tmp=int(rnd*254)+1
     Coded=Coded+chr$(ascii(mid$(Str2Code,Count,1)) xor Tmp)
   loop
   StrCode=Coded
end function
~[end]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~
--
Rafa Gawenda  ClubOS2:267
PGP: BD2D5E31/28982BC8AB3B710-353668A9288C6588
---
---------------