OMiD
Well-Known Member
مثالي كه ملاحضه ميكنيد يه جور فرم ورود براي برنامه هاي چند كاربره است كه ميشه توش هرچقدر كه ميخوايد يوزر بسازيد و پسوردش هم تا 4 مرحله انكريپت ميشه و توي هر مرحله هر كاراكتر به 3 حرف تبديل ميشه يعني يك پسورد 6 رقمي به 486 حرف تبديل ميشه كه امنيت بالايي داره و هر چقدر تعداد مراحل انكريپت رو افزايش بديم ضريب امنيت قفل رو بالاتر برديم اما فايل يوزر كمي حجيم تر ميشه.
متد كدگزاري به اين صورت هست:
متد كدگزاري به اين صورت هست:
For enc=1 To 4
passtemp$=UPP(passtemp$)
String$=StrChange(passtemp$,A,uis)
String$=StrChange(String$,B,rte)
String$=StrChange(String$,C,bvc)
String$=StrChange(String$,D,ndo)
String$=StrChange(String$,E,pfl)
String$=StrChange(String$,F,mcb)
String$=StrChange(String$,G,ucu)
String$=StrChange(String$,H,bgf)
String$=StrChange(String$,I,sim)
String$=StrChange(String$,J,omi)
String$=StrChange(String$,K,shy)
String$=StrChange(String$,L,lin)
String$=StrChange(String$,M,tyi)
String$=StrChange(String$,N,vfd)
String$=StrChange(String$,O,zaq)
String$=StrChange(String$,P,qaz)
String$=StrChange(String$,Q,wer)
String$=StrChange(String$,R,oip)
String$=StrChange(String$,S,bbc)
String$=StrChange(String$,T,cnn)
String$=StrChange(String$,U,pmc)
String$=StrChange(String$,V,icc)
String$=StrChange(String$,W,itv)
String$=StrChange(String$,X,ueo)
String$=StrChange(String$,Y,mkl)
String$=StrChange(String$,Z,hkc)
***
String$=StrChange(String$,0,erz)
String$=StrChange(String$,1,oen)
String$=StrChange(String$,2,plo)
String$=StrChange(String$,3,cch)
String$=StrChange(String$,4,tim)
String$=StrChange(String$,5,swb)
String$=StrChange(String$,6,qgm)
String$=StrChange(String$,7,yvp)
String$=StrChange(String$,8,vvn)
String$=StrChange(String$,9,xfv)
***
String$=StrChange(String$,-,vrn)
String$=StrChange(String$,_,xtp)
passtemp$=String$
Next enc
passtemp$=UPP(passtemp$)
String$=StrChange(passtemp$,A,uis)
String$=StrChange(String$,B,rte)
String$=StrChange(String$,C,bvc)
String$=StrChange(String$,D,ndo)
String$=StrChange(String$,E,pfl)
String$=StrChange(String$,F,mcb)
String$=StrChange(String$,G,ucu)
String$=StrChange(String$,H,bgf)
String$=StrChange(String$,I,sim)
String$=StrChange(String$,J,omi)
String$=StrChange(String$,K,shy)
String$=StrChange(String$,L,lin)
String$=StrChange(String$,M,tyi)
String$=StrChange(String$,N,vfd)
String$=StrChange(String$,O,zaq)
String$=StrChange(String$,P,qaz)
String$=StrChange(String$,Q,wer)
String$=StrChange(String$,R,oip)
String$=StrChange(String$,S,bbc)
String$=StrChange(String$,T,cnn)
String$=StrChange(String$,U,pmc)
String$=StrChange(String$,V,icc)
String$=StrChange(String$,W,itv)
String$=StrChange(String$,X,ueo)
String$=StrChange(String$,Y,mkl)
String$=StrChange(String$,Z,hkc)
***
String$=StrChange(String$,0,erz)
String$=StrChange(String$,1,oen)
String$=StrChange(String$,2,plo)
String$=StrChange(String$,3,cch)
String$=StrChange(String$,4,tim)
String$=StrChange(String$,5,swb)
String$=StrChange(String$,6,qgm)
String$=StrChange(String$,7,yvp)
String$=StrChange(String$,8,vvn)
String$=StrChange(String$,9,xfv)
***
String$=StrChange(String$,-,vrn)
String$=StrChange(String$,_,xtp)
passtemp$=String$
Next enc
و متد كد برداري هم به اين صورت هست:
همون متد بالا و كد ورودي براي باز كردن باز هم با متد بالا كد گزاري ميشه و هر دو خروجي با هم مقايسه ميشن.
همون متد بالا و كد ورودي براي باز كردن باز هم با متد بالا كد گزاري ميشه و هر دو خروجي با هم مقايسه ميشن.
آخرین ویرایش:
