کد درهم ریز کلمه

[ahmadgolagha]

سلام
چطوری می تونم حروف یک کلمه رو بهم بریزم
مثلا ahmad بشه hamda
احتمالا باید از آرایه ، حلقه ، توابع رشته ای و ... استفاده کرد

 

[evil_gates]

میتونید از این کد استفاده کنید دوست عزیز. فقط دقت کنید که عبارتی که باید بهم ریخته بشه نباید دو حرف شبیه بهم داشته باشه

str$='evil'
substr$=''
x=LEN(str$)
For i=1 To x
  temp$[i]=StrCopy(str$,i,1)
Next i
For j=1 To Infinity
  y=LEN(substr$)
  If (y<x) Then
    i=(RND(x))+1
    chekpos=POS(temp$[i],substr$)
    If (chekpos=0) Then
      substr$=substr$+temp$[i]
    End
  Else
    Message("","substr$")
    Return()
  End
Next j