WIN1251 to UTF-8

[enRai]

Подскажите пожалуйста алгоритм перекодировки Windows-1251 в UTF-8, или код на Си. Сторонний софт или dll не подойдут, нужно все организовать внутри программы. Ну или если кто предложит решение или код для MapBasic'а, то будет вообще прекрасно!

Нашел:

function win2utf(str as string) as string

	dim i, ii as integer, out_str, i_chr as string

	out_str = ""

	ii = len(str)

	for i=1 to ii
		i_chr=mid$(str, i, 1)
		if asc(i_chr)>=192 and asc(i_chr)<=239 then out_str = out_str + chr$(208) + chr$(asc(i_chr)-48) end if
   		if  asc(i_chr)>=240 and asc(i_chr)<=255 then out_str = out_str + chr$(209) + chr$(asc(i_chr)-112) end if
   		if i_chr="Ё" then out_str = out_str + chr$(208) + chr$(149)end if
   		if i_chr = "ё" then out_str = out_str + chr$(208) + chr$(181) end if
   		if i_chr = "Ъ" then out_str = out_str +chr$(208) + chr$(172) end if
   		if i_chr = "Ь" then out_str = out_str + chr$(208) + chr$(170) end if
   		if i_chr = "ъ" then out_str = out_str + chr$(208) + chr$(140) end if
   		if i_chr = "ь" then out_str = out_str + chr$(208) + chr$(138) end if
 		if asc(i_chr) < 192 then out_str = out_str + i_chr end if
	next

	win2utf = out_str

end function

[psycho-coder]

А мне кажется это перевод из ANSI в ASCII. Или мне одному кажется?

[Alter]

Вот эти посмотрите:

Эти пользовал, вроде должны подойти
UTF8Decode()
UTF8Encode()

Utf8ToAnsi()
AnsiToUtf8()
Utf8ToUnicode()
UnicodeToUtf8()